Schaltflächen durch Passwortabfrage sichern
20.02.2006 11:59:28
Konni
in meiner Arbeitsmappe sind alle Tabellen passwortgeschützt. In einer Tabelle davon befinden sich 2 Schaltflächen, die verschiedene Tabellen der Mappe ein- bzw. ausblenden.
Nun möchte ich diese Schaltflächen per Passwortabfrage schützen, d.h., dass das Makro erst startet, wenn das richtige Passwort eingegeben wurde. Für jede Schaltfläche brauche ich ein anderes Passwort.
Sub Register_ausblenden()
Select Case Environ("UserName")
Case ("Username")
Worksheets("Nachtragsübersicht").Visible = True
Worksheets("Gesprächsprotokoll").Visible = True
Worksheets("Protokolltext").Visible = True
Case Else
Worksheets("Nachtragsübersicht").Visible = False
Worksheets("Gesprächsprotokoll").Visible = False
Worksheets("Protokolltext").Visible = False
End Select
End Sub
Sub Register_einblenden()
Select Case Environ("UserName")
Case ("Username")
Worksheets("Nachtragsübersicht").Visible = False
Worksheets("Gesprächsprotokoll").Visible = False
Worksheets("Protokolltext").Visible = False
Case Else
Worksheets("Nachtragsübersicht").Visible = True
Worksheets("Gesprächsprotokoll").Visible = True
Worksheets("Protokolltext").Visible = True
End Select
End Sub
Wie muss vorstehender Code geändert werden?
Vielen Dank für die Unterstützung
Gruß
Konni