Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
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
1888to1892
1888to1892
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Admin-Passwort für alle Blätter(vers.PW)

Forumthread: Admin-Passwort für alle Blätter(vers.PW)

Admin-Passwort für alle Blätter(vers.PW)
08.07.2022 09:47:43
LeRayZ
Moin,
ich habe 5 verschiedene Arbeitsblätter in meiner Datei, welche mit .VeryHidden versteckt sind. Um sie wieder aufzudecken, habe ich 5 verschiedene Buttons, bei denen man ein Passwort eingeben muss (5 verschiedene Passwörter!)
Gibt es eine Möglichkeit, mit einem sechsten Button (sechtes Passwort) alle Blätter einzublenden, sodass man nicht alle Blätter einzeln öffnen muss?
Code für meine Button:

Sub cmdBlattAufruf_Total()
Dim sPassWord As String
sPassWord = InputBox("Paßwort eingeben:", , "")
Select Case sPassWord
Case "123"
With Worksheets("Total")
.Visible = True
.Select
End With
Case ""
Case Else
Beep
MsgBox "War wohl nix!"
End Select
End Sub
Code für das verstecken:

Sub Verbergen_Total()
Worksheets("Total").Visible = xlVeryHidden
End Sub
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Admin-Passwort für alle Blätter(vers.PW)
08.07.2022 10:09:04
migre
Hallo!
Für das aus-/einblenden mehrerer Blätter "auf einmal" kannst Du zB so vorgehen:

Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet
For Each Ws In Wb.Worksheets
Select Case Ws.Name
Case "Lorem", "ipsum", "dolor"
Ws.Visible = xlSheetVisible
End Select
Next Ws
Set Wb = Nothing: Set Ws = Nothing
End Sub
Die PW-Abfragen in den bisherigen Schaltflächen haben mit dem eigentlichen Aus-/Einblenden nichts zu tun, sondern werden nur schlagend beim Ausführen der Schaltfläche - d.h. genauso kannst Du dann auch für die weitere Schaltfläche, welche Blätter gleichzeitig aus-/einblendet, eine PW-Abfrage hinzufügen.
LG,
Michael
Anzeige
AW: Admin-Passwort für alle Blätter(vers.PW)
08.07.2022 10:50:10
LeRayZ
Hey perfekt vielen Dank!!
Ich habe jetzt mal so lange rumgebastelt bis ich ein Passwort eingeben kann, der Code lautet nun wie folgt und funktioniert bisher auch super!

Sub Show_All()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet
Dim sPassWord As String
sPassWord = InputBox("Paßwort eingeben:", , "")
Select Case sPassWord
Case "123"
For Each Ws In Wb.Worksheets
Select Case Ws.Name
Case "Total", "XXX", "XXX", "XXX", "XXX", "XXX", "XXX", "XXX", "XXX", "XXX", "XXX", "XXX", "XXX", "XXX", "XXX", "XXX"
Ws.Visible = xlSheetVisible
End Select
Next Ws
Set Wb = Nothing: Set Ws = Nothing
Worksheets("Total").Select
Case ""
Case Else
Beep
MsgBox "War wohl nix!"
End Select
End Sub

Anzeige
AW: Admin-Passwort für alle Blätter(vers.PW)
08.07.2022 10:11:14
Heli
Hi,
geht ganz einfach:

Select Case sPassWord
Case "123"
With Worksheets("Total")
.Visible = True
.Select
End With
Case "345"
With Worksheets("Total 2")
.Visible = True
.Select
End With
Case "MasterPW"
With Worksheets("Total 2")
.Visible = True
.Select
End With
With Worksheets("Total")
.Visible = True
.Select
End With
Case Else
Beep
MsgBox "War wohl nix!"
End Select
VG, Heli
Anzeige
;

Forumthreads zu verwandten Themen

Titel auf jedem gedruckten Blatt sichtbar
Jan

Hallo zusammen
ich möchte dass ein Titel auf jedem gedruckten Blatt sichtbar ist.
Bsp so:
Habe folgende Tabelle...
Artikel ______ Menge______Preis
darunter folgen etwa 5000 Zeilen mit Artikeln, deren Menge und deren Preise.
Jetzt möchte ich aber, dass wenn ich drucke, i...
19.06.2009 09:43:10
Thread-ID: 1082792
3 Beiträge
Anzeige
Autofilter über mehrere Tabellenblätter
Burk

Hallo,
ich habe mehre Blätter in einer Mappe mit jeweils einer großen Liste
Gibt es die Möglichkeit Datensätze mit einem bestimmten Feldeintrag über mehre Blätter hinweg gleichzeitig herauszufiltern, wie es der Autofilter mit einer Tabelle macht?
Vielleicht mit VBA?
Bin für alle...
02.07.2009 11:17:06
Thread-ID: 1085862
5 Beiträge
Passworte für alle Blätter
Bernd

Hallo,
mit folgendem Code belege ich sämtliche Blätter mit einem Passwort.
Das Problem ist, dass auch andere Arbeitsmappen auf sämtlichen Seiten einen Passwortschutz erhalten.
Das soll nicht sein. Nur in der einen Mappe sollen die Blätter geschüztz werden.
Was muss an dem Code g...
04.09.2009 18:22:14
Thread-ID: 1100680
3 Beiträge
Änderungsprotokoll! Aber NICHT für alle Blätter?
Gero

Hallo liebe Profis,
kurze Frage:
Ich will Änderungen meiner Arbeitsmappe / Tabellenblätter protokollieren.
Die tue ich durch:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim rng As Range For Each rng In Target watchChanges Sh.Name, rng.Address(0,...
18.11.2009 11:10:43
Thread-ID: 1118237
11 Beiträge
MIN über mehrere Blätter
Thomas

Hallo liebe Gemeinde,
und frohes neues Jahr erst einmal.
Ich möchte gerne einen Streckenrekord einer bestimmten Streckenlänge anzeigen lassen.
Hierzu habe ich mehrere Sheets mit Ergebnislisten aus den vergangenen Jahren mit Namen "2009", "2008" usw.
Darin befinden sich in Spalte...
02.01.2010 13:14:28
Thread-ID: 1126702
5 Beiträge
Änderung für alle Tabellenblätter übernehmen | Herbers Excel-Forum
Thomas
Hallo liebe VBAler
Ich hab eine Excel Datei mit 12 Tabellenblätter (Januar-Dezember).
Ände ich nun z.B. im Tabellenblatt Januar in Spalte A und B etwas, oder füge/lösche eine Zeile ein, dann soll er dies für alle anderen Tabellenblätter übernehmen.
Bis jetzt habe ich dies über Workshee...
14.01.2010 09:11:14
Thread-ID: 1129753
4 Beiträge
summe über mehrere Tabellenblätter
Volker

Hallo Liebe Excel- Gemeinde
In einem Forum habe ich mal eine Hinweis auf eine "Summen- Formel" gelesen, die aus einer Arbeitsmappe eine Summe aus allen Tabellenblätter dieser Mappe aus einer bestimmten Zelle zusammen bildet.
Also mein Problem ist
1. aus einer Arbeitsmappe immer die...
31.01.2010 13:23:17
Thread-ID: 1134569
6 Beiträge
Anzeige
Änderung in allen Worksheets
highman4

Hallo Excelfreunde,
Ich möchte eine Berechnung in allen Arbeitsblättern (ca. 150) vornehmen lassen.
Folgender Code:
Sub Bestellung_Ausloesen() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If Cells(10, 2) > Cells(9, 2) Then Cells(11, 2) = 0 Else Cells(11, 2) = Cells(...
05.02.2010 07:11:14
Thread-ID: 1135983
3 Beiträge
SUMMEWENN über mehrere Tabellenblätter
Wolf

Hallo, kann ich denn die Formel SUMMEWENN über mehrere Tabellenblätter anwenden?
Der Eintrag der Daten, mit denen abgeglichen werden soll, sind über eine selbst zu erstellende Liste mittels eines Klappmenüs auszuwählen.
Damit es nicht allzu abstrakt ist: Es handelt sich um ein Raumbuch...
10.02.2010 11:54:52
Thread-ID: 1137344
2 Beiträge
SUMMEWENN über mehrere Tabellenblätter
Wolf

Hallo, kann ich denn die Formel SUMMEWENN über mehrere Tabellenblätter anwenden?
Der Eintrag der Daten, mit denen abgeglichen werden soll, sind über eine selbst zu erstellende Liste mittels eines Klappmenüs auszuwählen.
Damit es nicht allzu abstrakt ist: Es handelt sich um ein Raumbuch...
10.02.2010 12:57:50
Thread-ID: 1137372
4 Beiträge
SUmme über mehrere Tabellenblätter bilden
Wolf

Hallo, ich hatte schon mal diese Frage gestellt, aber mit der Antwort kam ich nicht richtig weiter (10.2.10).
Ich muss die Formel SUMMEWENN über mehrere Tabellenblätter anwenden. Der Eintrag der Daten, mit denen abgeglichen werden soll, sind über eine auf einem eigenen Tabellenblatt selbst...
24.02.2010 12:24:40
Thread-ID: 1141005
9 Beiträge
Indirekt über mehrere Tabellenblätter
Jessica

Hallo,
ich habe ein Problem, für das ich bereits in einem älteren Thread eine Lösung gefunden habe. Leider funktioniert das bei mir nicht! :-(
Ich habe 12 Sheets mit den Namen "Januar" bis "Dezember"
Auf dem Übersichtsblatt möchte ich in D2 den Monat eingeben, z.B. März und dann sol...
27.02.2010 08:14:02
Thread-ID: 1141906
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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