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