Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
160to164
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
160to164
160to164
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz mit Passwort aufheben-Passworteingabe

Blattschutz mit Passwort aufheben-Passworteingabe
17.09.2002 07:40:43
beckersbest
Guten Morgen,

ich muss in meiner Datei sämtliche Blätter mit einem Blattschutz versehen. Das geht per Makro ja auch ohne weiteres. Über den folgenden Befehl realisiere ich auch eine Passwortabfrage:

ActiveSheet.Protect Cells(12, 2), DrawingObjects:=True, Contents:=True, Scenarios:=True

wobei in der Zelle 12,2 das Passwort steht. Für den Administrator der Datei soll es möglich sein, den Blattschutz wieder aufzuheben. Das geht auch problemlos, allerdings muss das Passwort für jedes Blatt einzeln wieder neu eingegeben werden. Und nun meine Frage.

Ist es möglich, sämtliche Blattschutze durch nur eine Passworteingabe aufzuheben?

Für eine Antwort schon jetzt vielen Dank

Gruß
Thorsten

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Blattschutz mit Passwort aufheben-Passworteingabe
17.09.2002 08:12:58
andreas e
versuchs mal so:
Sub pw()
For i = 1 To Worksheets.Count
Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=TrueNext
Next
End Sub
gruß
andreas e
... hilft leider noch nicht weiter ...
17.09.2002 08:22:53
beckersbest
Guten Morgen Andreas,

vielen Dank für die schnelle Antwort. Aber leider löst das noch nicht mein Problem, denn das beinhaltet nicht, dass ich die Blätter nicht schützen kann, sondern dass, wenn ich den Schutz wieder per Makro aufheben möchte, für jedes Blatt das Passwort neu eingegeben werden muss. Und mein Ziel ist es, dass nur das einmalige Eingeben des Passwortes notwendig ist.

@Andreas
Sollte ich etwas falsch verstanden haben, so lasse ich mich gerne aufklären :-)

Gruß
Thorsten

Anzeige
Re: ... hilft leider noch nicht weiter ...
17.09.2002 08:33:19
andreas e
besser so ??

Sub pwrein()
For i = 1 To Worksheets.Count
Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=TrueNext
Next
End Sub
Sub pwraus()
For i = 1 To Worksheets.Count
Sheets(i).Unprotect
Next
End Sub

gruß
andreas e

... mühsam ernährt sich das Eichhörnchen ...
17.09.2002 08:44:18
beckersbest
... leider immer noch nicht ganz, aber wir kommen der Sache schon näher.

Also, grundsätzlich geht es um die Aufhebung des Blattschutzes. Allerdings wurde beim einstellen des Blattschutzes, ganz ähnlich Deinem Beispiel SUB pwrein(), noch ein Passwort übergeben, und zwar in folgender Form:

Sheets(i).Protect Sheets("Passwort-Blatt").Cells(12, 2), DrawingObjects:=True, Contents:=True, Scenarios:=True

wobei es ja durch 'Sheets("Passwort-Blatt")Cells(12,2)' möglich ist, den Inhalt dieser Zelle als Passwort zu vergeben. Beim Einstellen des Blattschutzes mit Passwort wird das in der Zelle befindliche Passwort für sämtliche Blätter verwendet.
Wenn nun alle Blattschutze über eine Deinem Beispiel sehr ähnliche SUB pwraus() wieder entfernt werden sollen, so wird leider bei jedem Blatt erneut das Passwort abgefragt, obwohl es ja durch den absoluten Zellbezug immer das Gleiche ist. Und dort setzt meine Frage an, ob es denn nicht möglich ist, nach einmaliger Eingabe des Passwortes eine erneute Abfrage zu unterdrücken und das beim ersten Mal eingegeben Passwort für die anderen Blätter zu übergeben.

Gruß
Thorsten

Anzeige
Re: ... mühsam ernährt sich das Eichhörnchen ...
17.09.2002 09:06:30
andreas e
und so ?

Sub pwrein()
For i = 1 To Worksheets.Count
Sheets(i).Protect Sheets("Passwort-Blatt").Cells(12, 2), DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub
Sub pwraus()
For i = 1 To Worksheets.Count
Sheets(i).Unprotect Sheets("Passwort-Blatt").Cells(12, 2)
Next
End Sub

gruß
andreas e

... so geht's, besten Dank!
17.09.2002 09:19:23
beckersbest
So, das funktioniert, hätte nicht gedacht, dass der umgekehrte Weg auch funktioniert. Aber Hauptsache, es läuft. Vielen Dank noch mal

Gruß
Thorsten

318 Forumthreads zu ähnlichen Themen

Passwortabfrage ohne Blattschutz zu umgehen, wie?
Thomas

Hi, in meiner Tabelle sind diverse Zellen durch den Blattschutz geschützt. Nachbahrzellen sind jedoch für eine Bearbeitung freigegeben. Aber, um sie vor unbefugten ausfüllen zu schützen habe ich mir diesen code ausgeliehen und angepasst.
' Private Sub Worksheet_SelectionChange(ByVal target...
24.11.2008 14:21:54
Thread-ID: 1027314
3 Beiträge
Anzeige
VBA Kennwortschutz aufheben & setzen Problem
Andreas

Hallo Herber Fans,
ich habe hier schon im Forum gesucht und auch einen Code gefunden. Es geht um das temporäre Aufheben des VBA Kennwortes im VBA Editor. Das Kennwort in der Beispieldatei ist „test“.
Die Datei wird geöffnet, ein Button wird kreiert. Wenn ich auf diesen Button klicke, er...
03.07.2009 21:26:13
Thread-ID: 1086309
7 Beiträge
Aus-Einblenden / Makroschutz aufheben
juergen

Hallo zusammen,
hoffe Ihr habt Ostern gut überstanden.
Hab u. stehendes Makro und muss den Schutz aufheben, damit er Tabellenblätter einblendet. Kann mir bitte jemand weiterhelfen?
Für Eure Bemühungen,....... danke ich schon jetzt:)
Gruß
Juergen
Sub blättern1() ' blätter...
26.04.2011 15:44:26
Thread-ID: 1211836
3 Beiträge
Anzeige
Blattschutz ohne passwortabfrage
Svenja

Hallo,
ich habe eine Excel-Datei mit mehreren Reitern.
In Tabellenblatt "Beiträge" habe ich einige Zahlen. Diese werden über ein weiteres Tabellenblatt über Button selektiert und bestimmte Daten daraus kopiert und in mein weiteres Tabellenblatt eingefügt.
Da ich im Tabellenblatt "Be...
19.12.2012 21:09:09
Thread-ID: 1291604
4 Beiträge
VBA Code Tabellenschutz mit Passwort
Max

Hallo zusammen,
hat jemand ein Standard VBA Code um ein Tabellenblatt ("Tabelle1") einzublenden. Das Einblenden der Tabelle soll über ein CommandButton inklusive einer Passwortabfrage erfolgen. Ebenso soll das spätere Ausblenden der Tabelle über einen CommandButton erfolgen.
Danke im vo...
28.12.2012 11:37:27
Thread-ID: 1292225
5 Beiträge
Makro: Blattschutz PW setzen/aufheben
Thms

Liebes Forum,
ich möchte gerne mehrere Tabellenblätter per Makro mit einem Passwort schützen lassen. (Das Passwort soll bereits im Makro stehen.) Hierzu habe ich folgenden Code gefunden: Sub Schutz() Dim i As Long For i = 1 To Sheets.Count Sheets(i).Protect "123" Next i MsgBox "alle Blätter...
28.06.2013 13:59:33
Thread-ID: 1320297
7 Beiträge
VBA - "Aus dem Web" mit Passwort
Timonski

Servus...
ich muss mich bei einer Internetseite mit Benutzer und Passwort einloggen.
nach dem einloggen, wollte ich gerne die Seite/n nach Excel importieren.
das Problem ist, er loggt sich nicht ein...
bei den ersten Schritten (FETT) loggt er sich auf der Seite ein... funktionie...
08.05.2014 15:23:16
Thread-ID: 1360536
5 Beiträge
Vor Makro Blattschutz aufheben: Sicherheitsabfrage
Michael Kl.

Hallo zusammen,
ich habe ein Makro zur Aufhebung des Blattschutzes erstellt.
Vor der endgültigen Deaktivierung des Schutzes soll eine Abfrage erscheinen, ob der Schutz wirklich deaktiiert werden soll. Ihr kennt diese Abfragen mit Sicherheit von Windows. Dort hat man die Möglichkeit, bei i...
17.07.2002 12:39:18
Thread-ID: 137441
3 Beiträge

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
2
26
6
2
1
3
4
6
4
2
10
3
2
5
5
1
3
1
9
4
7
3
3
1
2