Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1296to1300
1296to1300
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

per Klick Blattschutz für alle Tabellen

Forumthread: per Klick Blattschutz für alle Tabellen

per Klick Blattschutz für alle Tabellen
30.01.2013 07:55:36
Mirko
Guten morgen zusammen,
kann man per Klick auf einen Comman Button für alle Tabellenblätter einer Arbeitsmappe einen Blattschutz einschalten und per Klick wieder ausschalten?
DANKE und Gruss Mirko

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: per Klick Blattschutz für alle Tabellen
30.01.2013 08:49:24
haw
Hallo Mirko,
Sub Schutz_Ein_Aus()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.ProtectContents = True Then
ws.Unprotect
Else
ws.Protect
End If
Next ws
End Sub
Gruß
Heinz

AW: per Klick Blattschutz für alle Tabellen
30.01.2013 09:13:46
Mirko
Hallo Heinz,
Danke für die schnelle Antwort -- hinterlege ich den Code auf den Button den ich dafür nutzen möchte oder hinterlege ich den unter "Diese Arbeitsmappe"?
DANKE

Anzeige
AW: per Klick Blattschutz für alle Tabellen
30.01.2013 10:02:25
haw
Hallo Mirko,
wenn du einen Button verwenden willst, musst du den Code natürlich diesem Button zuweisen.
Gruß
Heinz

AW: per Klick Blattschutz für alle Tabellen
30.01.2013 11:19:37
Mirko
Hallo Heinz,
irgendwie funktioniert dies nicht -- muss amn da noch etwas anderes machen?
VG Mirko

AW: per Klick Blattschutz für alle Tabellen
30.01.2013 12:01:42
haw
Hallo Mirko,
das Makro ist ganz einfach gestrickt, sodass kaum was falsch sein kann.
Es hebt in allen Tabellen der Arbeitsmappe, in der das Makro steht, den Blattschutz (ohne Passwort) auf oder setzt ihn.
Gruß
Heinz

Anzeige
AW: per Klick Blattschutz für alle Tabellen
30.01.2013 12:05:26
Mirko
Hallo Heinz,
und wenn ein Passwort hinterlegt sein soll?
Muss man dazu viel ändern am Code?
VG Mirko

AW: per Klick Blattschutz für alle Tabellen
30.01.2013 12:14:15
haw
Hallo Mirko,
dann sähe das so aus: 
Sub Schutz_Ein_Aus()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.ProtectContents = True Then
ws.Unprotect "Passwort"
Else
ws.Protect "Passwort"
End If
Next ws
End Sub
Gruß
Heinz

Anzeige
AW: per Klick Blattschutz für alle Tabellen
30.01.2013 13:20:32
Mirko
Hallo Heinz,
habe es hinbekommen funktioniert auch, aber es wird nur per Klick gesteuert -- ohne ein Passwort eingeben zu müssen, kann man dies auch machen das nur der MA der das Passwort hat dies nutzen kann?
vg Mirko

AW: per Klick Blattschutz für alle Tabellen
30.01.2013 13:26:44
haw
Hallo Mirko,
hier wird das Passwort abgefragt: 
Sub Schutz_Ein_Aus()
Dim ws As Worksheet, PW$
PW = InputBox("Bitte das Passwort eingeben!", "PASSWORT")
If PW = "" Then Exit Sub
For Each ws In ThisWorkbook.Worksheets
If ws.ProtectContents = True Then
ws.Unprotect PW
Else
ws.Protect PW
End If
Next ws
End Sub

Gruß
Heinz

Anzeige
AW: per Klick Blattschutz für alle Tabellen
30.01.2013 14:51:14
Mirko
Hallo Heinz,
klappt bestens -- Danke :)
ein Problem habe ich nur noch -- beim aktivieren der Makros kommt immer ein Laufzeitfehler 1004 das die zu bearbeitende Zelle schreibgeschützt ist.
Kann ich auch eine Tabelle aus dem Blattschutz raus lassen?
VG Mirko

AW: per Klick Blattschutz für alle Tabellen
30.01.2013 18:22:20
haw
Hallo Mirko,
das ginge dann so: 
Sub Schutz_Ein_Aus()
Dim ws As Worksheet, PW$
PW = InputBox("Bitte das Passwort eingeben!", "PASSWORT")
If PW = "" Then Exit Sub
For Each ws In ThisWorkbook.Worksheets
If ws.Name  "Meine Tabelle" Then
If ws.ProtectContents = True Then
ws.Unprotect PW
Else
ws.Protect PW
End If
End If
Next ws
End Sub

statt Meine Tabelle müsstest du den Tabellennamen deiner gewünschten Tabelle einsetzen.
Gruß
Heinz

Anzeige
AW: per Klick Blattschutz für alle Tabellen
30.01.2013 20:55:25
Mirko
Hallo Heinz,
vielen Dank -- funktioniert bestens
Besten Dank noch mal
VG Mirko

Forumthreads zu verwandten Themen

Gruppierung trotz Blattschutz
Jürgen

Hallo Leute,
habe hier schon kräftig gestöbert und eigentlich soweit die Lösung zu meinem Problem gefunden.
Ich möchte die Gruppierungsfunktion und die Auto-Filter-Funktion nutzen, auch wenn das Blatt
geschützt ist. Hierzu verwende ich folgenden Code:
Private Sub Workbook_open...
13.08.2008 10:55:00
Thread-ID: 1001434
5 Beiträge
Anzeige
Blattschutz führt zu Abbruch !
wulfjack

... das hatte ich noch nie, obwohl ich sicherlich schon viel komplexere Excel-Dateien erstellt habe!
In einer Exceldatei mit 3 Arbeitsblättern ist das erste Arbeitsblatt als "Eingabe" definiert, d.h. von den benutzten Spalten A-N und den Zeilen 1 - 2000, ist nur der Bereich B10-B2000 "unge...
18.08.2008 10:16:59
Thread-ID: 1002511
3 Beiträge
Blattschutz führt zu Abbruch !
wulfjack

... das hatte ich noch nie, obwohl ich sicherlich schon viel komplexere Excel-Dateien erstellt habe!
In einer Exceldatei mit 3 Arbeitsblättern ist das erste Arbeitsblatt als "Eingabe" definiert, d.h. von den benutzten Spalten A-N und den Zeilen 1 - 2000, ist nur der Bereich B10-B2000 "unge...
18.08.2008 10:49:05
Thread-ID: 1002519
2 Beiträge
Blattschutz beim Daten einspielen
Tobi

Hallo,
ich habe eine Frage bzgl. einem Makro.
Habe das folgende Makro mit welchem ich Daten aus einer Exceldatei in eine andere importiere. Leider übernimmt es mir auch immer die Formatierung der Zellen. In der Ausgangsdatei ist bei manchen Zellen unter "Zellen formatieren" der Haken f...
19.08.2008 09:18:00
Thread-ID: 1002794
4 Beiträge
Daten importieren (mit Blattschutz)
Marcus

Einen schönen guten Morgen,
ich habe ein kleines Problem...
Ich habe eine Arbeitsmappe (Stundenabrechnung) in der ingesamt 14 Arbeitsblätter vorhanden sind. Alle habe ich einzeln geschützt und nur die Zellen freigegeben, in denen man die Arbeitszeiten eintragen kann. Alles anderen sind...
20.08.2008 09:38:00
Thread-ID: 1003096
2 Beiträge
Blattschutz per Makro
oblivion

Hallo, bei mir steht im Blatt "Gesamt" der folgende Code. Früher war es kein Problem mit hilfe der Befehle unprotect und protect das Blatt "Gesamtdaten" zu schützen. Nur ist der Code etwas größer geworden, bzw. es wird ein weiteres Makro abgespielt. Weiß jemand wie ich mein Makro ändern muss,...
20.08.2008 23:45:00
Thread-ID: 1003339
2 Beiträge
Anzeige
Blattschutz
Gustav

Hallo,
ich möchte ein Blatt schützen, jedoch soll eine Spalte bzw. an einem anderen Bsp lediglich eine Zelle nicht geschützt werden.
Diese Zelle soll lediglich für das Auswählen von Einträgen aus einer Gültigkeitsliste angewählt werden.
Geht das?
Bin für jeden Tipp dankbar.
...
21.08.2008 15:19:00
Thread-ID: 1003526
4 Beiträge
Gruppierung von Blattschutz loslösen
Blattschutz

Hallo,
ich habe mein Tabellenblatt geschützt. Ich möchte aber, dass sich die Gruppierungen in der Tabelle nach Bestehen des Blattschutzes weiterhin öffnen lassen. Dies ist bei meinen Einstellungen nicht der Fall.
Kann mir jemand helfen?
Besten Dank im Voraus.
Gerd
25.08.2008 08:05:17
Thread-ID: 1004360
6 Beiträge
Blattschutz in VBA
Lars

Hallo,
ich möchte beim Klick auf eine CheckBox in Tabellenblatt A (geschützt) etwas in das geschützte Blatt B schreiben lassen. Dafür habe ich in den Code im Makro der CheckBox wie folgt eingebettet:
Private Sub Test
ActiveSheet.Unprotect "123456789"
Worksheets("B").Unprotect "1...
25.08.2008 14:03:00
Thread-ID: 1004449
3 Beiträge
Blinken trotz Blattschutz
Daniela

Hallo,
ich habe folgendes Problem: In meiner Tabelle gibt es zum einen geschützte und freigegebene Breiche ( damit nicht alles geändert werden kann) und zum anderen sollen bestimmte Zellen blinken. Beides funktioniert getrennt wunderbar...aber zusammen eben nicht! Stets ist entweder das gan...
01.09.2008 12:58:49
Thread-ID: 1006408
4 Beiträge
BlattSchutz
Baywatch

Hi
eine kleine Frage ich habe in meiner Datein ein Blatt welches komplett geschützt werden soll, aber die Formeln die im Blatt stehen, sollen trotzdem arbeiten istd as möglich? gleichfalls soll man auf die VBA Programmierung nicht mehr zugreifen können.
Danke und GRuß
Daniel
11.09.2008 11:58:00
Thread-ID: 1009065
9 Beiträge
WKS_Change aktiviert Blattschutz - mit Makro zu ve
Marc81

Hallo Zusammen,
Ich habe das Problem, dass ich eine Tabelle mit Blattschutz habe. Auf dieser ändert aber folgendes Makro die Zellen-Farbe, wofür ich den Passwortschutz deaktiviere und anschließend wieder aktiviere.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address...
16.09.2008 07:26:00
Thread-ID: 1009932
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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