Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schaltflächen durch Passwortabfrage sichern

Schaltflächen durch Passwortabfrage sichern
20.02.2006 11:59:28
Konni
Hallo Freaks,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Danke, hat sich erledigt! oT
20.02.2006 14:22:28
Konni
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige