Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
16.04.2024 16:22:58
Pivot
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
780to784
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
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz global mit VBA aufheben

Blattschutz global mit VBA aufheben
20.07.2006 13:46:37
Claudia
Hallo alle zusammen,
wenn ich mit dem Makrorecorder aufzeichne, zeigt er mir anschließend nicht das Passwort an.
Mein Problem ist, das ich eine Datei habe mit 15 Blättern und alle sind mit dem gleichen Passwort geschützt.
Wenn ich nun alle geschützten Blätter aufheben möchte, was muss ich dann schreiben? Wenn möglich auch für das setzten wieder.
Das Passwort ist mir bekannt und lautet claudia. &lt-- Sinnig ne?
Kann mir jemand bitte helfen, da ich regelmäßig etwas in jedem Blatt eintragen muss und das manuelle Aufheben und wieder schützen extrem langatmig ist.
Vielen Dank Gruß Claudia

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

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz global mit VBA aufheben
20.07.2006 13:57:00
OttoH
Hallo Claudia,
folgende Makros schützen / entschützen alle Tabellen in der Mappe:

Sub Schutz_rein()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Sheets
Blatt.Protect Password:="Claudia", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub



Sub Schutz_raus()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Sheets
Blatt.Unprotect ("Claudia")
Next
End Sub

gruß OttoH
Danke Otto hilft mir ungemein. o.T.
20.07.2006 14:08:26
Claudia
AW: Blattschutz global mit VBA aufheben
20.07.2006 14:13:19
IngGi
Hallo Claudia, hallo Otto,
gestattet mir eine kleine Korrektur. Wenn die Arbeitsmappe neben Tabellenblättern auch Diagrammblätter enthält, führen die beiden Makros zu Laufzeitfehlern, weil ein Diagrammblatt eben kein Worksheet ist (Typen unverträglich).
Wenn du neben Tabellenblättern auch Diagrammblätter schützen willst, solltest du die Variable Blatt daher nicht "As Worksheet", sondern "As Object" deklarieren. Willst du dagegen nur Tabellenblätter schützen, deklarierst du die Variable Blatt "As Worksheet", verwendest aber statt der Auflistung "ActiveWorkbook.Sheets" die Auflistung "ActiveWorkbook.Worksheets".
Gruß Ingolf
Anzeige
AW: Blattschutz global mit VBA aufheben
20.07.2006 14:52:29
OttoH
Hallo Ingolf,
Korrektur gestattet und auch gerne angenommen.
Danke
OttoH
AW: Blattschutz global mit VBA aufheben
20.07.2006 15:58:13
Claudia
Hallo Ingolf,
danke für den Zusatztip, haber aber keine Grafikblätter gespeichert. Werde mir trotzdem Deine Anmerkung merken.
Gruß
Claudia

25 Forumthreads zu ähnlichen Themen

Sortierungs-Makro über allen Tabellenblätter
Luke

Hi!
Mein Thema wurde hier schon öfters behandelt, doch es scheint als sei ich nicht Fähig das hinzukriegen. Ich möchte gerne mit einem Makro mehrere Tabellenblätter ansprechen. Ziel: Beim Klick auf den Button sollten sich 13 Tabellenblätter (simultan) absteigend (nach Spalten E und F) sorti...
27.08.2009 15:43:30
Thread-ID: 1099010
3 Beiträge
Anzeige
Blattschutz für alle Arbeitsblätter aufheben
Wolfango

Guten Morgen,
ich suche einen VBA-Code, mit welchem ich auf einen Schlag für alle (Anzahl beliebig) in einer Datei vorhandenen Arbeitsblätter den Blattschutz aufheben kann (bei bekanntem Passwort).
Danke!
Gruß,
Wo.
06.05.2011 09:23:08
Thread-ID: 1213302
3 Beiträge
Makro auf alle Tabellenblätter laufen lassen
Teggnodd

Hallo,
ich habe ein digitales Oszilloskop mit dem ich alle paar Minuten Werte aufnehmen will, dazu benutze ich Excel. Ich habe mir schon ein kleines Makro zum auslesen der Werte erstellt, hat auch ganz gut Funktioniert. Nun möchte ich aber auch ein Diagramm zu den Werten haben. Dazu habe ic...
13.12.2011 11:19:06
Thread-ID: 1241841
7 Beiträge
Anzeige
Makro - für allen Tabellenblätter gültig
Herbert

Hallo,
wie kann man dieses Makro abändern, dass auf es nicht nur auf dem aktuellen Tabellenblatt sondern auf allen Blättern der Datei ausgeführt wird?
Sub spalte_c_ausblenden() ' spalte_c_ausblenden Makro Columns("C:C").Select Selection.EntireColumn.Hidden = True End Sub vielen Dank im...
14.11.2012 16:54:04
Thread-ID: 1286665
7 Beiträge
Makro auf alle Blätter anwenden
Marco#

Hallo,
ich beschäftige mich erst seit sehr kurzer Zeit mit tiefergehend mit Excel und bin noch gänzlich unerleuchtet.
Ich habe ein Makro, das ich auf alle Arbeitsblätter anwenden möchte. Es handelt sich dabei um exportierte Datensätze bei denen die Zahlen als Text formatiert sind. Die r...
28.12.2012 15:44:43
Thread-ID: 1292259
3 Beiträge
alle Arbeitsblätter gemeinsam schützen
Andreas

Hallo und guten morgen,
ich wollte mal was nachfragen.
Gibt es eine Möglichkeit einen Blattschutz auf alle Arbeitsblätter, bei mir 5 Stck,
gleichzeitig anzuwenden. Ich möchte, das meine Kollegen die Datei öffnen können, die Daten sehen können, aber nix ändern dürfen.
Da ich abe...
21.01.2016 09:05:44
Thread-ID: 1470136
13 Beiträge
Blattschutz aufheben per VBA mit man. PW-Eingabe?
Juergen

Hallo zusammen,
vielleicht könnt Ihr mir nochmal mit einem Problem weiterhelfen.
Ich möchte eine Datei mit vielen Arbeitsblättern (über 40) den Arbeitsblattschutz für alle Arbeitsblätter gleichzeitig per Makro aufheben.
Das ist soweit kein Problem, wenn ich das PW in das Makro reins...
03.06.2016 09:44:32
Thread-ID: 1496616
4 Beiträge
Makro erweitern auf alle Tabellenblätter
Andreas

Hi
Ich habe ein Makro das für meine Zwecke super funktioniert. Dies würde ich aber gern so umgeschrieben haben, das es nach der Zahl "1" in allen Tabellenblättern sucht und nicht nur in Tabelle1. Ich bin mir sicher, ihr könnt mir da helfen. Sub BedingteKopieZeilen() Dim Zeile As Long Dim Z...
08.02.2017 17:07:53
Thread-ID: 1540297
5 Beiträge
Anzeige

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
7
2
6
8
6
2
12
3
4
1
2
3
3
4
9
3
2
3
11
1
3
5
5
4