Worksheet.ProtectContents (Excel)

True, wenn der Inhalt des Blatts geschützt ist. 


Dim booProtectContents As Boolean
booProtectContents = ActiveSheet.ProtectContents