How do I detect the protection status of worksheet in VBA 1

[bkh]

Can anyone help.
If possible I would like to be able to detect if a worksheet in Excel97 is protected or unprotected so that a macro (vba subroutine) can unprotect if needed without user intervention and then protect after running.
Thanks

 

[dsi]

Is this what you are looking for?

Sub test()
    Dim ws As Worksheet
    Set ws = Sheets("Sheet2")
    If ws.ProtectContents = True Then
        MsgBox "The contents of Sheet2 is protected."
        ws.Unprotect
    Else
        MsgBox "The contents of Sheet2 is unprotected."
    End If
    Set ws = Nothing
End Sub

 

[bkh]

Thanks dsi, that was exactly what I was looking for. It works fine.