Locking cells with VBA

[Jazztpt]

Hi - (Excel 2000) I am trying to lock a range of cells when a checkbox is 'ticked' - I thought this would work, but it doesn't !

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("A1:E4").Locked = True
Else
Range("A1:E4").Locked = False
End If
End Sub

Can anyone tell me what i am doing wrong.
Thanks
Jazztpt

 

[Fenrirshowl]

Locking the cells will only work if you've protected the sheet. You need to unprotect it, change the lock status and then protect it again.

Question is then whether you want to hardcode a password in the sheet protection (and then protect the VBA project so others can't find it from the VB code).

 

[Jazztpt]

Thanks for the reply, I'll give that a go.
Cheers
Jazztpt