Picture
Need to add protection to your excel sheets? Here is a nice VBA program that I tested and used.


Private Sub cbProtectSheet_Click()
'   Toggles sheet protection
    If Sheets("NameSheet").cbProtectSheet.Value = True Then
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True
    Else
        ActiveSheet.Unprotect
    End If
                                                     End Sub



Name the cell where you add a checkbox. I used the ActiveX checkbox, not the form checkbox.


I named the cell cbProtectSheet and selected Add Macro. Name your worksheet and substitute it for :NameSheet" in the code.


Any questions?  Send an email to paquette@affordabletrialparalegal.com