Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1752to1756
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1752to1756
1752to1756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz nur teilweise aufheben

Blattschutz nur teilweise aufheben
16.04.2020 17:41:24
Micha
Hallo,
habe ein Arbeitsblatt ("Münster") geschützt. Nun möchte ich einige Zellbereiche per Button entsperren, neue Daten eingeben und danach wieder schützen. Beim aufheben des Blattschutzes sollen allerdings alle anderen Zellen gesperrt bleiben.
Beispiel: - Schutz für A1:H40 aktiviert.
- Button "Schutz aus" entsperrt den Zellbereich H1:H40
(die restlichen Zellen bleiben geschützt)
- Dateneingabe im Zellbereich H1:H40
- Button "Schutz ein" sperrt den Zellbereich H1:H40
Geht das mit VBA? Und wie sieht der Code aus? Welche Ergänzungen muss ich einfügen in:
Sheets("Münster").Unprotect Password:="Mein Passwort" bzw.
Sheets("Münster").Protect Password:="Mein Passwort"
Für Eure Hilfe bedanke ich mich bereits im Voraus. Bleibt alle gesund.
Gruß
Micha

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz nur teilweise aufheben
16.04.2020 17:45:35
Hajo_Zi
Hallo Micha,
NEIN
nun wenn du eine Code schreibst und bei alle anderen Zelle Undo machst.

AW: Blattschutz nur teilweise aufheben
16.04.2020 17:52:02
Micha
Hallo Hajo_Zi,
habe Dich leider nicht verstanden.
Was meinst Du mit Undo bei allen anderen Zellen?
AW: Blattschutz nur teilweise aufheben
16.04.2020 17:56:48
Hajo_Zi
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle. 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address  "$A$1" Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End Sub
Gruß Hajo
Anzeige
AW: Blattschutz nur teilweise aufheben
16.04.2020 18:00:06
Micha
Vieln Dank.
für den Bereich lt. 1. Beitrag
16.04.2020 18:04:52
Hajo_Zi 


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
If Target.Row > 41 Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
Else
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub

Gruß Hajo
AW: für den Bereich lt. 1. Beitrag
16.04.2020 18:12:32
Micha
Hallo,
vielen Dank. Jetzt habe ich verstanden.
So wollte ich es auch haben.
Alles Gute bis dahin
Gruß
Micha
Anzeige
AW: Blattschutz nur teilweise aufheben
16.04.2020 17:53:56
Micha
Hallo,
habe ein Arbeitsblatt ("Münster") geschützt. Nun möchte ich einige Zellbereiche per Button entsperren, neue Daten eingeben und danach wieder schützen. Beim aufheben des Blattschutzes sollen allerdings alle anderen Zellen gesperrt bleiben.
Beispiel: - Schutz für A1:H40 aktiviert.
- Button "Schutz aus" entsperrt den Zellbereich H1:H40
(die restlichen Zellen bleiben geschützt)
- Dateneingabe im Zellbereich H1:H40
- Button "Schutz ein" sperrt den Zellbereich H1:H40
Geht das mit VBA? Und wie sieht der Code aus? Welche Ergänzungen muss ich einfügen in:
Sheets("Münster").Unprotect Password:="Mein Passwort" bzw.
Sheets("Münster").Protect Password:="Mein Passwort"
Für Eure Hilfe bedanke ich mich bereits im Voraus. Bleibt alle gesund.
Gruß
Micha
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige