MsgBox to tell if worksheet is protected or not protected

[Cosmos75]

Here's what I have, am trying to run code depending on whether or not the worksheet is protected.

Sheets("SheetName").Select

If ActiveSheet.Unprotect = True Then
MsgBox ("Not Protected")
'Run Code 1 Here
Exit Sub
End If

If ActiveSheet.Protect = True Then
MsgBox ("Protected")
'Run Code 2 here
Exit Sub
End If

but this only seems to protect the sheet if it isn't protected and vice versa...

 

[dk]

Hi,

Your code is running the Protect method. You are not checking to see whether or not the sheet is protected. To do that, try something like this:-

    Sheets("SheetName").Select

    If Sheet1.ProtectContents = False Then
        MsgBox ("Not Protected")
        'Run Code 1 Here
        Exit Sub
    End If

    If ActiveSheet.ProtectContents = True Then
        MsgBox ("Protected")
        'Run Code 2 here
        Exit Sub
    End If

 

[Cosmos75]

Thanks!!

Ended up with this!

If Sheets("Permitted Constituents").ProtectContents = True Then
MsgBox "Sheet is protected"
'Code 1 here
Else
MsgBox "Sheet is unprotected"
'Code 2 here
End If