Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Blattschutz abfragen

Betrifft: Blattschutz abfragen von: Markus
Geschrieben am: 20.08.2004 15:58:29

Hallo Excel-Forum,

wie kann ich per VBA überprüfen ob das aktuelle Arbeitsblatt einen Blattschutz hat oder nicht.

Mein Versuch mit:

If ActiveSheet.Protect = True then
....
End If

schlug schon mal fehl da die Anweisung Protect keinen Rückgabewert liefert.

Grüße, Markus

  


Betrifft: AW: Blattschutz abfragen von: udo
Geschrieben am: 20.08.2004 16:05:17

Vielleicht kannst du es umgehn mit ...


...

On error goto Weiter:

Weiter:
ActiveSheet.Unprotect

...


sonst weis ich leider auch keinen Rat, s'gibt aber bestimmt was Anderes noch ...

;-)


  


Betrifft: AW: Blattschutz abfragen von: Markus
Geschrieben am: 20.08.2004 16:15:34

Hallo,

das wäre eine Möglichkeit die funktionieren würde wenn ich etwas hineinschreiben würde. Dann gäbe es eine Fehlermeldung die man abfangen könnte.
Nur will ich nichts in Zellen schreiben, sondern lediglich den Status abfragen ob es geschützt ist oder nicht.

Vieleicht findet sich noch eine andere Möglichkeit um den Blattschutzstatus abzufragen.


  


Betrifft: AW: Blattschutz abfragen von: Thomas Risi
Geschrieben am: 20.08.2004 16:23:52

Hallo Markus,

wie wär's damit ...


      
Option Explicit

Private Sub CommandButton2_Click()
    MsgBox ActiveSheet.ProtectContents
End Sub 


     Code eingefügt mit Syntaxhighlighter 3.0

Gruß
Thomas

Risi Thomas Softwareentwicklung




  


Betrifft: AW: Blattschutz abfragen von: Markus
Geschrieben am: 20.08.2004 16:30:15

Hallo Thomas,

genau nach dem hab ich gesucht :-)

Vielen Dank für den Tip, funktioniert einwandfrei !

Gruß,
Markus


 

Beiträge aus den Excel-Beispielen zum Thema "Blattschutz abfragen"