Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
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 19: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 19: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 20: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 20: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 19: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
.
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18