Blattschutz für einige Blätter aus/ein

Forumthread: Blattschutz für einige Blätter aus/ein
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Blattschutz für einige Blätter aus/ein

liese

Hallo!
Wie kann ich für einige (nicht alle) Blätter einer Arbeitsmappe
den Blattschutz mit PW aus- bzw. einschalten?
Viele Grüße
Anneliese

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Blattschutz für einige Blätter aus/ein

Rudi
AW: Extra/Schutz/Blatt schützen

dieter(drummer)
AW: Blattschutz für einige Blätter aus/ein

Holger
Select ist dabei aber unnötig! oT

Matthias5
AW: @all

liese

AW: Blattschutz für einige Blätter aus/ein

04.11.2009 13:28:07

Rudi

Hallo,
Sheets("Tabelle1").Protect "Kennwort"
Sheets("Tabelle1").Unprotect "Kennwort"
Gruß
Rudi

AW: Extra/Schutz/Blatt schützen

04.11.2009 13:28:22

dieter(drummer)

Hi Anneliese,
unter "Extra/Schutz/Blatt schützen" und dann ein Kennwort eingeben. Dabei können auch unterschiedliche Schutzoptionen genutzt werden.
Gruss dieter(drummer)

AW: Blattschutz für einige Blätter aus/ein

04.11.2009 13:41:51

Holger

Hallo liese,
der einfachste Weg:

Sub passwort_an() Sheets("Tabelle1").Select ActiveSheet.Protect "Passwort1" Sheets("Tabelle2").Select ActiveSheet.Protect "Passwort2" End Sub

Sub passwort_aus() Sheets("Tabelle1").Select ActiveSheet.Unprotect "Passwort1" Sheets("Tabelle2").Select ActiveSheet.Unprotect "Passwort2" End Sub

Gruß Holger

Select ist dabei aber unnötig! oT

04.11.2009 13:48:49

Matthias5

AW: @all

05.11.2009 12:35:02

liese

Danke an Euch Helfer!
Bin weitergekommen.
MIT OHNE Select ;-)
Viele Grüße
Anneliese