I need to systematically determine if a worksheet is protected or not, so
then I can create the if statement to do some events if the worksheet is
protected and other events if it is not protected.

I thought I would be able to do so via the worksheets properties, but am now
very confused.

ANy and All Help Is Appreciated - Thank You

I am not too sure which level of protection you need to catch (probably
contents) but here is a function...

Sub TestProtection()
MsgBox IsProtected(Sheet1)
MsgBox IsProtected(Sheet2)

End Sub

Public Function IsProtected(ByVal wks As Worksheet) As Boolean

If wks.ProtectContents = True Or _
wks.ProtectDrawingObjects = True Or _
wks.ProtectScenarios = True Then
IsProtected = True
Else
IsProtected = False
End If

End Function
--
HTH...

Jim Thomlinson


"MWS" wrote:

I need to systematically determine if a worksheet is protected or not, so
then I can create the if statement to do some events if the worksheet is
protected and other events if it is not protected.

I thought I would be able to do so via the worksheets properties, but am now
very confused.

ANy and All Help Is Appreciated - Thank You

Thank You Jim - I Appreciate Your Help!!!!

"Jim Thomlinson" wrote:

I am not too sure which level of protection you need to catch (probably
contents) but here is a function...

Sub TestProtection()
MsgBox IsProtected(Sheet1)
MsgBox IsProtected(Sheet2)

End Sub

Public Function IsProtected(ByVal wks As Worksheet) As Boolean

If wks.ProtectContents = True Or _
wks.ProtectDrawingObjects = True Or _
wks.ProtectScenarios = True Then
IsProtected = True
Else
IsProtected = False
End If

End Function
--
HTH...

Jim Thomlinson


"MWS" wrote:

I need to systematically determine if a worksheet is protected or not, so
then I can create the if statement to do some events if the worksheet is
protected and other events if it is not protected.

I thought I would be able to do so via the worksheets properties, but am now
very confused.

ANy and All Help Is Appreciated - Thank You