mehrere Zellen in Range
WolfgangN
ich habe eine Tabelle, in der beschriebene Zellen geschützt werden. Jetzt wollte ich noch einige leere Zellen in diesen Bereich ebenfalls schützen. Dazu habe ich folgenden Code, der auch klappt:
Sheets("Werte").Range("C130").Locked = True
Sheets("Werte").Range("C976").Locked = True
Sheets("Werte").Range("D1125").Locked = True
Sheets("Werte").Range("E2008").Locked = True
Wenn ich dies zusammenfassen möchte erscheint Laufzeitfehler 1004, Anwendungs-oder objektdef. Fehler
Sheets("Werte").Range("C130,C976,D1125,E2008").Locked = True
Was ist an dieser Zeile falsch, muß ich für jede Zelle eine Codezeile schreiben?
Verbundene Zellen gibt es keine.
Bitte um Hilfe, vielen Dank
Wolfgang
Hier der gesamte Code:
Option Explicit
Dim zelle As Range
Dim Bereich As Range
Dim letzZeilA As Double
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets("Werte").Activate
letzZeilA = Cells(65536, 1).End(xlUp).Row
'Wenn Inhalt der Zelle beschrieben ist, wird Zelle vor dem Speichern geschützt,
Set Bereich = Sheets("Werte").Range("$B$9:$E$" & letzZeilA)
For Each zelle In Bereich
If zelle Empty Then
zelle.Locked = True
Else
zelle.Locked = False
End If
Next zelle
Set Bereich = Nothing
'leere Zellen werden gesperrt,
Sheets("Werte").Range("C130").Locked = True
Sheets("Werte").Range("C976").Locked = True
Sheets("Werte").Range("D1125").Locked = True
Sheets("Werte").Range("E2008").Locked = True
'in der folgenden Zeile erscheint Laufzeitfehler 1004, Anwendungs-oder objektdef. Fehler
'Sheets("Werte").Range("C130,C976,D1125,E2008").Locked = True
End Sub
Private Sub Workbook_Open()
Worksheets("Werte").Protect userinterfaceonly:=True, Contents:=True, AllowFormattingCells:=True, _
DrawingObjects:=False, Password:="123"
Worksheets("Werte").EnableSelection = xlUnlockedCells
Worksheets("Werte").Select
End Sub
https://www.herber.de/bbs/user/76887.xls
Anzeige