Geschützte Zellen auswählen; ein Bug?

Sub Auto_Open()
Dim Arbeitsblatt As Worksheet
For Each Arbeitsblatt In Worksheets
Arbeitsblatt.Activate
With ActiveSheet
.EnableSelection = xlUnlockedCells  'darauf kommts mir an!!!
.Protect ("xxxxx"), UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True
End With
Next Arbeitsblatt
End Sub

Es kommt mir darauf an, das alle geschützten Zellen nicht mehr anwählbar sind. Das funktioniert aber nicht immer perfekt.
Manchmal kann ich verschiedene Zellen in verschiedenen Arbeitsblättern anklicken, manchmal die selben wieder nicht.
Es gibt auch keine versehentlich ungeschützten Zellen und der Makrorecorder hat mir auch nichts anderes gebracht.
Vielleicht ein Bug im Programm oder etwas, das ich nicht berücksichtigt habe?
Im Moment weiß ich nicht, wonach ich suchen soll
Freue mich auf Eure Ideen!
Viele Grüße!
Webran