AW: Passwortgeschützt ja oder nein?
06.03.2004 10:02:14
Matthias G
Hallo Reinhard,
Folgende Funktion öffnet die Datei testweise mit leerem Passwort und schaut, ob ein Fehler entsteht. Ist bei großen Dateien allerdings nicht gerade schnell, wenn die Datei kein Kennwort hat, da sie ja geöffnet (und bei Erfolg gleich wieder geschlossen) wird.
Function HasPassword(fn As String) As Boolean
Application.ScreenUpdating = False
On Error GoTo HatPasswort
'Testhalber Öffnen mit leerem Passwort
Workbooks.Open fn, Password:=""
'kein Fehler, dann wieder schließen: Hat kein Passwort
On Error GoTo 0
ActiveWorkbook.Close
HasPassword = False
Application.ScreenUpdating = True
Exit Function
'Fehler beim Öffnen, dann hat sie Passwort (oder nicht vorhanden!)
HatPasswort:
On Error GoTo 0
HasPassword = True
Application.ScreenUpdating = True
End Function
Gruß Matthias