Hallo,
benötige nochmals Hilfe.
Ich lasse hier per Makro ein bestimmtes Arbeitsblatt (hier AR) mit Passwortabfrage einblenden.
Da dies nur funktioniert, wenn der Arbeitsmappenschutz aufgehoben ist, wollte ich danach im Code den Schutz setzen lassen mit:
ActiveWorkbook.Protect Structure:=True, Windows:=False, Password:=licht
Ohne diese Zeile funktioniert alles prächtig.
Was ist unten im Code falsch?, Was habe ich übersehen?
' Arbeitsblatt AR einblenden
Dim PWBox As Variant
Dim PWInp As Variant
Sub Blatt_AR_einblenden()
Const strThisPWD = "sambuco"
Const strThisSheet = "AR"
PWBox = MsgBox("Soll " & "Blatt AR" & " aktiviert werden?", vbYesNo + vbExclamation, "Blatt AR aktivieren")
If PWBox = vbYes Then
PWInp = InputBox("Bitte das Passwort für das Blatt " & strThisSheet & " eingeben", "Passwortabfrage")
If PWInp = strThisPWD Then
Sheets(strThisSheet).Visible = xlSheetVisible
Sheets(strThisSheet).Activate
Else
MsgBox "Falsches Passwort!", vbOKOnly + vbCritical, "Nix da"
End If
End If
ActiveWorkbook.Protect Structure:=True, Windows:=False, Password:=licht
End Sub
Gruß Mario