masterphilch. here is one way

Sub testme()
With ActiveSheet
If .ProtectContents Then
MsgBox "Sheet is protected"
Else
MsgBox "Sheet is not protected"
End If
End With
End Sub

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2000 & 2003
** remove news from my email address to reply by email **

"masterphilch" wrote in message
...
How can I check through VBA if a worksheet is protectet or not?

thx