Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Blattschutz automatisch: 1. +2. Punkt per Code

Forumthread: Blattschutz automatisch: 1. +2. Punkt per Code

Blattschutz automatisch: 1. +2. Punkt per Code
26.07.2004 17:52:47
Manuel
Hi alle!
Ich möchte mein Blatt schützen, per code.
Also habe ich:
Sheets("Spieler").Protect Password:="pw", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
oder
Sheets("Spieler").Protect ("pw")
Die gesamten zellen sind "Ausgeblendet".
Ich möchte, dass mann weder die gesperrten, noch die nicht gesperrten zellen auswählen kann.
Allerdings wird bei dem automatischen "Protect" beides aktiviert, d.h. man kann alle auswählen.
Wie kann ich jetzt per Code die ersten beiden Punkte von dem Menü Blattschutz deaktivieren.
Ich habe leider nichts dazu gefunden.
Gruß
Manuel
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz automatisch: 1. +2. Punkt per Cod
26.07.2004 17:56:42
Claus
Ich verwende:
ActiveSheet.Protect password:="pw"
Habe aber vorher die gewuenschten Zellen entsperrt...
Claus
AW: Blattschutz automatisch: 1. +2. Punkt per Cod
Manuel
Hi!
Danke, aber das hilft leider nicht.
Habe alles als nicht gesperrt gesetzt, und man kann trotzdem alle auswählen.
Des Weiteren.
Der Schutz wird zwischendurch immer per code aufehoben, udn wieder gesetzt (für das setzten ist der Code)
Gruß
Manuel
Anzeige
AW: Blattschutz automatisch: 1. +2. Punkt per Cod
26.07.2004 18:08:14
Claus
Jaaaa... es muss alles gesperrt sein!!! Erst dann greift der Schutz...
Das mit dem Schuetzen und Entschuetzen: Dafuer habe ich mir einzelen Makros geschrieben: SheetSchutzaufheber und SheetSchützer...
Claus
AW: Blattschutz automatisch: 1. +2. Punkt per Cod
26.07.2004 18:08:49
Claus
Jaaaa... es muss alles gesperrt sein!!! Erst dann greift der Schutz...
Das mit dem Schuetzen und Entschuetzen: Dafuer habe ich mir einzelen Makros geschrieben: SheetSchutzaufheber und SheetSchützer...
Claus
Anzeige
AW: Blattschutz automatisch: 1. +2. Punkt per Code
26.07.2004 17:58:25
Nepumuk
Hallo Manuel,
so geht's:


With Sheets("Spieler")
    .Protect ("pw")
    .EnableSelection = xlNoSelection
End With


Gruß
Nepumuk
Anzeige
Danke, geht! [geschlossen, o.T.]
Manuel
.
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige