Überprüfung Blattschutz

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


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Überprüfung Blattschutz
von: Stephan
Geschrieben am: 19.06.2002 - 14:24:59

Hallo,
wie kann man mit VBA überprüfen, ob bei einem Exceltabellenblatt der Blattschutz aktiviert oder deaktiviert wurde?

Vielen Dank
Stephan


nach oben   nach unten

Re: Überprüfung Blattschutz
von: Otto
Geschrieben am: 19.06.2002 - 14:34:19

Hallo Stephan,

mit folgender Routine sollte es klappen.

If Worksheets("Tabelle1").ProtectContents = True Then
MsgBox "Der Inhalt von Tabelle1 ist geschützt."
Else
MsgBox "Der Inhalt von Tabelle1 ist nicht geschützt."
End If

Gruß Otto


nach oben   nach unten

Re: Überprüfung Blattschutz
von: anugyan
Geschrieben am: 19.06.2002 - 14:44:31

Lieber Stephan,
so:
Public Sub Schutz_Prüf_K()

If Not ActiveSheet.ProtectContents Then
Meld = MsgBox("Schutz ist aus")
Else:
Meld = MsgBox("Schutz ist ein")
End If
End Sub

Gruss
Anugyan

nach oben   nach unten

Re: Überprüfung Blattschutz
von: anugyan
Geschrieben am: 19.06.2002 - 15:35:57

Lieber Stephan,
so:
Public Sub Schutz_Prüf_K()

If Not ActiveSheet.ProtectContents Then
Meld = MsgBox("Schutz ist aus")
Else:
Meld = MsgBox("Schutz ist ein")
End If
End Sub

Gruss
Anugyan

nach oben   nach unten

Re: sorry zweites posting war ein versehen
von: anugyan
Geschrieben am: 19.06.2002 - 15:38:02

sorry zweites posting war ein versehen

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Überprüfung Blattschutz"