Zellschutz bei verbundenen Zellen (VBA)

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