Wenn der Anwender Tabelle 2 anklickt, soll erst eine Kennwort abfrage
stattfinden. Dann soll er erst den Inhalt sehen können.
Gruß
Sub BlattEinblenden()
Dim ePW As String
ePW = InputBox("Passwort eingeben:")
Select Case ePW
Case "XXX" 'dein Passwort!
With Worksheets("Tabelle2")
.Visible = True
.Select
End With
Case ""
Case Else
MsgBox "Passwort falsch"
End Select
End Sub
Der Schaltfläche das Makro zuweisen, fertig.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Save ' beim beenden speichern
End Sub
Könnte man hier was ändern?Private Sub workbook_open()
Sheets("Tabelle2").Visible = xlVeryHidden
End Sub
Gruß Pierre