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)