Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Blattschutz aktivieren

Forumthread: Blattschutz aktivieren

Blattschutz aktivieren
08.07.2004 14:22:44
Angelo
einen guten morgen euch allen (witz)
ich habe (z.B.) eine datei mit 12 tabellen.
jede tabelle wird mit aktiviertem blattschutz benutzt.
wenn ich änderungen vornehmen will, die alle tabellen betreffen, muss ich immer jedes blatt einzeln - [blattschutz aufheben] durchführen.
gibt es eine möglichkeit dies zu automatisieren?
danke
angelo
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz aktivieren
andreas
hallo angelo,
ist das passwort denn bekannt und bei allen gleich ?

Sub PasswortFürAlleBlätterEinstellen()
Dim Tabz As Integer
Dim i As Integer
Tabz = ActiveWorkbook.Worksheets.Count
For i = 1 To Tabz
Sheets(i).Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, Password:=Sheets(1).Range("A1").Value
Next i
End Sub


Sub PasswortAlleBlätterEntfernen()
Dim Tabz As Integer
Dim i As Integer
Tabz = ActiveWorkbook.Worksheets.Count
For i = 1 To Tabz
Sheets(i).Unprotect Sheets(1).Range("A1").Value
Next i
End Sub

gruß
andreas e


http://www.fachforen.de
eine Linksammlung zu diversen fachforen
Anzeige
AW: Blattschutz aktivieren
Dirk
Hallo
for i=1 to worksheets.count
worksheets(i).unprotect (passwort)
next i
Passwort is natürlich optional.
Cheers
AW: Blattschutz aktivieren
08.07.2004 14:36:28
John

Sub BlattschutzAufheben()
Blatt = Application.Sheets.Count
Do While Blatt > 0
On Error Resume Next
Application.Sheets(Blatt).Unprotect
Resume 0
Blatt = Blatt - 1
Loop
End Sub


Sub BlattschutzEinfügen()
Blatt = Application.Sheets.Count
Do While Blatt > 0
On Error Resume Next
Application.Sheets(Blatt).Protect
Resume 0
Blatt = Blatt - 1
Loop
End Sub

Anzeige
Daaaaannnnnkkkkkeeeeeee :-))))))))))) o.T.
angelo
;

Beliebteste Forumthreads (12 Monate)

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