Protect/Unprotect

[blackie42]

Hi,

Using following to lock a column & prevent additional rows columns being created.

Private Sub protectit()

Cells.Locked = False
Range("A1:A2000").Locked = True

ActiveSheet.Protect AllowInsertingRows:=False, AllowInsertingColumns:=False

ActiveSheet.Protect Password:="Test"

End Sub

However just selecting 'unprotect sheet' on ribbon deactivates without asking for password.

Any ideas?

thanks
Jon

[p45cal]

Private Sub protectit()
Cells.Locked = False
Range("A1:A2000").Locked = True
ActiveSheet.Protect Password:="Test", AllowInsertingRows:=False, AllowInsertingColumns:=False
End Sub

[blackie42]

Cheers P45,

Works fine

regards
Jon