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
Anzeige