Mit diesem Makro aktiviere ich auf allen Blättern
in den Zellen wo Eingaben gemacht wurden den Zellschutz.
Das Problem ist aber,daß bei verbundenen Zellen der Zellschutz nicht aktiviert wird.
Gibt es hier eine Möglichkeit das Problem zu beheben.
Danke
Gruß Herbert
Sub Zellschutz_aktivieren()
Application.ScreenUpdating = False
On Error Resume Next
Dim s As Integer
Dim z As Integer
Dim i As Integer
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Activate
s = 1
z = 1
For s = 35 To 52
For z = 5 To 32
If Cells(z, s).Value <> "" Then
Cells(z, s).Locked = True
End If
Next
Next
Next i
Sheets("1 (1)").Activate
Application.ScreenUpdating = True
End Sub