ich möchte die Tabelle 1 in einer Arbeitsmappe per Paßwort schützen. Weiß jemand, wie das geht.
Vielen Dank für eure Hilfe
mesu
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim strAnzeige As String
If ActiveSheet.Name = "Tabelle1" Then
Application.EnableEvents = False
Worksheets("Tabelle2").Activate
strAnzeige = InputBox("Bitte das Passwort eingeben")
If strAnzeige "Passwort" Or strAnzeige = "" Then
MsgBox "Falsches Passwort"
Else
Worksheets("Tabelle1").Activate
End If
Application.EnableEvents = True
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Tabelle2").Activate
End Sub
Diesen Code ins Klassenmodul DieseArbeitsmappe.
Bis später,
Karin