Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in 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


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Blattschutz schützen (ohne PW) Hobbes95 3 71 18.11.2016, 15:50
Letzter Beitrag: RPP63
  Blattschutz aufheben bei bestimmten User FaDos 3 133 20.10.2016, 22:15
Letzter Beitrag: AlterDresdner
  Blattschutz ulle 1 89 11.10.2016, 10:34
Letzter Beitrag: Gast 123
  Blattschutz Fliege1711 12 645 06.08.2016, 07:25
Letzter Beitrag: Storax
  Gliederung, Filter und Spalten bearbeiten bei Blattschutz Veit 16 1.244 13.05.2016, 06:06
Letzter Beitrag: schauan
  Makro für Blattschutz Aydin77 4 704 18.04.2016, 23:23
Letzter Beitrag: Aydin77
  Messagebox wenn Blattschutz aufgehoben wird herbert0803 7 1.461 20.10.2015, 09:29
Letzter Beitrag: Rabe
  In Tabelle mit Blattschutz Zeilen einfügen flo 5 1.659 07.08.2015, 12:11
Letzter Beitrag: Rabe
  Lufzeitfehler nach Blattschutz cavok 2 726 21.06.2015, 11:26
Letzter Beitrag: cavok
  VBA Detektiv trotz Blattschutz Theo 0 540 21.05.2015, 16:35
Letzter Beitrag: Theo

Gehe zu:


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