Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Friedrichroda /
Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.

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.
to 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!

?mage
to 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
to 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

https://www.dropbox.com/s/kk3t2s6e261733...nzeige.xls
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

?mage
to 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.
to 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. Wink
?mage

Misserfolg ist eine Chance, es beim
nächsten Mal besser zu machen.

(Henry Ford)
http://www.sprueche-zum-nachdenken.eu
to 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!

?mage
to top


Gehe zu:


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