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
Hier die Testdatei, Passwort:123https://www.herber.de/bbs/user/76887.xls