Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige