Registriert seit: 16.04.2014
Hallo VBA-Freunde,
wie kann ich den Zustand einer Tabelle, hier genau Blattschutz, abfragen?
Z.B. If Worksheet is Protect then
das geht so nicht, Wie lautet der richtige Code?
Vielen Dank im voraus.
Es ist nicht genug, zu wissen. Man muss es auch anwenden.
Es ist nicht genug, zu wollen. Man muss es auch tun.
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
Hallo Heinz,
der Code ist von Klaus-Martin
Spalten trotz eingeschaltetem Blattschutz ausblenden
Sub Spalten_trotz_Blattschutz_ausblenden()
ActiveSheet.Protect userinterfaceonly:=True
Columns("C:C").Select
Selection.EntireColumn.Hidden = True
End Sub
Hilft Dir das weiter?
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
Hallo Heinz,
mit der ProtectContents-Eigenschaft z.B. so:
Code:
Sub aab()
Dim oWs As Worksheet
For Each oWs In Worksheets
If oWs.ProtectContents Then MsgBox oWs.Name & " ist geschützt.", vbInformation
Next oWs
End Sub
Gruß Uwe
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
Hallo Heinz,
und hier noch einen:
Code:
Option Explicit
Function Blattschutz() As Boolean
If ActiveSheet.ProtectContents Then
Blattschutz = True
Else
Blattschutz = False
End If
End Function
Sub Schutz()
Blattschutz
If Blattschutz = True Then
ActiveSheet.Unprotect
ActiveSheet.Range("A1").Value = "Blattschutz"
ActiveSheet.Range("A1").Interior.ColorIndex = 3
ActiveSheet.Protect
End If
If Blattschutz = False Then
ActiveSheet.Range("A1").Value = "kein Blattschutz"
ActiveSheet.Range("A1").Interior.ColorIndex = 50
End If
End Sub
Registriert seit: 16.04.2014
Hallo an alle,
die Frage war eine Demonstrationsfrage heute Abend in meinem Kurs um das Forum vorzustellen
und zu zeigen wie schnell man bei uns auf Fragen eine Antwort bekommt.
Danke für die Antworten, ich wusste auch nicht wie man den Blattschutz abfragen kann.
Es ist nicht genug, zu wissen. Man muss es auch anwenden.
Es ist nicht genug, zu wollen. Man muss es auch tun.
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hallo Heinz,
Zitat:die Frage war eine Demonstrationsfrage heute Abend in meinem Kurs um das Forum vorzustellen
und zu zeigen wie schnell man bei uns auf Fragen eine Antwort bekommt.
dann hoffen wir, dass die Demo für deine Kursteilnehmer erfolgreich war und sich viele bei uns anmelden. ;)
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
Hallo Heinz,
dann behaupte ich mal, daß die Zeiten ... Kernfernsehzeit, wenn auch ohne Fußball (glaube ich wenigstens :19:) ... ja gar nicht so schlecht waren.
Auch nicht für Demonstrationszwecke :19:
