Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1016to1020
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
Inhaltsverzeichnis

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.

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

AW: Schützen von Tabellen
24.10.2008 15:10:36
Tabellen
Hallo, das müsste auch mit Extras - Schutz - Arbeitsmappe schützen funktionieren.
Anzeige
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?

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige