Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1864to1868
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
1864to1868
1864to1868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz aufheben VBA?

Blattschutz aufheben VBA?
18.01.2022 09:49:47
Herrmann
Hallo Community,
ich arbeite mit einer Exceldatei, welches 12 Arbeitsblätter besitzt. Nun musste ich ein Blattschutz einrichten (Schutz für Zellen wo drin Formeln stehen), da durch diverse MA des öfteren Formeln gelöscht oder geändert wurden. Wenn ich nun etwas an den besagten Zellen verändern möchte, muss ich für alle 12 Arbeitsblätter immer wieder den Schutz aufheben, es bearbeiten und den Schutz wieder für diese Zellen auflegen.
Gibt es ein VBA Code, womit ich mit einer Ausführung den Schutz für alle Arbeitsblätter aufheben und wieder für die gleichen Zellen anlegen kann ?
Ich bedanke mich Voraus.
Gruß

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz aufheben VBA?
18.01.2022 10:03:05
DuFF
Hi, ich konnte es so gelöst mittels Commandbutton und textfeld:

Private Sub CommandButton3_Click()
Dim i As Integer
Dim pw As String
pw = InputBox("bitte passwort eingeben")
If pw  "hier das passwort" Then
MsgBox "Passwort falsch"
Exit Sub
Else
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Unprotect Password:="schnee"
Next
End If
End Sub


Private Sub CommandButton4_Click()
Dim i As Integer
Dim pw As String
pw = InputBox("bitte passwort eingeben")
If pw  "hier das passwort" Then
MsgBox "Passwort falsch"
Exit Sub
Else
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Protect Password:="hier das passwort"
Next
End If
End Sub

Anzeige
AW: Blattschutz aufheben VBA?
18.01.2022 10:48:12
Herrmann
Hallo,
funktioniert prima, vielen dank!
Gruß
AW: Blattschutz aufheben VBA?
18.01.2022 10:16:43
migre
Hallo!
Als "Schalter" (also Blattschutz auf allen Blättern "an" bzw. "aus" im Wechsel) zB so:

Sub BlattschutzAlleAnAus()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim B As Worksheet
For Each B In Wb.Worksheets
Select Case B.ProtectContents
Case True
B.Unprotect "PASSWORT"
Case False
B.Protect "PASSWORT", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, AllowUsingPivotTables:=True
End Select
Next B
Set Wb = Nothing: Set B = Nothing
End Sub
Beachte: natürlich musst Du das entsprechende Passwort im Code (2x!) richtig setzen und für die Optionen beim Schutz, also der Teil hier

DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, AllowUsingPivotTables:=True
nutzt Du am Besten den Makrorekorder beim ersten manuellen Setzen des Blattschutzes, und kopierst Dir dann die entsprechend gewählten Optionen in diesen Code.
LG Michael
Anzeige
AW: Blattschutz aufheben VBA?
18.01.2022 10:48:41
Herrmann
Hallo,
auch diese Lösung funktioniert prima, vielen dank!
Gruß
Gern, Danke für die Rückmeldung, owT
18.01.2022 11:57:18
migre

304 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
Anzeige

Links zu Excel-Dialogen

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