Worksheet.ProtectionMode (Excel)

True, wenn der ausschließliche Schutz für die Benutzeroberfläche aktiviert ist.

Dim booProtectionMode As Boolean
booProtectionMode = ActiveSheet.ProtectionMode