Herbers Excel/VBA-Archiv
| Informationen und Beispiele zum Thema MsgBox | |
|---|---|
 Screenshot zu MsgBox |
MsgBox-Seite mit Beispielarbeitsmappe aufrufen |
| Informationen und Beispiele zum Thema CommandButton | |
|---|---|
 Screenshot zu CommandButton |
CommandButton-Seite mit Beispielarbeitsmappe aufrufen |
Blattschutz abfragen
- Blattschutz abfragen von Markus vom 20.08.2004 15:58:29
- AW: Blattschutz abfragen - von udo am 20.08.2004 16:05:17
- AW: Blattschutz abfragen - von Markus am 20.08.2004 16:15:34
- AW: Blattschutz abfragen - von Markus am 20.08.2004 16:15:34
- AW: Blattschutz abfragen - von Thomas Risi am 20.08.2004 16:23:52
- AW: Blattschutz abfragen - von Markus am 20.08.2004 16:30:15
- AW: Blattschutz abfragen - von Markus am 20.08.2004 16:30:15
 |
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
| |