Snasui Excel Forum

Code: Select all

Sub Protect()
        Dim formBook As Workbook
        Set formBook = ThisWorkbook
        If Sheets("Sheet1") = "Protect" Then
            formBook.Activate
            ActiveSheet.Unprotect
        Else
            formBook.Activate
            ActiveSheet.Protect
        End If
End Sub

Code: Select all

With Sheets("Sheet1")
    If .ProtectContents = True Then .Unprotect Else .Protect
End With