Thomas Risi Softwareentwicklung
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
|
Copyright © 2001 - by Thomas Risi