Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schützen von Tabellen

Forumthread: Schützen von Tabellen

Schützen von Tabellen
24.10.2008 14:48:00
Tabellen
Guten Tag, habe eine Excel Mappe mit 12 Tabellen. Wie kann ich alle schützen, ohne jede einzelen Tabelle anzuwählen und einzeln zu schützen? Besten Dank für eure Tipps.
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Schützen von Tabellen
24.10.2008 15:07:00
Tabellen
Hallo Jemy,
folgende Makros werden dir sicher weiterhelfen:

Sub alles_schuetzen()
Dim c As Worksheet
For Each c In ActiveWorkbook.Worksheets
c.Protect Password:="blabla", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub




Sub alles_unschuetzen()
Dim c As Worksheet
For Each c In ActiveWorkbook.Worksheets
c.Unprotect Password:="blabla"
Next
End Sub


Gruß
David

Anzeige
AW: Schützen von Tabellen
24.10.2008 15:10:36
Tabellen
Hallo, das müsste auch mit Extras - Schutz - Arbeitsmappe schützen funktionieren.
AW: Schützen von Tabellen
24.10.2008 15:13:17
Tabellen
Geht leider nicht, die erste Antwort habe ich leider nicht Verstanden. Danke für weiter Unterstützung.
AW: Schützen von Tabellen
24.10.2008 15:19:11
Tabellen
Im VBA-Editor den Code in ein Modul kopieren, anschließend stehen unter Extras-Makros zwei Makros zur Verfügung.
Das eine schützt alle Arbeitsblätter, das andere entschützt sie wieder. Das Passwort ist im Makro einzutragen.
Sollte mit 'Excel gut' eigentlich drin sein.
Gruß
David
PS: Die Aussage "geht leider nicht" ist auch nicht sehr hilfreich. WAS genau geht denn nicht?
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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