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

Blattschutz aktivieren

Blattschutz aktivieren
19.10.2005 14:14:50
harald
Hallo,
ich habe mal wieder ein Problem mit dem Blattschutz. Um Zeilen einer mit Blattschutz versehenen Tabelle aus- oder einzublenden benutze ich folgenden Code:
Worksheets("Endergebnis").Unprotect
Rows("1:40").EntireRow.Hidden = False
Rows("41:65536").EntireRow.Hidden = True
Worksheets("Endergebnis").Protect Password:=""
Das funktioniert im Grunde auch, allerdings gibt es ein Problem dabei:
Beim Tabellenblatt sollen nur die nicht gesperrten Zellen ausgewählt (selektiert) werden können, was ohne obigen Code auch eingestellt ist und funktioniert. Mit dem Code wird das Tabellenblatt zwar wieder geschützt, aber es wird eingestellt, dass auch die gesperrten Zellen ausgewählt werden können. Beim Doppelklick kommt dann zwar die Meldung, dass die Zelle geschützt ist, aber mein Wunsch wäre, dass die Felder nach der Aktivierung des Schutzes wieder nicht mehr ausgewählt werden können. Wie kann ich das in VBA wieder einstellen?
mfg
harald

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

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz aktivieren
19.10.2005 14:27:15
Leo
Hi,
indem du diese Zeile einstreust:
with Worksheets("Endergebnis")
.unprotect password:="xxx"
.Rows("1:40").EntireRow.Hidden = False
.Rows("41:65536").EntireRow.Hidden = True
.enableselection = xlunlockedcells
.Protect Password:="xxx"
end with
mfg Leo
AW: Blattschutz aktivieren
19.10.2005 14:36:35
harald
Hallo Leo,
ich habe den Code gerade eingearbeitet und ausprobiert - es funktioniert super!
Vielen Dank für die Unterstützung!
mfg
harald
AW: Blattschutz aktivieren
19.10.2005 14:47:50
Wolfgang
Hallo!
Ich bin zwar nicht so ein VBA-Könner, aber wenn ich was brauche, dann erstelle ich mir ein makro (mit "aufzeichnen") und gehe dann auf bearbeiten, um mir den entspr. code "abzuschreiben.." (ist zwar nicht sehr elegant, aber meistens gehts.
lg
Wolfgang
Anzeige
AW: Blattschutz aktivieren
19.10.2005 16:14:23
harald
Hallo Wolfgang,
mit den Makroshabe ich schon Probleme - da habe ich noch nie etwas augezeichnet und weiss auch gar nicht, wie das genau geht.
mfg
harald
AW: Blattschutz aktivieren
19.10.2005 17:17:53
wolfgang
Hallo!
Das ist ganz einfach: Menü extras/makros/aufzeichnen.
Es kommt ein zuerst ein Fenster, um dem makro einen namen zu geben, dann kommt ein kleines Fenster, das signalisiert, dass ab jetzt jeder schritt, den du setzt, aufgezeichnet wird. nach dem letzten schritt klickst du auf beenden.
dann gehst du nochmals ins menü "makros", wählst dein makro aus und gehst auf "bearbeiten", dann siehst du den kompletten VBA code...
probiers mal mit einer ganz einfachen zellenauswahl und kopieren ...
viel spaß
Wolfgang
Anzeige
AW: Blattschutz aktivieren
19.10.2005 17:27:10
harald
Hallo Wolfgang,
vielen Dank für den guten Tip!
mfg
harald

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige