Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
460to464
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
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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
Anzeige
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
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige