ich habe in meiner Excel-Datei einige Blätter. jetzt möchte ich, dass das
Blatt "Tagesabschluss" nur angezeigt wird, wenn vorher ein Passwort eingegeben wurde.
Geht das?
Danke im Voraus.
Private Sub Workbook_Open()
Dim s As String
s = InputBox("Bitte Passwort eingeben")
If s = "Mach auf" Then Sheets("Tagesabschluss").Visible = True
If s <> "Mach auf" Then MsgBox ("Falsches Passwort")
Sheets("Irgendein anderes Blatt").Activate
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Tagesabschluss").Visible = xlVeryHidden
End Sub