Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
452to456
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
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige