Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA-Blattschutz
#1
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.
Antworten Top
#2
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?
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
Antworten Top
#3
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
Antworten Top
#4
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


Dateiupload bitte im Forum! So geht es: Klick mich!
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
Antworten Top
#5
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.
Antworten Top
#6
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)
Antworten Top
#7
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:
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste