VBA-Schutz abfragen....Code gibt #NAME! zurück
16.01.2006 09:05:29
Peter
hab etwas recherchiert und diesen Code in einem Beitrag von Nepumuk gefunden. Ich habe ihn eingegeben(in DieseArbeitsmappe), abgespeichert und geschlossen, wieder geöffnet und dann in eine Zelle eingegeben: "= vba_schutz()". Der Rückgabewert soll dann ja entweder "#WAHR!" oder "#FALSCH!" sein. Bei mir jedoch kommt die Meldung: "#NAME!".
Weiss jemand wo da der Fehler liegt?
Option Explicit
Public
Function VBA_Schutz() As Boolean
VBA_Schutz = ThisWorkbook.VBProject.Protection
End Function
Vielen Dank
Peter S.