Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Locked Eigenschaft wird nicht erkannt
11.07.2007 16:35:57
Salim

Hallo zusammen,
ich möchte eine Tabelle nur im Falle einblenden, dass alle Zellen einer anderen Tabelle bereits geschützt sind bzw. nur Werte enthält.
Habe dafür folgender Code geschrieben. Die If bis End If Befehlskette wird nicht berücksichtigt.
Danke für eure Feedbacks.
Gruss
Salim

Private Sub CommandButton6_Click()
ActiveWorkbook.Unprotect
Sheets("RSPLAN").Unprotect
If Sheets("RSPLAN").Cells.Locked = False Then
MsgBox ("Bitte zuerst Rechnungsstellungsplan abschliessen")
Exit Sub
End If
Sheets("RSPLAN").Protect
Sheets("RSFC").Visible = True
Sheets("RSFC").Move After:=Sheets("Abrechnungsblatt")
ActiveWorkbook.Protect Structure:=True, Windows:=False
Sheets("RSFC").Select
Sheets("RSFC").Range("A1").Select
End Sub


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Locked Eigenschaft wird nicht erkannt
11.07.2007 16:46:45
Renee
Hello Salim,
Der Befehl If Sheets("RSPLAN").Cells.Locked = False Then wird nur dann wahr sein, wenn alle (ohne Ausname!) Zellen im Blatt den Gesperrt-Schutz entfernt haben!
Greetz Renee

AW: Locked Eigenschaft wird nicht erkannt
11.07.2007 16:56:03
Salim
Hallo Renee
herzlichen Dank. Ich dachte es würde heißen, dass mindestens eine Zelle nicht geschützt ist.
Habe also die Befehlsketten ausgetauscht und jetzt funktioniert es einwandfrei!
Danke für den Tip!
Gruss
Salim
Anzeige

325 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige