Thema: ActiveSheet.Unprotect - Bei Drehfeld | Herbers Excel-Forum

Hallo Leute
Im unteren Code wird mir der Blattschutz nicht aufgehoben.
Hätte bitte jemand eine Lösung ?
Danke & Gruß
Heinz H
Option Explicit

Sub Drehfeld1_BeiÄnderung()
ActiveSheet.Unprotect
Application.Calculate
ActiveSheet.Protect
End Sub

_oT = "ohne Text"

Hallo NoNet
Ja die übliche Meldung "Die Zelle oder.... ist schreibgeschützt"
Nach betätigen des Drehfeldes wird der Blattschutz wieder gesetzt.
Gruß
Heinz

Hallo Heinz,
es handelt sich ja wohl um ein Drehfeld aus der "Formular"-Symbolleiste !!?!
- Entferne den Blattschutz
- Klicke mit Rechts auf das Drehfeld, wähle "Steuerelement formatieren"
- Klicke in das Register "Steuerung" und prüfe, welche die "Zellverknüpfung" ist
Ist das z.B. B1, dann muss für diese Zelle die Sperrung entfernt werden :
- Rechtsklick auf B1
- Zellen formatieren
- Register "Schutz"
- Häkchen bei "Gesperrt" entfernen
Gruß, NoNet

Hallo NoNet
Sooo einfach kann es manchmal sein !!
Recht herzlichen Dank !
Wünsche eine gute Nacht.
Gruß
Heinz