Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
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
ThisWorkbook.Sheets(ws).Unprotect "unsinnigespasswort"
Exit Function
10:
CheckPassword = True
End Function
© 2001 -
by Thomas Risi