Microsoft Excel

Herbers Excel/VBA-Archiv

ActiveSheet.Unprotect - Bei Drehfeld | Herbers Excel-Forum


Betrifft: ActiveSheet.Unprotect - Bei Drehfeld von: Heinz H
Geschrieben am: 16.11.2009 22:02:37

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

  

Betrifft: Erscheint eine Fehlermeldung ? _oT von: NoNet
Geschrieben am: 16.11.2009 22:08:26

_oT = "ohne Text"


  

Betrifft: AW: Erscheint eine Fehlermeldung ? _oT von: Heinz H
Geschrieben am: 16.11.2009 22:11:10

Hallo NoNet

Ja die übliche Meldung "Die Zelle oder.... ist schreibgeschützt"

Nach betätigen des Drehfeldes wird der Blattschutz wieder gesetzt.
Gruß
Heinz


  

Betrifft: Dann entsperre mal die "Verknüpfte Zelle" von: NoNet
Geschrieben am: 16.11.2009 22:18:39

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


  

Betrifft: AW: Dann entsperre mal die "Verknüpfte Zelle" von: Heinz H
Geschrieben am: 16.11.2009 22:28:49

Hallo NoNet

Sooo einfach kann es manchmal sein !!

Recht herzlichen Dank !

Wünsche eine gute Nacht.
Gruß
Heinz


Beiträge aus den Excel-Beispielen zum Thema "ActiveSheet.Unprotect - Bei Drehfeld"