Bei diesem Arbeitsblatt werden mittels CommandButtons Spalten ein- und ausgeblendet. Zum besseren Verständnis habe ich die Datei upgeloadet:
https://filehorst.de/d/cJfIaqgH
Dieses Blatt möchte ich schützen, aber dabei erhalte ich folgende Fehlermeldung:
Wer könnte hier Abhilfe schaffen?
Ich habe nämlich viele weitere Lernmappen nach diesem Muster erstellt, bekomme aber überall dieselbe Fehlermeldung.
Danke Robert
Außerdem: die Smileys tun auch was sie wollen und das Leeren der nicht gesperrten Zellen beim Öffnen funktioniert auch nicht. Leider sehr viele Baustellen!!!
Private Sub Workbook_Open()
Sheets("Zauberquadrat").Range("E8,E10,F8,F10,G8,G9,R8,R9,P9,P10,Q9,Q10,AC8,AA9,AA10,AB9,AB10,AC10,AL8,AL9,AM8,AM10,AN8,AN10").Value = ""
End Sub