Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
16.10.2025 13:18:36
Übersicht von Excel Konstanten
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1936to1940
1936to1940
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Passwort um Tabellenblätter einzublenden

Forumthread: Passwort um Tabellenblätter einzublenden

Passwort um Tabellenblätter einzublenden
21.07.2023 08:37:12
Lisa
Hi Leute

wie kann ich meinen bestehenden Code um eine Passwortabfrage ergänzen?

Private Sub AdminOn_Click()

Me.AdminOn.Visible = False
Me.AdminOn2.Visible = True
Me.AdminOff.Visible = True
Me.AdminOff2.Visible = False
'Dektivierung des Passwortschutzes


Sheets("Pivot").Visible = True
Sheets("TARF Data").Visible = True
Sheets("DC Data").Visible = True
Sheets("FX Swaps DB").Visible = True
Sheets("01-24").Visible = True
Sheets("02-24").Visible = True
Sheets("03-24").Visible = True
Sheets("4329").Visible = True
Application.Run "sheets_show"

End Sub

LG Lisa
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Passwort um Tabellenblätter einzublenden
21.07.2023 08:47:19
Lisa
Habs grad selber rausgekriegt :-)

If Application.InputBox("Bitte geben Sie ein Passwort ein!", "Passwortabfrage") = "Glubberer" Then
Rem:

Me.AdminOn.Visible = False
Me.AdminOn2.Visible = True
Me.AdminOff.Visible = True
Me.AdminOff2.Visible = False
'Dektivierung des Passwortschutzes


Sheets("Pivot").Visible = True
Sheets("TARF Data").Visible = True
Sheets("DC Data").Visible = True
Sheets("FX Swaps DB").Visible = True
Sheets("01-24").Visible = True
Sheets("02-24").Visible = True
Sheets("03-24").Visible = True
Sheets("4329").Visible = True
Application.Run "sheets_show"

Else
MsgBox "Sie haben keine Admin-Berechtigung!", vbCritical, "Zugriff verweigert"
End If

End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige