Schaltfläche bei Klick

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Schaltfläche bei Klick von: HeinzH
Geschrieben am: 11.02.2005 11:26:58

Hallo Leute
Eine allerletzte Frage.
Habe unterstehenden Code eine Schaltfläche zum aktivieren von Blattschutz.
Gibt es auch einen Code,den ich auch in eine Schaltfläche einfüge,um den Schreibschutz zu deaktivieren.
Noch besser wäre natürlich eine Schaltfläche 1x Klicken "Schreibschutz akiviert" 2x Klicken "Schreibschutz deaktiviert"



Sub Schaltfläche5_BeiKlick()
ActiveSheet.Unprotect "Passwort"
ActiveSheet.Protect "Passwort"
End Sub

Bild


Betrifft: AW: Schaltfläche bei Klick von: Kurt
Geschrieben am: 11.02.2005 11:41:30

hi,
probier mal :


Sub Schaltfläche5_BeiKlick()
If ActiveSheet.Shapes("Button 5").OLEFormat.Object.Caption = "Geschützt" Then
ActiveSheet.Unprotect "Passwort"
ActiveSheet.Shapes("Button 5").OLEFormat.Object.Caption = "Ungeschützt"
Else
ActiveSheet.Shapes("Button 5").OLEFormat.Object.Caption = "Geschützt"
ActiveSheet.Protect "Passwort"
End If
End Sub


...und Tschüss Kurt


Bild


Betrifft: AW: Schaltfläche bei Klick von: HeinzH
Geschrieben am: 11.02.2005 11:45:22

Hallo Kurt
Du bist der totale Wahnsinn..Echt SUPER
DANKE
gruß aus Österreich
Heinz


Bild


Betrifft: AW: Schaltfläche bei Klick von: Cardexperte
Geschrieben am: 11.02.2005 11:41:38

Hello HeinzH, vielleicht mit einem Togglebutton, der im Blatt eingefügt wird:

Sub ToggleButton1_Click()
With ToggleButton1
  Select Case .Value
    Case False: .Caption = "Blattschutz ein"
    Case True: .Caption = "Blattschutz aus"
  End Select
End With
If ToggleButton1 = False Then ActiveSheet.Unprotect "Passwort" Else ActiveSheet.Protect "Passwort"
End Sub



Bild


Betrifft: AW: Schaltfläche bei Klick von: HeinzH
Geschrieben am: 11.02.2005 11:47:39

Hallo Cardexperte
Danke für Deine Hilfe.
Habe von Kurt schon einen Code bekommen,der super funkt.Aber nochmals herzlichen DANK für Dein bemühen.
gruß
Heinz


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellen nicht mit ausdrucken?"