Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
904to908
904to908
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz in mehreren Blättern aufheben

Forumthread: Blattschutz in mehreren Blättern aufheben

Blattschutz in mehreren Blättern aufheben
10.09.2007 13:12:00
Robert
Hallo Leute,
eine wahrscheinlich einfache Frage:
Ich möchte durch ein Makro in mehreren Blättern den Blattschutz aufheben. Der Makrorekorder spuckt mir einen recht umfangreichen Code aus. Habt ihr ne Ahnung, ob man den kürzen kann? Evtl. alle Blätter aufeinamal auswählen und dann den Blattschutz aufheben?
Mein Beispiel:
Sheets("Ratenprofil").Select
ActiveSheet.Unprotect Password:="xxx"
Sheets("Rates MD").Select
ActiveSheet.Unprotect Password:="xxx"
Sheets("Rates SD").Select
ActiveSheet.Unprotect Password:="xxx"
Sheets("Rates USND").Select
ActiveSheet.Unprotect Password:="xxx"
Sheets("Zoning").Select
ActiveSheet.Unprotect Password:="xxx"
Sheets("COB_Stdk").Select
ActiveSheet.Unprotect Password:="xxx"
Sheets("MD_Stdk").Select
ActiveSheet.Unprotect Password:="xxx"
Sheets("SD_Stdk").Select
ActiveSheet.Unprotect Password:="xxx"
Sheets("USND_Stdk").Select
ActiveSheet.Unprotect Password:="xxx"

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz in mehreren Blättern aufheben
10.09.2007 13:15:00
Jan
Hallo Robert,
durchlaufe doch eine Schleife durch alle Arbeitsblätter:

Sub schutzaufheben()
Dim i As Integer
For i = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).Unprotect Password:="xxx"
Next i
End Sub


Viele Grüße aus Hamburg,
Jan

Anzeige
AW: Blattschutz in mehreren Blättern aufheben
10.09.2007 13:18:00
Robert
Ah, verstehe. Damit kann ich also alle Blätter entschützen. Und was ist, wenn ich nur z.B. 5 von bestehenden 10 Blättern entschützen möchte?
Gruß,
Robert

AW: Blattschutz in mehreren Blättern aufheben
10.09.2007 13:43:23
Jan
Hallo Robert,
gibts es denn eine Möglichkeit, für das Skript zu erkennen, welche Blätter "entschützt" werden sollen?
Wenn ja, könntest Du in die For-Next-Schleife eine Abfrage einsetzen, die genau dieses Kriterium abfragt, z.B. einen bestimmten Bestandteil des Blattnamens.
Viele Grüße,
Jan

Anzeige
AW: Blattschutz in mehreren Blättern aufheben
10.09.2007 13:57:20
Robert
Hallo Jan,
ich würde dann doch selbst die Tabellennamen auflisten, so wie ich es urspünglich auch getan habe. Möchte nur nicht zich mal den selben Befehl schreiben, sondern einfach einen Befehl in mehreren Blättern ausführen lassen.
Ich hatte es mal so probiert, doch, das nimmt er nicht. 

Sub Makro4()
Sheets(Array("Ratenprofil", "Rates MD", "Rates SD", "Rates USND")).Select
ActiveSheet.Unprotect Password:="Abakkus"
End Sub


Anzeige
AW: Blattschutz in mehreren Blättern aufheben
10.09.2007 14:21:50
P@ulchen
Hallo Robert,
versuch mal so:


Option Explicit
Sub schutzaufheben()
Dim i As Integer
For i = 1 To ActiveWorkbook.Sheets.Count
    Select Case Sheets(i).Name
        Case "Ratenprofil", "Rates MD", "Rates SD", "Rates USND"
            ActiveWorkbook.Sheets(i).Unprotect Password:="xxx"
    End Select
Next i
End Sub

Gruß aus Leipzig
P@ulchen
www.excel-werkstatt.de
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige