wie kann ich in einer Arbeitsmappe einzelne Tabellenblätter mit einem Passwort versehen?
1000 Dank für einen Tip.
Gruß
Muckel
Private Sub CommandButton1_Click()
p = InputBox("Bitte geben Sie das Passwort ein:")
If p = "test" Then
Sheets("Tabelle2").Activate
Else
MsgBox "Passwort falsch", vbExclamation
End If
End Sub
Private Sub CommandButton1_Click()
If InputBox("Bitte Passwort eingeben:", "Passwortabfrage") = "Test" Then
Tabelle2.Visible = xlSheetVisible
Tabelle2.Activate
Exit Sub
Else
MsgBox "Passwort falsch"
Tabelle1.Activate
End If
End Sub
Private Sub Workbook_Open()
Tabelle2.Visible = xlSheetVeryHidden
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen