Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1892to1896
1892to1896
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Zeilen per Passwort ein- und ausblenden

Forumthread: Zeilen per Passwort ein- und ausblenden

Zeilen per Passwort ein- und ausblenden
21.07.2022 17:25:31
Daniela
Hallo liebe Leute
Kann mit jemand einen Tipp geben, wie ich in einem Excel bestimmte Zeilen aus- und nach bedarf wieder einblenden kann (mittels Passwortabfrage)?
liebe Grüsse
Daniela
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen per Passwort ein- und ausblenden
21.07.2022 17:39:15
Oberschlumpf
Hi Daniela,
z Bsp so:
https://www.herber.de/bbs/user/154292.xlsm
In der DAtei werden die Zeilen 1+2 ein/ausgeblendet.
PW = test
Hilfts?
Ciao
Thorsten
AW: Zeilen per Passwort ein- und ausblenden
21.07.2022 17:40:18
Nepumuk
Hallo Daniela,
Rechtsklick auf den Tabellenreiter - Code anzeigen. Folgende Prozedur einfügen:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const PASSWORD As String = "GEHEIM" 'Kennwort anpassen !!!
If Target.Address = "$A$1" Then
If Range("A5:A10").EntireRow.Hidden Then
If InputBox("Kennwort eingeben:", "Eingabe") = PASSWORD Then
Call Unprotect(PASSWORD:=PASSWORD)
Range("A5:A10").EntireRow.Hidden = False 'Zeilen anpassen !!!
Call Protect(PASSWORD:=PASSWORD)
Cancel = True
End If
Else
Call Unprotect(PASSWORD:=PASSWORD)
Range("A5:A10").EntireRow.Hidden = True 'Zeilen anpassen !!!
Call Protect(PASSWORD:=PASSWORD)
Cancel = True
End If
End If
End Sub
Durch einen Doppelklick in A1 wirst du zur Eingabe eines Kennwortes (im Beispiel GEHEIM) aufgefordert. nach der Eingabe werden die Zeilen 5-10 eingeblendet. Ein weiterer Doppelklick blendet die Zeilen wieder aus.
Gruß
Nepumuk
Anzeige
AW: Zeilen per Passwort ein- und ausblenden
21.07.2022 22:03:33
Daniela
Vielen lieben Dank für eure Hilfe. Ich hatte einen Totalen Systemausfall, daher habe ich erst jetzt eure Antworten lesen können. Ich probiere die Makros mal aus und gebe dann Rückmeldung.
lg Daniela
AW: Zeilen per Passwort ein- und ausblenden
21.07.2022 22:36:03
Daniela
Hallo Nepumuk
Dein Skript entspricht dem was ich suche. Ich habe es noch ein wenig auf meine Bedürfnisse angepasst (Zeile A3 und A5 werden ausgeblendet).

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const PASSWORD As String = "GEHEIM" 'Kennwort anpassen !!!
If Target.Address = "$A$1" Then
If Range("A3,A5").EntireRow.Hidden Then
If InputBox("Kennwort eingeben:", "Eingabe") = PASSWORD Then
Call Unprotect(PASSWORD:=PASSWORD)
Range("A3,A5").EntireRow.Hidden = False 'Zeilen anpassen !!!
Call Protect(PASSWORD:=PASSWORD)
Cancel = True
End If
Else
Call Unprotect(PASSWORD:=PASSWORD)
Range("A3,A5").EntireRow.Hidden = True 'Zeilen anpassen !!!
Call Protect(PASSWORD:=PASSWORD)
Cancel = True
End If
End If
End Sub
Gibt es noch eine Möglichkeit den Blattschutzcode unabhängig vom Code (GEHEIM) fest zulegen (das heisst den Blattschutzcode nicht zu verändern)?
Anzeige
AW: Zeilen per Passwort ein- und ausblenden
21.07.2022 23:13:25
Daniela
Ich habe noch etwas gepröbelt und habe es jetzt hinbekommen. Jetzt habe ich als Blattschutz PASSWORD und um die Zeile einzublenden GEHEIM.
Ist das richtig so?

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const PASSWORD As String = "GEHEIM" 'Kennwort anpassen !!!
If Target.Address = "$A$1" Then
If Range("A3,A5").EntireRow.Hidden Then
If InputBox("Kennwort eingeben:", "Eingabe") = PASSWORD Then
Call Unprotect(PASSWORD:="PASSWORD")
Range("A3,A5").EntireRow.Hidden = False 'Zeilen anpassen !!!
Call Protect(PASSWORD:="PASSWORD")
Cancel = True
End If
Else
Call Unprotect(PASSWORD:="PASSWORD")
Range("A3,A5").EntireRow.Hidden = True 'Zeilen anpassen !!!
Call Protect(PASSWORD:="PASSWORD")
Cancel = True
End If
End If
End Sub

Anzeige
AW: Zeilen per Passwort ein- und ausblenden
22.07.2022 13:20:26
Nepumuk
Hallo Daniela,
sieht gut aus.
Gruß
Nepumuk
AW: Zeilen per Passwort ein- und ausblenden
22.07.2022 14:24:09
Daniela
Hallo Nepumuk
Vielen Dank! Auch vielen Dank für deine spontane Hilfe, bin dir (euch) sehr dankbar.
lg Daniela
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum