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.
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?
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
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
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.
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. ;)
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: