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 i protected the sheet with a password then then the code was protected but i got this run time error for my userforms when used, but when unprotected the code didnt work

 

[Fluff]

Your original question had nothing to do with UserForms. It was simply about changing your code to work with a specific sheet.
I would therefore suggest that you start a new thread.

 

[Patriot2879]

ok thankyou