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

VBA Blattschutz und Aufheben alle Blätter

Forumthread: VBA Blattschutz und Aufheben alle Blätter

VBA Blattschutz und Aufheben alle Blätter
29.11.2018 14:20:17
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 alle Bläter gleichzeig aufzuheben ?
Immer nur ein Eintrag entweder oder ist erlaubt und beim Schließen der Mappe sollte der Blattschutz immer eingesetzt werden.
Das Passwort erstmal auf "ABC" einstellen.
Ein VBA-Code (ich kann es nicht) wäre schön und nett.
Lieben Dank den Helfern
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Blattschutz und Aufheben alle Blätter
29.11.2018 14:35:43
Rudi
Hallo,
im Klassenmodul des Blatts mit BSA/ BSE: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 100 Then
Select Case Target.Column
Case 1: If Target = "BSE" Then Call ProtectSheets(pstrPW )
Case 2: If Target = "BSA" Then Call UnProtectSheets(pstrPW )
End Select
End If
End If
End Sub

In DieseArbeitsmappe: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call ProtectSheets(pstrPW )
End Sub

In ein allgem. Modul: 
Public Const pstrPW As String="ABC"
Sub ProtectSheets(strPW As String)
Dim wks As Worksheet
For Each wks In Worksheets
wks.Protect strPW
Next
End Sub
Sub UnProtectSheets(strPW As String)
Dim wks As Worksheet
For Each wks In Worksheets
wks.Unprotect strPW
Next
End Sub

Gruß
Rudi
Anzeige
AW: VBA Blattschutz und Aufheben alle Blätter
29.11.2018 14:47:36
Joachim
Ok, ich werde es einarbeiten und es klappt dann hoffentlich, ansonsten geben ich hier Rückmeldung. Danke erstmal
AW: VBA Blattschutz und Aufheben alle Blätter
29.11.2018 14:59:28
Joachim
Ok, habe ich eingearbeitet. Beim Schließen wird der Schutz eingestellt.
Bekomme es aber nicht hin, dass bei allen Blättern auf einen Schlag, der Blattschutz wieder aufgehoben wird.
Wie muss der Code geändert werden, wenn die Einträge nur im Blatt "Grunddaten" erlaubt sein soll ?
Anzeige
AW: VBA Blattschutz und Aufheben alle Blätter
29.11.2018 15:15:47
PeterK
Hallo
Ändere If Target.Column = 100 Then in If Target.Row = 100 Then
Die Sub Worksheet_Change in das entsprechende Blatt mit den BSE/BSA Eingaben
oh,oh :( owT
29.11.2018 15:17:42
Rudi
AW: VBA Blattschutz und Aufheben alle Blätter
29.11.2018 15:33:11
Joachim
Ich habe schon ein Worksheet_Change in dem Blatt. Muss ich was umbenennen ?
Anzeige
AW: VBA Blattschutz und Aufheben alle Blätter
29.11.2018 15:36:40
PeterK
Hallo
Nur den Code zum Bestehenden hinzufügen (keine eigene Sub)
AW: VBA Blattschutz und Aufheben alle Blätter
29.11.2018 15:43:06
Joachim
So ?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ze As Long, Ra As Range: For Each Ra In Target: Ze = 0
If Ra.Column = 8 Or Ra.Column = 12 Then
If Ra.Row > 6 And Ra.Offset(0, 2 - Ra.Column).FormulaR1C1 = "=RC[-1]" Then
Ra.Offset(0, 1).ClearContents: Ra.Offset(0, 2).ClearContents
With Worksheets(2).Range("IdxKür"): While .Offset(Ze + 1, 0)  ""
Ze = Ze + 1: If UCase(Ra.Value) = UCase(.Offset(Ze, 0)) Then Ra.Offset(0, 1) = . _
Offset(Ze, 1): Ra.Offset(0, 2) = .Offset(Ze, 2)
Wend: End With
End If
End If: Next
End Sub

If Target.Count = 1 Then
If Target.Row = 100 Then
Select Case Target.Column
Case 1: If Target = "BSE" Then Call ProtectSheets(pstrPW)
Case 2: If Target = "BSA" Then Call UnProtectSheets(pstrPW)
End Select
End If
End If
End Sub
Anzeige
AW: VBA Blattschutz etc. ich habs, läuft !!!
29.11.2018 16:23:23
Joachim
Danke für die Hilfe und noch eine kleine Frage, kann das Klassenmodul jetzt weg ?

Forumthreads zu verwandten Themen

Passwortabfrage ohne Blattschutz zu umgehen, wie?
Thomas

Hi, in meiner Tabelle sind diverse Zellen durch den Blattschutz geschützt. Nachbahrzellen sind jedoch für eine Bearbeitung freigegeben. Aber, um sie vor unbefugten ausfüllen zu schützen habe ich mir diesen code ausgeliehen und angepasst.
' Private Sub Worksheet_SelectionChange(ByVal target...
24.11.2008 14:21:54
Thread-ID: 1027314
3 Beiträge
Makro Zelle Schutz aufheben
Kurt

Guten Abend,
ich habe dieses Makro auch übers Forum:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Application.ScreenUpdating = False If Intersect(Target, Range("A10:C20")) Is Nothing Then Exit Sub ActiveSheet.Unprotect ("kk") On Error GoTo fehler Application.EnableEvents...
16.02.2009 19:53:00
Thread-ID: 1051271
27 Beiträge
Anzeige
VBA Kennwortschutz aufheben & setzen Problem
Andreas

Hallo Herber Fans,
ich habe hier schon im Forum gesucht und auch einen Code gefunden. Es geht um das temporäre Aufheben des VBA Kennwortes im VBA Editor. Das Kennwort in der Beispieldatei ist „test“.
Die Datei wird geöffnet, ein Button wird kreiert. Wenn ich auf diesen Button klicke, er...
03.07.2009 21:26:13
Thread-ID: 1086309
7 Beiträge
Aus-Einblenden / Makroschutz aufheben
juergen

Hallo zusammen,
hoffe Ihr habt Ostern gut überstanden.
Hab u. stehendes Makro und muss den Schutz aufheben, damit er Tabellenblätter einblendet. Kann mir bitte jemand weiterhelfen?
Für Eure Bemühungen,....... danke ich schon jetzt:)
Gruß
Juergen
Sub blättern1() ' blätter...
26.04.2011 15:44:26
Thread-ID: 1211836
3 Beiträge
Abfrage ob Blattschutz mit Passwort gesetzt wurde
DominikHH

Hallo zusammen,
ich muss in einem Arbeitsblatt überprüfen, ob ein Blattschutz gesetzt wurde und - wenn das der Fall ist - ob auch ein Passwort vergeben wurde.
Im Fall, dass zusätzlich ein Passwort gesetzt wurde, muss ich anders reagieren, als wenn nur das Blatt geschützt wurde (dann kan...
22.11.2012 15:49:32
Thread-ID: 1287706
2 Beiträge
Anzeige
Blattschutz ohne passwortabfrage
Svenja

Hallo,
ich habe eine Excel-Datei mit mehreren Reitern.
In Tabellenblatt "Beiträge" habe ich einige Zahlen. Diese werden über ein weiteres Tabellenblatt über Button selektiert und bestimmte Daten daraus kopiert und in mein weiteres Tabellenblatt eingefügt.
Da ich im Tabellenblatt "Be...
19.12.2012 21:09:09
Thread-ID: 1291604
4 Beiträge
VBA Code Tabellenschutz mit Passwort
Max

Hallo zusammen,
hat jemand ein Standard VBA Code um ein Tabellenblatt ("Tabelle1") einzublenden. Das Einblenden der Tabelle soll über ein CommandButton inklusive einer Passwortabfrage erfolgen. Ebenso soll das spätere Ausblenden der Tabelle über einen CommandButton erfolgen.
Danke im vo...
28.12.2012 11:37:27
Thread-ID: 1292225
5 Beiträge
Anzeige
VBA - "Aus dem Web" mit Passwort
Timonski

Servus...
ich muss mich bei einer Internetseite mit Benutzer und Passwort einloggen.
nach dem einloggen, wollte ich gerne die Seite/n nach Excel importieren.
das Problem ist, er loggt sich nicht ein...
bei den ersten Schritten (FETT) loggt er sich auf der Seite ein... funktionie...
08.05.2014 15:23:16
Thread-ID: 1360536
5 Beiträge
Vor Makro Blattschutz aufheben: Sicherheitsabfrage
Michael Kl.

Hallo zusammen,
ich habe ein Makro zur Aufhebung des Blattschutzes erstellt.
Vor der endgültigen Deaktivierung des Schutzes soll eine Abfrage erscheinen, ob der Schutz wirklich deaktiiert werden soll. Ihr kennt diese Abfragen mit Sicherheit von Windows. Dort hat man die Möglichkeit, bei i...
17.07.2002 12:39:18
Thread-ID: 137441
3 Beiträge
Makroschutz über Makro aufheben
Stephan

Hallo zusammen,
ich habe ein Makro programmiert, dass eine neue Datei erstellt und ein Makro von der alten Datei übernimmt. Da ich die Makros in der alten datei aber alle geschützt habe, tritt ein Laufzeitfehler auf beim versuch, das Makro zu kopieren.
Wie kann ich mit einem Makro den Sc...
28.08.2002 08:47:07
Thread-ID: 153515
3 Beiträge
Passwortgenerator mit VBA
Helmut

Schönen Freitag Mittag,
anbei eine Datei mit Kommentaren in denen
die Vorgaben beschrieben sind.
Ich hoffe dass ich es gut beschrieben habe....
und bitte um Hilfestellung :-)
https://www.herber.de/bbs/user/112726.xlsm
MfG
Helmut
07.04.2017 13:32:22
Thread-ID: 1551772
6 Beiträge
Blattschutz per Makro mit Passwortoption
beckersbest

Guten Morgen,ich habe mal wieder eine Frage. Ich möchte per Button den Blattschutz einschalten. Das klappt mit folgendem VBA-Code auch ganz gut:-----------------------------------
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
-----------------------------------...
04.09.2002 08:11:14
Thread-ID: 156138
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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