If I want the entire sheet protected at all times except for lets say cells A3 to A8. So if the checkbox is checked no cells in the entire sheet can be edited. If the checkbox is unchecked only cells A3 to A8 can be edited. That is no data can be entered into the sheet except cells A3 to A8. Below is what I have this far from the previous program. I am new to VBA so not sure on the format but I can not get it to work.
Sub CheckBox1_Click()
If ActiveSheet.CheckBoxes("Check Box 1") = xlOn Then
Range("A3:A8").Select
Selection.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
Range("A3:A8").Select
Selection.Locked = False
Selection.Unprotect
End If
End Sub
Bookmarks