Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
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
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt nach Eingaben sperren/schützen

Forumthread: Tabellenblatt nach Eingaben sperren/schützen

Tabellenblatt nach Eingaben sperren/schützen
Matthias
Ich habe eine Excel-Datei, die Tabellenblätter für einen Monat enthält.
Auf den Tabellenblättern werden täglich Daten eingetragen. Für jeden Tag gibt es ein Blatt.
Auf jedem Blatt gibt es geschützte Zellen, die Formeln enthalten. Auf jedem Blatt gibt es ungeschützte Zellen, um dort Zahlen eintragen zu können.
Ich möchte nun Folgendes:
- Das Tagesblatt soll mit den benötigten Daten gefüllt werden.
- Wenn alle Daten in Laufe des Tages eingegeben sind, soll das Blatt von einer Person kontrolliert werden.
- Sind die Zahlen o.k., so möchte ich das aktive Tabellenblatt für weitere Eingaben sperren. Im Laufe des Monats soll das für jedes Blatt erfolgen.
Kann das über VBA erfolgen? „Blattschutz“?
Das Skript sollte einem Button in der Symbolleiste zugewiesen werden, so dass beim Anklicken des Buttons immer das aktive Blatt komplett gesperrt / geschützt wird.
Anzeige
AW: Tabellenblatt nach Eingaben sperren/schützen
09.03.2010 11:47:28
Matthias
Vielen Dank an beide für die Hilfe.
Ich habe in eine persönliche Makroarbeitsmappe (personl.xls) das unten Aufgelistete als Modul eingefügt.
Nach Ausführen der Prozedur prcCreateButton() war der gewünschte Button in der Menüleiste verfügbar.
Durch Anklicken des Button erhalte ich den gewünschten Blattschutz, der nur mit einem Passwort wieder aufgehoben werden kann.
Mal schauen wie es in der täglichen Praxis läuft.
Option Explicit
Option Private Module
Public Sub prcCreateButton()
Dim myCommandBar As CommandBar
Dim myCommandBarButton As CommandBarButton
Set myCommandBar = Application.CommandBars("Worksheet Menu Bar")
Set myCommandBarButton = myCommandBar.Controls.Add(Type:=msoControlButton, _
Before:=myCommandBar.Controls.Count + 1, Temporary:=False)
With myCommandBarButton
.BeginGroup = True
.Caption = "Freigabe"
.FaceID = 51
.OnAction = "prcSperren"
.Style = msoButtonIconAndCaption
.TooltipText = "Freigabe durch XXX"
.Tag = "Freigabe"
End With
Set myCommandBar = Nothing
Set myCommandBarButton = Nothing
End Sub


Public Sub prcSperren()
MsgBox "Freigabe"
ActiveSheet.Unprotect
Cells.Locked = True
ActiveSheet.Protect "Passwort"
End Sub

Anzeige
Der Sinn der ganzen Aktion ...
09.03.2010 19:35:00
Ramses
Hallo
... erschliesst sich wohl nicht mal dem Anwender.
Das ganze ist doch nutzlos weil es nicht funktioniert.
Gruss Rainer
AW: Der Sinn der ganzen Aktion ...
10.03.2010 06:51:53
Matthias 

... erschliesst sich wohl nicht mal dem Anwender.
Das ganze ist doch nutzlos weil es nicht funktioniert.

Warum nutzlos?
Was funktioniert nicht?
Ist meine Beschreibung möglicherweise missverständlich?
Ich habe es doch ausprobiert und es hat wie gewünscht funktioniert.
1. Sub prcCreateButton() im VBA-Editor ausgeführt --> Button wurde in der Menüleiste angelegt.
2. VBA-Editor wieder geschlossen
3. Durch Anklicken des Buttons wird das vorher teilweise geschützte aktive Tabellenblatt vollständig mit
einem Blattschutz mit Passwort versehen.
Wo ist nun der Fehler? Was ist nutzlos?
Anzeige
AW: Der Sinn der ganzen Aktion ...
10.03.2010 17:26:40
Ramses
Hallo
Vielleicht ist das eher ein Verständnisproblem von mir.
Deine Dateien haben offensichtlich zuerst einen Blattschutz ohne Passwort. D.h. jeder kann hier den Blattschutz problemlos entfernen und/oder ein anderes Passwort setzen. Sollte das mal geschehen, dann funktioniert dein Makro nicht mehr.
Wurde das Passwort deinerseits mit dem Makro dann mal gesetzt, kommt es bei einem weiteren Aufruf zu einem Fehler, weil das "unprotect" dann nicht funktioniert.
Was passiert denn, wenn man "versehentlich" den Button drückt bevor man Eingaben gemacht hat ?
Ein "entschützen" und Dateneingabe ist dann nicht mehr möglich, ebensowenig wie Änderungen der Eingaben.
Gruss Rainer
Anzeige
AW: Der Sinn der ganzen Aktion ...
11.03.2010 15:51:27
Matthias
Richtig. Das Tabellenblatt hat zunächst einen Blattschutz ohne Passwort -- um zu verhindern, dass Formeln versehentlich gelöscht bzw. verändert werden.
Auch richtig ist, dass jemand vorsetzlich über die Menüfunktion am Blattschutz herumspielen könnte. Das will ich aber nicht unbedingt unterstellen.
Damit ein versehentliches Drücken des Buttons ohne Folgen bleiben kann, habe ich das Makro um Meldungsfenster (MsgBox) erweitert und der Vorgang könnte dann noch abgebrochen werden.
Public Sub prcSperren()
Dim Mldg, Stil, Titel, Antwort, Text1
Mldg = "ACHTUNG!!! Nach dem Bestätigen von [Ja] sind keine Eingaben mehr möglich."
Stil = vbYesNo + vbExclamation + vbDefaultButton2
Titel = "Freigabe durch XXX"
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
ActiveSheet.Unprotect
Cells.Locked = True
ActiveSheet.Protect "frei56"
ActiveWorkbook.Save
MsgBox "Blatt wurde gesperrt"
Else
MsgBox "Blatt wurde nicht gesperrt"
End If
End Sub
Wurde das Passwort deinerseits mit dem Makro dann mal gesetzt, kommt es bei einem weiteren Aufruf zu einem Fehler, weil das "unprotect" dann nicht funktioniert.

Ja, leider.
Könnte man das verhindern?
Im Normalfall sind bestimmte / festgelegte Zellen für Dateneingaben vorgesehen - z.B. B12.
Kann man abfragen ob Zellen geschützt oder ungeschützt sind ("Gesperrt" formatiert / nicht "Gesperrt" formatiert)?
Bei einem bereits vollständig geschützten Blatt wäre ja auch meine Zelle B12 "Gesperrt" formatiert. Dann müsste das Makro auf die bereits bestehend MsgBox "Blatt wurde nicht gesperrt" verzweigen.
Ich hoffe, ich habe mich verständlich ausgedrückt.
Danke für weitere Hilfe(n).
Anzeige
AW: Der Sinn der ganzen Aktion ...
11.03.2010 16:45:35
Ramses
Hallo
die einfachste Variante in diesem Zusammenhang wäre, alle deine Zellen zu markieren wo Eingaben getätigt werden sollen und diesem markierten Bereich dann einen Namen zu vergeben, z.B. "rngEingabe"
Dann kannst du mit einem kleinen Makro den Bereich wieder zurücksetzen
Sub Reset_Protect()
ActiveSheet.Unprotect "DeinPasswort"
Range("rngEingabe").Locked = False
ActiveSheet.Protect "DeinPasswort"
End Sub
Nun sind die Zellen wieder freigeschaltet wo Eingaben getätigt werden können
Das Makro kannst du dann analog dem ersten Button in deine Commandbar einbinden
Gruss Rainer
Anzeige
Unprotect - Cells.Locked = True - Protect
03.03.2010 15:39:50
Matthias
Hallo
ActiveSheet.Unprotect "Passwort"
Cells.Locked = True
ActiveSheet.Protect "Passwort"
und dann einer Schaltfläche zuweisen
Gruß Matthias
;

Forumthreads zu verwandten Themen

Tabellenblätter per Makro ein.- und ausblenden
Kenny

Meine VBA Kenntnisse stecken noch ziemlich in den Kinderschuhen ...
Nun soll ich aber für meinen Chef Folgendes basteln:
Ich habe eine Datei mit diversen Tabellenblättern. Auf dem ersten Tabellenblatt stehen quasi allgemeine Stammdaten. Die folgenden Tabellenblätter sind nach div. Lände...
15.11.2012 17:08:17
Thread-ID: 1286856
4 Beiträge
Spalten auttomatisch ausblenden und sperren
Chris

Hallo,
ich habe wieder mal ein Problem und bitte euch um Unterstützung:
Ich habe eine Excel-Tabelle auf die meherere Personen zugreifen können. Darin ist die Spalte H, die nur bestimmte Personen sehen dürfen. Deshalb möchte ich diese Spalte automatisch ausblenden und sperren/mit einem P...
07.10.2013 07:41:30
Thread-ID: 1333381
14 Beiträge
mehrere Tabellenblätter teilweise sperren
Erwin

Hallo,
ich habe für jede Kalenderwoche ein eigenes Tabellenblatt, also 1KW bis 53KW. Daneben habe ich noch zwei Blätter zur Auswertung und für Sonstiges. Die 53 KW-Blätter möchte ich nun ab der Zeile 48 sperren. Die Zellen darüber sollen beschreibbar bleiben. Die anderen Tabellenblätter "Au...
29.01.2016 12:45:57
Thread-ID: 1472038
3 Beiträge
Tabellenblätter und Diagrammblätter ausblenden
Susann

Hallo zusammen,
ich habe folgendes Problem:
Ich habe eine Excel-Datei mit mehreren Sheets, wobei einige Tabellenblätter (worksheets) und einige Diagramme sind.
Als Bsp. habe ich folgende Sheets in meiner Excel Datei:
- Tabelle_PV
- Dia1_PV
- Dia2_PV
- Tabelle_RV
...
02.02.2016 09:12:45
Thread-ID: 1472601
3 Beiträge
Tabellenblätter ein und ausblenden
Leif

Hallo zusammen,
ich bin gerade dabei mein Planungstool zu überarbeiten und brauche eure Hilfe.
In der Zelle V4 im Blatt KST (1) steht jeweils eine Zahl von 1-6, welches die Anzahl an Kostenstellenblättern (KST (1) bis KST (6))vorgibt die ein oder ausgeblendet werden sollen.
Wenn als...
23.05.2018 15:47:25
Thread-ID: 1625347
6 Beiträge
VBA Zeilen und Tabellenblätter ein- und ausblenden
Frank

Hallo zusammen,
ich habe folgende VBA-Codes, die beide einzeln funktionieren. Nun möchte ich, dass beide zusammen funktionieren. Könnt ihr mir da bitte helfen?
Wenn auf dem Tabellenblatt "Start" in Zelle "J15" eine 3 ausgegeben wird, dann soll das Tabellenblatt "Erfolgskontrolle" eingeb...
19.11.2018 08:03:33
Thread-ID: 1658107
7 Beiträge
Zellen Sperren und Ausblenden
Adam

Hallo,
ich möchte in einer Datei bestimmte Zeilen ausblenden und den Zugriff darauf nicht zulassen.
1. Ich markiere die Zeilen, die ich ausblenden und schützen möchte
2. "Zellen formatieren" - gesperrt
4. Entsprechende Zeilen ausblenden
5. Blattschutz aktivieren
So weit...
11.03.2019 17:51:19
Thread-ID: 1680672
5 Beiträge
Tabellenblatt sperren und entsperren!
Swen

Hallo an alle,
wie kann man ein Blatt sperren so das man in dieses Blatt keine
Einträge machen kann (über ein makro/function)!
Und wie kann man es wider entsperren übner ein makro!
gruß
swen
27.11.2005 11:22:56
Thread-ID: 701351
4 Beiträge
Anzeige
Formeln in Zellen ausblenden und sperren
Thomas

Hallo Ihr,
ich habe eine Tabelle wo in speziellen Spalten Formeln hinterlegt sind die ausgeblendet und gesperrt werden sollen, damit keinersie verändern kann. Wenn ich das ganze über rechte Maustaste, Zellen formatieren und Schutz und anschließend auf Extras, Blatt schützen gehe, dann schüt...
12.12.2006 07:46:21
Thread-ID: 828429
4 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
VBA Tabellenblätter ein- und ausblenden
Lothar

Hallo an Alle,
ich habe eine Exceldatei mit mehr 100 Blättern.Zur Übersichtlichkeit möchte ich alle Blätter, bis auf das Blatt "Tab_Liste", aus- und bei Bedarf wieder einblenden. Das Einblenden klappt mit den Code's aus dem Netz, aber das Einblenden nicht.
Vielleicht hat ja jemand eine...
22.02.2021 18:09:34
Thread-ID: 1815230
6 Beiträge
Anzeige
Makro ausblenden und sperren von Spalten
Spalten
Hallo Zusammen,
ich habe schon sehr viel gegoogelt, aber leider keine Lösung für mein Problem gefunden. Ich hoffe, ihr könnt mir helfen.
Es geht um folgende Aufgabenstellung.
Ich habe ein File, in welches verschiedene Kennzahlen eingetragen werden sollen. Dieses File enthält Spalten f...
01.04.2022 08:22:22
Thread-ID: 1877784
10 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

Tabellenblätter in Excel schützen und sperren

Schritt-für-Schritt-Anleitung

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" und wähle Einfügen > Modul.

  3. Erstelle den Button:

    • Füge den folgenden Code in das Modul ein, um einen Button in der Menüleiste zu erstellen: 
      Public Sub prcCreateButton()
Dim myCommandBar As CommandBar
Dim myCommandBarButton As CommandBarButton
Set myCommandBar = Application.CommandBars("Worksheet Menu Bar")
Set myCommandBarButton = myCommandBar.Controls.Add(Type:=msoControlButton, _
Before:=myCommandBar.Controls.Count + 1, Temporary:=False)
With myCommandBarButton
   .BeginGroup = True
   .Caption = "Freigabe"
   .FaceID = 51
   .OnAction = "prcSperren"
   .Style = msoButtonIconAndCaption
   .TooltipText = "Freigabe durch XXX"
   .Tag = "Freigabe"
End With
Set myCommandBar = Nothing
Set myCommandBarButton = Nothing
End Sub

  4. Schütze das aktive Blatt:

    • Füge den nachfolgenden Code ein, um das aktive Blatt zu schützen: 
      Public Sub prcSperren()
Dim Mldg, Stil, Titel, Antwort
Mldg = "ACHTUNG!!! Nach dem Bestätigen von [Ja] sind keine Eingaben mehr möglich."
Stil = vbYesNo + vbExclamation + vbDefaultButton2
Titel = "Freigabe durch XXX"
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
   ActiveSheet.Unprotect
   Cells.Locked = True
   ActiveSheet.Protect "DeinPasswort"
   ActiveWorkbook.Save
   MsgBox "Blatt wurde gesperrt"
Else
   MsgBox "Blatt wurde nicht gesperrt"
End If
End Sub

  5. Teste das Makro:

    • Schließe den VBA-Editor und teste das Makro, indem du auf den neu erstellten Button klickst.

Häufige Fehler und Lösungen

  • Fehler: Blattschutz lässt sich nicht aufheben:

    • Stelle sicher, dass du das richtige Passwort eingibst. Wenn das Passwort falsch ist, wird der Schutz nicht aufgehoben.

  • Fehler: Makro funktioniert nicht:

    • Überprüfe, ob das Makro korrekt im Modul eingefügt wurde und dass du die richtige Excel-Version verwendest, die VBA unterstützt.

Alternative Methoden

  • Manuelles Schützen:

    • Du kannst auch das Tabellenblatt manuell schützen, indem du auf Überprüfen > Blatt schützen klickst. Hier kannst du ein Passwort festlegen.

  • Bereichsnamen verwenden:

    • Markiere alle Zellen, in denen Eingaben erlaubt sein sollen, und vergebe einen Namen (z.B. rngEingabe). Mit einem Makro kannst du dann den Schutz nur für diesen Bereich aufheben.

Praktische Beispiele

  • Beispiel für ein einfaches Makro:

    Sub Reset_Protect()
  ActiveSheet.Unprotect "DeinPasswort"
  Range("rngEingabe").Locked = False
  ActiveSheet.Protect "DeinPasswort"
End Sub

  • Benutzung des Makros:

    • Dieses Makro hebt den Schutz auf und erlaubt Eingaben in den definierten Bereich. Es kann einem Button zugewiesen werden, ähnlich wie das Blattschutz-Makro.

Tipps für Profis

  • Passwort sicher aufbewahren:

    • Verwende ein sicheres Passwort, um unbefugten Zugriff zu verhindern. Achte darauf, dass das Passwort nicht leicht zu erraten ist.

  • Verwendung von VBA:

    • Nutze VBA, um komplexe Aufgaben zu automatisieren, wie das Sperren und Entsperren von Zellen basierend auf bestimmten Bedingungen.

FAQ: Häufige Fragen

1. Wie kann ich ein Tabellenblatt in Excel schützen?
Du kannst ein Tabellenblatt schützen, indem du auf Überprüfen > Blatt schützen klickst und ein Passwort angibst.

2. Kann ich bestimmte Zellen ungeschützt lassen?
Ja, du kannst das Layout so einstellen, dass bestimmte Zellen ungeschützt bleiben. Markiere die Zellen, die ungeschützt bleiben sollen, und gehe zu Format > Zellen > Schutz, um die Option "Gesperrt" zu deaktivieren.

3. Wie kann ich den Blattschutz wieder aufheben?
Um den Blattschutz aufzuheben, gehe zu Überprüfen > Blattschutz aufheben und gib das Passwort ein, das du zuvor festgelegt hast.

4. Funktioniert das in allen Excel-Versionen?
Die VBA-Methoden funktionieren in den meisten neueren Excel-Versionen. Stelle sicher, dass deine Version VBA unterstützt.

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