VBA - How to check if a sheet is protected?

[hockeypuck]

How can I check if a sheet is protected?
This code below gives me a reply but then it also goes ahead and protects the sheet. I just want to check - not protect.

Private Sub Worksheet_Change(ByVal Target As Range)
If (ActiveSheet.Protect=true) Then MsgBox "Is protected"
End Sub

 

[Von Pookie]

That's because you are protecting the sheet within the If statement itself. ActiveSheet.Protect = True does just that--protects the sheet.

You want ProtectContents:

If ActiveSheet.ProtectContents = True Then
    MsgBox "Is protected"
Else
    MsgBox "Not protected"
End If

 

[hockeypuck]

What I really want to do is:

If ActiveSheet.Protect=true Then ActiveSheet.Protect userinterfaceonly:=True

If the sheet is protected (no password) then let macros run on the sheet.
If the sheet is unprotected then don't protect it.

 

[Von Pookie]

So, just change the If statement (untested):

If ActiveSheet.ProtectContents = True Then ActiveSheet.Protect UserInterfaceOnly:=True

 

[hockeypuck]

Thank you Pookie. It works. I hadn't seen your reply when I composed my second post.