Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1892to1896
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1892to1896
1892to1896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen per Passwort ein- und ausblenden

Zeilen per Passwort ein- und ausblenden
21.07.2022 15: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

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen per Passwort ein- und ausblenden
21.07.2022 15: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 15: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 20: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 20: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 21: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 11:20:26
Nepumuk
Hallo Daniela,
sieht gut aus.
Gruß
Nepumuk
AW: Zeilen per Passwort ein- und ausblenden
22.07.2022 12:24:09
Daniela
Hallo Nepumuk
Vielen Dank! Auch vielen Dank für deine spontane Hilfe, bin dir (euch) sehr dankbar.
lg Daniela

304 Forumthreads zu ähnlichen Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige
Register ein- und ausblenden
HaKa

Hallo Forum
Wie lautete der VBA-Code um z.B. das Register "Tabelle3" aus-, resp. wieder einzublenden?
Gruss Heinz
14.09.2008 15:40:00
Thread-ID: 1009597
5 Beiträge
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Anzeige
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 Beiträge
Zeilen Ein. und Ausblenden
KayR

Hallo,
würde gerne folgendes realisieren, hab aber von VBA
kaum Ahnung.
Wenn Tabelle2!A8 = FALSCH, dann sollen in Tabelle1 die
Zeilen 8,9,10 ausgeblendet werden.
Wenn Tabelle2!A8 = WAHR, dann sollen die Zeilen 8,9,10
wieder eingeblendet werden.
Kann mir jemand bitte...
27.01.2009 20:09:00
Thread-ID: 1044366
6 Beiträge
Ein-/Ausblenden v. Arbeitsblättern mit VBA
Lenni

Moin Excellianer!
Mit folgendem Code "Sheets("Tabelle1").Visible = False" in einem UserForm blende ich die Tabelle 1 und 2 aus. Mit "True" für "False" blende ich sie wieder ein.
Das Ganze hat nur den Nachteil, dass man die Tabelle 1 und/oder 2 über das Menü "Format > Blatt > Einbl...
01.02.2009 00:12:00
Thread-ID: 1045802
4 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
4
3
5
1
1
4
5
3
3
4
2
2
5
6
6
7
5
2
3
21
5
7
8