Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
304to308
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Alle Tabellenblätter mit VBA schützen geht nicht

Alle Tabellenblätter mit VBA schützen geht nicht
03.09.2003 19:00:56
Mike
Hallo Experten,
ich möchte alle Tabellenblätter auf einmal schützen.
Das sollte mit ..... klappen.
Bei einer Test-Maske geht es auch aber in einer sehr umfangreichen Maske
meldet VBA: Fehler beim Kompilieren ! Funktion oder Variable erwartet !

"I" wird markiert. Was ist da los ?


Sub Schutz()
For I = 1 To Sheets.Count
Sheets(I).Protect ("Passwort")
Next I
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Alle Tabellenblätter mit VBA schützen geht nicht
03.09.2003 19:04:06
Hajo_Zi
Hallo Mike

steht in Deinem Modul Option Explicit und ist die Variable I nicht definiert

Option Explicit
Dim WsTabelle As Worksheet


Private Sub Aufheben()
For Each WsTabelle In Worksheets
WsTabelle.Unprotect ("Passwort")
Next WsTabelle
End Sub



Private Sub Schutz()
For Each WsTabelle In Worksheets
WsTabelle.Protect ("Passwort")
Next WsTabelle
End Sub



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.
Anzeige
AW: schützen geht jetzt
03.09.2003 19:20:22
Mike
Hallo Hajo,
es klappt - For Each WsTabelle ist ja einleuchtend.

Prima und vielen Dank
Danke für die Rückmeldung oT
03.09.2003 19:21:06
Hajo_Zi
AW: Alle Tabellenblätter mit VBA schützen geht nicht
03.09.2003 19:09:30
Andreas
so sollte es fuktionieren


Sub Blattschutz_alle Tabellen()
Dim i As Worksheet
For Each i In ActiveWorkbook.Worksheets
i.Protect
Next i
End Sub



Sub Blattschutz_alle Tabellen_aufheben()
Dim i As Worksheet
For Each i In ActiveWorkbook.Worksheets
i.Unrotect
Next i
End Sub


Makros einer Schaltfläche zuweisen und starten

Gruß Andreas
AW: Alle Tabellenblätter mit VBA schützen geht nicht
03.09.2003 19:22:06
Mike
Es klappt - und viele Wege führen über VBA

Auch Dir vielen Dank
Mike
Anzeige

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige