Masterpasswort
22.03.2021 16:57:39
Shapeir
ich möchte eine Datei mit einem normalem und einem Masterpaswort schützen.
Hierzu habe ich folgendes gefunden:
https://www.herber.de/forum/archiv/1228to1232/1228509_Datei_mit_Masterkennwort.html
Private Sub Workbook_Open()
'Passwortabfrage mit Masterpasswort
Application.ScreenUpdating = False
Dim pw As String
If Sheets("Tabelle1").Range("A1").Value "" Then
pw = InputBox(prompt:="Bitte geben Sie Ihr selbstgewähltes Individualkennwort ein!", Title:=" _
_
Passwort-Abfrage")
If pw Sheets("Tabelle1").Range("A1").Value Then
ThisWorkbook.Close savechanges:=False
'Hier die Prüfung: wenn Masterpasswort aus Zelle B1 eingegeben wird, dann auch das Öffnen zu _
lassen, Dietmar aus Aachen
End If
End If
ThisWorkbook.Protect Structure:=True, Password:="12345678"
Application.ScreenUpdating = True
End Sub
Allerdings funktiobiert es nicht, heirzu wurde fiolgender vermerk gemacht:
der 2. Vergleich ist nicht da. If pw CStr(Sheets("Tabelle1").Range("A1")) And pw CStr(Sheets("Tabelle1").Range("B1")) _ Then Gruß Hajo
Allerdings weis nich nicht wo ich den Zusatz eintareg muss?
Vielen Dank für eure Hilfe udn einen schönen Abend.