Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Blattschutz per VBA aufheben

Forumthread: Blattschutz per VBA aufheben

Blattschutz per VBA aufheben
28.11.2003 13:50:09
Tobias
Hallo zusammen
kann mir jemand sagen, wie ich in VBA den Blattschutz eines Worksheets aufheben kann, ohne dass ich eine Eingabe machen muss! Ich hab da an Sendkeys gedacht, denke aber, dass es auch anders möglich sein sollte! Leider ist es mit den Sendkeys aber nicht möglich, da mann kein Passwort eingeben kann
Weiss jemand Rat?! Wenn ja, wie ist der umgekehrte Weg zu erreichen, d.h. das Blatt per VBA zu sperren, ohne eine einzige Eingabe machen zu müssen?!
Besten Dank! Tobias
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz per VBA aufheben
28.11.2003 13:54:11
Uli
Schau mal unter Herbers "Excel-Downloads" und dann den "xl-Crack.Zip",
mid dem Add-Inn hebst Du mit einem Klick den Blattschutz auf, ob mit oder ohne Kennwort, ob Kennwort bekannt oder nicht...

GRuß Uli
AW: Blattschutz per VBA aufheben
28.11.2003 14:17:40
Carsten
Hallo Tobias,


Sub schutz()
ActiveSheet.Protect deinpasswort
End Sub



Sub aufheben()
ActiveSheet.Unprotect deinpasswort
End Sub


Gruß
Carsten
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Blattschutz per VBA aufheben


Schritt-für-Schritt-Anleitung

Um den Blattschutz in Excel mittels VBA aufzuheben, kannst du den folgenden Code verwenden. Achte darauf, dass du das Passwort, falls vorhanden, anpasst:

Sub aufheben()
    ActiveSheet.Unprotect "deinpasswort"
End Sub

Wenn du den Blattschutz aufheben möchtest, ohne ein Passwort eingeben zu müssen, kannst du den Schutz auch ohne Passwort aufheben, solange das Blatt nicht mit einem Passwort geschützt ist. Für ein Blatt, das mit Passwort geschützt ist, benötigst du dieses Passwort.

Um den Blattschutz wieder zu aktivieren, kannst du folgenden Code verwenden:

Sub schutz()
    ActiveSheet.Protect "deinpasswort"
End Sub

Häufige Fehler und Lösungen

  1. Fehler: "Das Passwort ist falsch."

    • Prüfe, ob das Passwort korrekt eingegeben wurde. Achte auf Groß-/Kleinschreibung.
  2. Fehler: "Das Blatt ist möglicherweise nicht geschützt."

    • Stelle sicher, dass der Blattschutz tatsächlich aktiviert ist. Ansonsten gibt es keinen Schutz, den du aufheben müsstest.
  3. Fehler: "VBA-Projekt kann nicht geöffnet werden."

    • Überprüfe, ob das Projekt möglicherweise mit einem Passwort geschützt ist. In diesem Fall brauchst du das Passwort, um auf den Code zugreifen zu können.

Alternative Methoden

Wenn du den Blattschutz ohne VBA aufheben möchtest, kannst du auch Add-Ins wie „xl-Crack.Zip“ verwenden. Dieses Add-In ermöglicht es dir, den Blattschutz sowohl mit als auch ohne Passwort aufzuheben.

Eine andere Möglichkeit ist die Verwendung von Makros, um mehrere Blätter gleichzeitig zu schützen oder den Schutz aufzuheben.


Praktische Beispiele

Hier sind einige Beispiele für häufige Anwendungsfälle:

  • Blattschutz aufheben ohne Passwort:
Sub blattschutz_aufheben()
    ActiveSheet.Unprotect
End Sub
  • Blattschutz mit Passwort aufheben:
Sub blattschutz_mit_passwort_aufheben()
    ActiveSheet.Unprotect "deinpasswort"
End Sub

Diese Codes funktionieren in Excel 365 und anderen Versionen. Achte darauf, dass du die entsprechenden Berechtigungen hast.


Tipps für Profis

  • Verwende Variablen für Passwörter, um deinen Code flexibler zu gestalten:
Sub schutz()
    Dim passwort As String
    passwort = "deinpasswort"
    ActiveSheet.Protect passwort
End Sub
  • Denke daran, Makros in deinen Excel-Einstellungen zu aktivieren, damit sie korrekt ausgeführt werden.

  • Wenn du regelmäßig den Blattschutz aufheben musst, erstelle ein Makro, das diesen Vorgang automatisiert.


FAQ: Häufige Fragen

1. Wie kann ich den Blattschutz ohne Passwort aufheben?
Wenn der Blattschutz ohne Passwort gesetzt wurde, kannst du ihn einfach mit ActiveSheet.Unprotect aufheben.

2. Kann ich einen Blattschutz per VBA setzen?
Ja, mit dem Befehl ActiveSheet.Protect "deinpasswort" kannst du den Blattschutz wieder aktivieren.

3. Welche Excel-Versionen unterstützen diese VBA-Befehle?
Die oben genannten Befehle funktionieren in Excel 365 sowie in früheren Versionen, solange VBA unterstützt wird.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige