title image


Smiley Re: Blattschutz aufheben / vergeben
Hallo,



Sub Protect_and_Unprotect()

'19 ist die Position deiner Schaltfläche in der Symbolleiste Format

'das musst du halt anpassen, weil ich nicht weiss in welcher Symbolleiste

'und an welcher Position deine Schaltfläche ist

'Ebenso musst du die Beschriftung der Schaltfläche anpassen

'---------------

If Application.CommandBars("Formatting").Controls(19).Caption = "Schützen" Then

    Application.CommandBars("Formatting").Controls(19).Caption = "Schutz aufheben"

    ActiveSheet.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True

ElseIf Application.CommandBars("Formatting").Controls(19).Caption = "Schutz aufheben" Then

    Application.CommandBars("Formatting").Controls(19).Caption = "Schützen"

    ActiveSheet.Unprotect Password:="test"

End If

End Sub





Code eingefügt mit Syntaxhighlighter 1.12
Herzliche Grüsse

aus der Schweiz

Rainer

Kombiniere Geist und Google,...denn Wissen ist geil :-)



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: