Blattschutz und speichern
Paul
habe gestern von einem freundlichen USer diesen Code bekommen um beim speichern einer DAtei alle bis dahin gefüllten Zellen mit einem Nlattschutz zu versehen. DAs klappt auch soweit gut, nur funktioniert der Code nur bei dem ersten Speicchern, wenn ich dann weiter Zellen fülle und wieder speichern will kommt ein Laufzeitfehler 1004. Kann mir jemand den Code anpassen, habe leider von Macro's 0 Ahnung!
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wbc As Range
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
With ws
For Each wbc In .UsedRange
If Not wbc "" Then
wbc.Locked = False
Else
wbc.Locked = True
End If
Next wbc
.Protect
.EnableSelection = xlUnlockedCells
End With
Next ws
End Sub
Anzeige