Funktion
Diese Funktion prüft, ob das VBA-Projekt (durch ein Passwort) geschützt ist.
Code
Public Function IstProjektGeschützt() As Boolean
IstProjektGeschützt = CBool(Application.VBE.ActiveVBProject.Protection)
End Function
Beschreibung
Es wird die Eigenschaft "Protection" des VBA-Projektes abgerufen.
Verweise
Damit dieser Code funktioniert, ist folgender Verweis erforderlich: