Check boxes & protection

Giganews Newsgroups
Subject: Check boxes & protection
Posted by:  rob nobel (robnob…
Date: Sat, 4 Oct 2003

I have 4 check boxes with some code to uncheck 3 boxes if 1 is selected as
If CheckBox1 = True Then CheckBox2 = False
If CheckBox1 = True Then CheckBox3 = False
If CheckBox1 = True Then CheckBox4 = False
If Range("o1") = 0 Then GoTo Finish
If CheckBox1 = True Then
MsgBox "If you are selecting a different quarter, make sure you have
selected the 'Finalise' button for the previous quarter (if that quarter's
BAS has been completed!)"
End If
End Sub

I would like to protect this sheet, but  can't seem to do it and still have
these checkboxes function (even if I insert the ActiveSheet.Unprotect and
ActiveSheet.Protect commands into this code).
Any ideas anyone?