Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1292to1296
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
1292to1296
1292to1296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen ein-/ausblenden mit Kennwort

Zeilen ein-/ausblenden mit Kennwort
21.01.2013 10:46:34
Wolfango
Hallo Experten,
folgender VBA-Wunsch:
In einer Excel-Datei existieren 20 geschützte Arbeitsblätter (KW ist jeweils „Test“).
a.) In den Blätter 3-18 (jeweils unterschiedliche Namen) sollen via VBA-Code jeweils die Zeilen 7 bis 18 ausgeblendet werden (die KW-Eingabe des Blattschutzes soll Bestandteil des Makros sein, also nicht abgefragt werden).
b.) Mit einem anderen Makro sollen die Zeilen 7 bis 18 wieder eingeblendet werden.
Aber: bei Start von Makro b.) (einblenden) soll eine weitere Kennworteingabe erforderlich sein („abcd)“.
Die KW-Eingabe des Blattschutzes soll aber ebenfalls Bestandteil dieses Makros sein, also nicht abgefragt werden.
Lässt sich das realisieren?
Vielen Dank vorab und Gruß,
Wolfgang

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ein-/ausblenden mit Kennwort
21.01.2013 11:12:52
haw
Hallo Wolfgang,
hier die zwei Möglichkeiten: 
Sub Einblenden()
For i = 3 To 18
With ThisWorkbook.Worksheets(i)
.Unprotect "abcd"
.Rows("7:18").Hidden = False
.Protect "abcd"
End With
Next i
End Sub


Sub Ausblenden()
For i = 3 To 18
With ThisWorkbook.Worksheets(i)
.Unprotect "Test"
.Rows("7:18").Hidden = True
.Protect "Test"
End With
Next i
End Sub
Gruß
Heinz

AW: Zeilen ein-/ausblenden mit Kennwort
21.01.2013 13:47:39
Wolfango
Danke!
Das AUSBLENDEN-Makro macht genau das, wass es soll!
Leider nicht das EINBLENDEN-Makro.
Es erscheint immer die Fehlermeldung "400",
Wenn ich nun beim EINBLENDEN-Makro im Code das Kennwort abändere in "Test" (s.untenstehender Code), dann läuft es einwandfrei durch und blendet wieder ein. Nur leider fehlt die zusätzliche PW-Abfrage.
Ich möchte ja, dass beim EINBLENDEN ein seperates Kennwort erforderlich ist (welches mit dem Arbeitsblatt-KW nichts zu tun hat).
Wenn es also gelänge untenstehenden Code dahingehend zu erweitern, dass vor Ausführung des Makros nochmal ein Dialogfeld erscheint welches diese separate PW abfragt (abcd) wäre ich am Ziel.
(...das KW soll verhindern, dass die Zeilen ohne selbiges wieder eingeblendet werden können)
Gruß,
Wo
Sub Einblenden()
For i = 3 To 18
With ThisWorkbook.Worksheets(i)
.Unprotect "Test"
.Rows("7:18").Hidden = False
.Protect "Test"
End With
Next i
End Sub

Anzeige
AW: Zeilen ein-/ausblenden mit Kennwort
21.01.2013 13:53:32
Klaus
Hallo Wolfango,
Etwas in der Art?
Sub Einblenden()
If Inputbox("Passwort eingeben:")="myPass" then
For i = 3 To 18
With ThisWorkbook.Worksheets(i)
.Unprotect "abcd"
.Rows("7:18").Hidden = False
.Protect "abcd"
End With
Next i
end if
End Sub

AW: Zeilen ein-/ausblenden mit Kennwort
21.01.2013 14:40:39
Wolfango
...super! jetzt funktioniert alles wie gewünscht!
Danke an alle!!

Danke für die Rückmeldung! owT.
21.01.2013 15:23:40
Klaus
.

AW: Zeilen ein-/ausblenden mit Kennwort
21.01.2013 13:49:08
Wolfango
...hatte vergessen das "Kontrollkästchen" zu aktivieren...Pardon!

AW: Zeilen ein-/ausblenden mit Kennwort
21.01.2013 15:34:20
haw
Hallo Wolfgang,
sorry, ich kam erst jetzt dazu, wieder hereinzuschauen.
Aber Klaus hat ja bravourös übernommen.
Gruß
Heinz
Anzeige

312 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