Tabellenschutz per Makro erkennen

30. September 2009
Martin Althaus Von Martin Althaus, Excel, Office ...

So stellen Sie eine geschützte Tabelle mit VBA fest

Wenn Sie Tabellenblätter vor Veränderungen schützen möchten, können Sie dazu die Funktion "Extras – Schutz – Blatt schützen" verwenden. Die folgende Abbildung zeigt das passende Dialogfenster.

Wenn Sie den Schutz über die OK-Schaltfläche bestätigen, sind alle Inhalte in der Tabelle geschützt. Wie können Sie das per VBA erkennen? Setzen Sie die Eigenschaft ProtectContents ein, um das festzustellen. Das folgende Makro zeigt, wie das funktioniert:

Sub IstBlattGescheutzt()
Dim a As String
If ActiveSheet.ProtectContents = True Then
 a = MsgBox("Die aktive Tabelle ist geschützt.", _
 vbOKOnly, "Schutz entdeckt")
Else
 a = MsgBox("Die aktive Tabelle ist nicht geschützt.", _
 vbOKOnly, "Kein Schutz entdeckt")
End If
End Sub

Nach dem Start erhalten Sie ein Hinweisfenster, mit dem Excel darstellt, ob die aktive Tabelle geschützt ist oder nicht.

Falls Sie anstelle des aktiven Tabellenblatts ein anderes Tabellenblatt prüfen möchten, ersetzen Sie die Eigenschaft ActiveSheet durch das passende Objekt.

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

  • Excel Vorlagen zum Sofort-Download
  • Geprüfte Vorlagen zum Sofort-Einsatz
  • Gratis Makros & Add-Ins im Downloadcenter
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"