Locked-Eigenschaft bei verbundenen Zellen

Hallo Forum,
folgende Problemstellung: In einer Datei sollen mittels Makro Eingabezellen mit der Locked-Eigenschaft "False" und andere Zellen mit "True" gekennzeichnet werden. Die Eingabezellen haben einen Rand und keine Hintergrundfarbe. Soweit so gut, das findet man auch alles in dieser Beispieldatei hier:
https://www.herber.de/bbs/user/3928.xls
Wobei ich allerdings ein Problem habe, ist die Locked-Eigenschaft einer verbundenen Zelle zuzuweisen. Verschmelzt man die Zellen B7 und C7 in "Tabelle1" zu einer verbundenen Zelle und lässt dann das Makro laufen, dann gibt es einen kleinen Fehler. Weiß hier jemand Rat?
Und eine zweite Frage hätte ich noch, wie kann ich abprüfen, ob ein Arbeitsblatt geschützt ist oder nicht? "ActiveSheet.Protected=True"gibt's ja nicht, aber irgendetwas ähnliches vielleicht?
Danke vorab schonmal!
Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Danke Boris, hier also der Quelltext für dich ;-)
Das Problem tritt auf in der Zeile ".Locked = False" bzw. ".Locked=True", wenn man keine einzelne Zelle, sondern eine verbundene Zelle addressiert. Eigentlich müsste man diese dann ja mittels Range("Anfangszelle:Endzelle") ansprechen, dann ginge das mit der Locked-Eigenschaft, aber so wie ich mir das bisher gelöst hatte funzt es eben nicht.
Hast du eine bessere Idee hierzu?
Andreas
==========


Private Sub CommandButton1_Click()
Number = Application.ActiveWorkbook.Worksheets.Count
For currentsheet = 1 To Number
Worksheets(currentsheet).Select
For i = 1 To 7
For j = 1 To 4
With ActiveSheet.Cells(i, j)
If Not .Borders(xlEdgeLeft).ColorIndex = -4142 And _
Not .Borders(xlEdgeRight).ColorIndex = -4142 And _
Not .Borders(xlEdgeTop).ColorIndex = -4142 And _
Not .Borders(xlEdgeBottom).ColorIndex = -4142 And _
.Interior.ColorIndex = -4142 Then
.Locked = False
Else
.Locked = True
End If
End With
Next j
Next i
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next currentsheet
End Sub


Private Sub CommandButton2_Click()
Number = Application.ActiveWorkbook.Worksheets.Count
For currentsheet = 1 To Number
Worksheets(currentsheet).Select
ActiveSheet.Unprotect
Next currentsheet
End Sub

Beliebteste Forumthreads (12 Monate)

Locked-Eigenschaft bei verbundenen Zellen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Locked-Eigenschaft bei verbundenen Zellen

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

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread