Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz mit Button

Forumthread: Blattschutz mit Button

Blattschutz mit Button
Katja
Hallo Ihr,
ich habe ein Formular in Exel erstellt und möchte es gerne mit dem Blattschutz schützen. Über einen Button, soll dann die Frage nach dem Kennwort auftauchen und man soll den Blattschutz aufheben können bzw. wenn das Blatt gerade ohne Blattschutz aktiv ist diesen wieder aktivieren.
Kann mir bitte jemand helfen?
Vielen Dank schon einmal im Voraus.
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Blattschutz mit Button
Jorainbo
hallo,
unter Extras/Anpassen findest Du im Register 'Befehle' in der Kategorie 'Extras' eine Schaltfläche 'Blattschutz aufheben'. Sie funktioniert genau so wie von Dir beschrieben, in allen Arbeitsmappen. Ziehe sie einfach in eine Symbolleiste!
Gruß
Tom
AW: Blattschutz mit Button
ChrisL
Hi Katja
Makro hat noch einen Fehler, aber muss jetzt in den Mittag...

Private Sub CommandButton1_Click()
Dim PW As String
With ActiveSheet
If .Protect Then
PW = Application.InputBox("Bitte Passwort eingeben:", "Passwortabfrage")
If PW = "Falsch" Or PW = "False" Then Exit Sub
If PW <> "Test" Then
MsgBox "Falsches Passwort", vbCritical
Exit Sub
Else
.Unprotect Password:="Test"
End If
Else
.Protect Password:="Test"
End If
End With
End Sub

Gruss
Chris
Anzeige
AW: Blattschutz mit Button
ChrisL
so läufts... ;-)

Private Sub CommandButton1_Click()
Dim PW As String
With ActiveSheet
If .ProtectContents Then
PW = Application.InputBox("Bitte Passwort eingeben:", "Passwortabfrage")
If PW = "Falsch" Or PW = "False" Then Exit Sub
If PW <> "Test" Then
MsgBox "Falsches Passwort", vbCritical
Exit Sub
Else
.Unprotect Password:="Test"
End If
Else
.Protect Password:="Test"
End If
End With
End Sub

Anzeige
AW: Blattschutz mit Button
20.04.2004 12:14:22
Oberschlumpf
Hi Katja
Dieser Code funktioniert (zumindest bei mir :-) )
Private Sub CommandButton1_Click()
If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect
Else
ActiveSheet.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
Bei Klick auf Button wird geprüft, ob Blattschutz aktiv oder nicht.
Wenn nicht aktiv, wird Blatt mit dem Passwort "test" geschützt.
Wenn beim nächsten Klick aktiver Blattschutz erkannt wird, versucht der Code, den Blattschutz zu entfernen. Da aber mit Passwort versehen, erscheint automatisch ein Abfragefenster, in dem das gültige Passwort eingetragen werden muss.
Konnte ich helfen?
Ciao
Thorsten
Anzeige
AW: Blattschutz mit Button
21.04.2004 12:20:29
Katja
Vielen Dank für Eure Tipps, werde sie gleich mal ausprobieren. Mal sehen welche Möglichkeit in meinem Fall die praktikabelste ist.
;

Forumthreads zu verwandten Themen

VBA Blattschutz und Aufheben alle Blätter
Joachim

Hallo zusammen,
ich möchte alle Blätter der Datei schützen bzw. den Schutz aufheben.
Ist es möglich, mit einem Eintrag in Zelle A100 der "BSE" lautet den Blatschutz für alle Blätter gleichzeitig einzustellen ?
und mit einem Eintrag in B100 der "BSA" lauten soll, den Blattschutz für...
29.11.2018 14:20:17
Thread-ID: 1660368
10 Beiträge
Blattschutz aufheben ohne(!) Passworteingabe?
Martin S

Eigentlich ist das ein einfaches aber auch schwieriges Problem!

Ich habe ein Makro geschrieben, daß es einem Anwender erlaubt aus einer ComboBox einen Auswahl zu treffen und dadurch eine Berechnung zu starten, die wiederum in einem Ergenis mündet das entsprechend angezeigt wird.
31.07.2003 13:42:45
Thread-ID: 288114
3 Beiträge
Blattschutz aufheben ohne Passwort
ch.heer@mysunrise.ch

Hallo Leute. Habe eine kleine Knacknuss zum knacken.
Habe bei meiner Excel meine Formel geschützt mit dem Blattschutz. Leider habe
ich die Passwort Liste vernichtet.... Das wäre alles kein Problem, nur möchte ich nun die Formel klein wenig anpassen. Das ist das Problem! Kopieren und auf...
15.03.2006 22:48:40
Thread-ID: 744758
11 Beiträge
VBA: Ausgewählt Blätter passwortschützen
Axel

Hallo zusammen,
ich möchte nur für ausgewählte Tabellenblätter einen Blattschutz einrichten.
Für 1 Tabellenblatt habe ich folgendes Statement, das auch funktioniert:
Sub Blattschutz_ein_mit_Passwort() Sheets("Tabelle1").Protect Password:="meinPasswort" End Sub Für alle Tabellenblät...
01.04.2020 09:51:38
Thread-ID: 1749737
4 Beiträge
Blattschutz aufheben VBA?
Herrmann
Hallo Community,
ich arbeite mit einer Exceldatei, welches 12 Arbeitsblätter besitzt. Nun musste ich ein Blattschutz einrichten (Schutz für Zellen wo drin Formeln stehen), da durch diverse MA des öfteren Formeln gelöscht oder geändert wurden. Wenn ich nun etwas an den besagten Zellen verändern m...
18.01.2022 09:49:47
Thread-ID: 1865985
6 Beiträge
Anzeige
VBA - mehrere Blätter + Zellen schützen
FrankS
Hallo zusammen,
ich möchte gerne in mehreren Tabellenblättern jeweils mehrere Datenbereiche ansprechen um dort den Zellschutz zu aktivieren/ deaktivieren.
Kann ich den VBA Code verkürzen sodass ich nicht jeden Bereich in jedem Tabellenblatt einzeln ansprechen muss?
Mein Vorgehen wäre:
11.10.2022 18:23:33
Thread-ID: 1902345
5 Beiträge
AutoFilter in geschützen Tabellenblättern mit VBA
Thomas
Hallo,
ich habe eine Exceldatei mit mehreren Tabellenblättern wo die Blätter geschützt sind, damit die Inhalte nicht verändert werden können.
Jetzt soll es aber möglich sein über die AutoFilter zu Filtern, leider bekomme ich es nicht hin und finde auch über google nichts was funktioniert, di...
07.11.2023 12:35:35
Thread-ID: 1952592
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Blattschutz mit Button in Excel

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und lade die Arbeitsmappe, die du schützen möchtest.

  2. Füge einen Button hinzu:

    • Gehe zu "Entwicklertools" und klicke auf "Einfügen".
    • Wähle die Schaltfläche "Befehlsbutton" aus und ziehe sie auf dein Arbeitsblatt.

  3. Öffne den VBA-Editor:

    • Klicke mit der rechten Maustaste auf den Button und wähle "Code anzeigen".

  4. Füge den folgenden VBA-Code ein:

    Private Sub CommandButton1_Click()
   Dim PW As String
   With ActiveSheet
       If .ProtectContents Then
           PW = Application.InputBox("Bitte Passwort eingeben:", "Passwortabfrage")
           If PW = "Falsch" Or PW = "False" Then Exit Sub
           If PW <> "Test" Then
               MsgBox "Falsches Passwort", vbCritical
               Exit Sub
           Else
               .Unprotect Password:="Test"
           End If
       Else
           .Protect Password:="Test"
       End If
   End With
End Sub

  5. Schließe den VBA-Editor und teste den Button, um zu sehen, ob der Blattschutz aufheben funktioniert.

Häufige Fehler und Lösungen

  • Fehler: "Falsches Passwort"-Meldung: Überprüfe, ob du das Passwort "Test" korrekt eingibst.
  • Blattschutz wird nicht aktiviert: Stelle sicher, dass der Button korrekt mit dem VBA-Code verknüpft ist.
  • Keine Reaktion auf Buttonklick: Prüfe, ob der Button im Entwurfsmodus ist. Klicke auf "Entwurfsmodus" im Entwicklertools-Menü, um ihn zu deaktivieren.

Alternative Methoden

  • Blattschutz über die Menüleiste: Du kannst auch den Blattschutz manuell aktivieren, indem du auf "Überprüfen" > "Blatt schützen" gehst.
  • Blattschutz mit einer Schaltfläche: Ziehe die Funktion "Blattschutz aufheben" in eine Symbolleiste, um den Blattschutz schnell zu verwalten.

Praktische Beispiele

  • Beispiel 1: Du hast ein Excel-Dokument mit sensiblen Daten. Mit dem Button kannst du den Blattschutz aktivieren, bevor du das Dokument teilst.
  • Beispiel 2: Erstelle ein Formular, das nur von bestimmten Personen ausgefüllt werden darf. Schütze das Blatt, um Änderungen an der Struktur zu verhindern.

Tipps für Profis

  • Passwortschutz: Verwende komplexe Passwörter, um den Blattschutz zu verstärken.
  • VBA optimieren: Du kannst den VBA-Code erweitern, um unterschiedliche Passwörter für verschiedene Benutzer zu verwenden.
  • Einstellungen anpassen: Nutze die Option AllowFormattingCells:=True, um Benutzern das Formatieren von Zellen zu ermöglichen, während der Blattschutz aktiv ist.

FAQ: Häufige Fragen

1. Wie kann ich den Blattschutz ohne Passwort aufheben?
Der Blattschutz lässt sich ohne Passwort nicht aufheben. Du musst das Passwort kennen, um Änderungen vorzunehmen.

2. Ist der Blattschutz in Excel sicher?
Der Blattschutz in Excel bietet einen grundlegenden Schutz, ist jedoch nicht 100% sicher gegen erfahrene Benutzer oder spezielle Software.

3. Kann ich den Blattschutz über VBA aktivieren?
Ja, du kannst den Blattschutz mit VBA aktivieren und aufheben, wie im Beispiel gezeigt.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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