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