locking specific cells in sheet (Northants)

[Patriot2879]

HI Can you help me please i have the code below, but it doesnt seem to work, i think i am putting the code in the wrong place i added this to a new module but it doesnt work, i only want to lock cells in sheets(Northants) and the cells i want to lock are B8, B9, B10, B11, F8 and F9, can you help and advixse me please, thanks in advance.

Sub LockCellsWithFormulas()
With ActiveSheet
   .Unprotect
   .Cells.Locked = False
   .Cells.SpecialCells(xlCellTypeFormulas).Locked = True
   .Protect AllowDeletingRows:=True
End With
End Sub

 

[Patriot2879]

Hi me again, i didnt explain sorry what was in thopse specific cells that i want to lock, i have in there codes for Vlookup, SUM, COUNTIF etc, which i do not want people clicking on to mess up the code, if you can help please , thank you again, i am still fairly new to all of this.

 

[Patriot2879]

Hi sorry to bother you again, just wondering if you had any ideas at all with regards to my query? if you need any more information please let me know.

 

[Fluff]

Change Active sheet to the name of the sheet you want to protect.

 

[Patriot2879]

Hi thx for that i have changed the code to....for example?

With Sheets (Northants)

And where do i put this code do i put it in sheet 1 (Northants)? as i have tried this but unfortunately it still doesnt work its not locked any cells in Northants sheet

 

[Fluff]

You can leave the code where it is, but you're missing the " marks either side of the sheet name

 

[Patriot2879]

Hi thx for that, i have tried that and it still doesnt work i have entered the code into 'Sheet1 (Northants). is this the correct place to put it? or do i put it in a module or ThisWorkbook?

 

[Fluff]

It needs to go in a regular module

 

[Patriot2879]

hi this does work now but i found out after looking on internet that i needed to protect the spreadsheet, which i did but i now get a run-time error 1004 for the code

.Cells(emptyRow, 1).Value = TextBox1.Value

any ideas please?

 

[Fluff]

That code has nothing to do with the code in your op, & therefore very difficult to tell.
Did you unprotect the sheet?