Thomas Risi Softwareentwicklung

CheckPassword

Die Funktion überprüft, ob eine geschützte Tabelle mit einem Passwort versehen ist.

Option Explicit Public Function CheckPassword(ws As String) As Boolean On Error GoTo 10 ' Einen Fehler durch irgendein Phantasie-Passwort provozieren ... ThisWorkbook.Sheets(ws).Unprotect "unsinnigespasswort" Exit Function 10: CheckPassword = True End Function

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)