Office: Komplizierter Blattschutz

Sonnenlicht · 6. Januar 2017

Hi,

leider komme ich nur zum 3. Punkt, dann geht er in das Tabelleblatt "Blattschutz1" in VBE und sagt fehler beim Kompilieren. Variable nicht definiert bei
Code:

Private Sub CommandButton1_Click() ' alle Schutzmaßnahmen aus
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Über den Entwurfsmodus im Tabellenbaltt "Blattschutz1" kann ich die Button auch nicht mehr anklicken, weder Eigenschaften sonst noch was machen.

da ich mich nicht so sehr mit VBA auskennne. Beschreibe ich mal wie ich vorgegangen bin:

1. Habe ein neues Modul eingefügt (jetzt gibt es 3 Module) und deinen Cod
da rein kopiert
2. Habe ich eine neue Userform erstellt und deinen Code in den dort rein
kopiert. (Jetzt gibt es zwei Userformen)
3. Deinen Code in DieseArbeitsmappe rein kopiert, wobei ich dort die
Tabellenblatt namen geändert habe:

Code:

Option Explicit
Private Sub Workbook_Open()
Worksheets("BE_Auswertung").Activate
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Exit Sub
' etwa ungeschütztes Blatt BE_PW_x schützen
Worksheets("BE_Wärme").Protect Password:=pPSWD1
Worksheets("BE_Strom").Protect Password:=pPSWD2
Worksheets("BE_Wasser").Protect Password:=pPSWD3
Worksheets("BE_CO2").Protect Password:=pPSWD4

Worksheets("BE_Auswertung").Activate
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'--------------------------------------------------------------------
' Aufheben Blattschutz BE_ Wärme, Strom, Wasser oder CO2 nach Aktivieren
' des Blattes
'--------------------------------------------------------------------

' check, ob Blatt überhaupt geschützt ist
If Sh.ProtectContents = False Then Exit Sub ' nicht geschützt

' check, ob und ggf welches BS_PW-Blatt angeklickt wurde
Select Case Sh.Name
Case Is = "BE_Wärme"
PSWD_BSPW = pPSWD1
Case Is = "BE_Strom"
PSWD_BSPW = pPSWD2
Case Is = "BE_Wasser"
PSWD_BSPW = pPSWD3
Case Is = "BE_CO2"
PSWD_BSPW = pPSWD4

Case Else
Exit Sub ' kein BE_PW-Blatt
End Select

' Password erfassen und Blattschutz aufheben
UserForm2.Show
If PSWD_ok = True Then
Sh.Unprotect Password:=PSWD_BSPW
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

4. Beim Tabellenblatt "Blattschutz1" welches bei mir "BE_Auswertung" heißt
deine Code rein kopiert und die Tabellenblattnamen geändert.

danke schon mal Gruß Sonnenlicht

aloys78 · 6. Januar 2017

Hallo Sonnenlicht,

wie soll ich das ohne die Datei nachvollziehen ?

Gruß
Aloys

Sonnenlicht · 6. Januar 2017

Hi,

brauchst du nicht. Bei der org. Datei war noch ein Arbeitsmappenschutz drin, welchen ich vergessen habe vor dem kopieren deines Cods herauszunehmen.

Jetzt sind mir noch zwei Sachen aufgefallen:

1. Wenn ich im Tabellenblatt "Blattschutz1" in der erscheinenden Userform für
den Blattschutz aufheben oben rechts einfach auf schließen (rotes Kreuz)
gehe, wird der Blattschutz aufgehoben, auch ohne Eingabe des richtigen
Passwortes (Master)*frown.gif* Kann man nicht einfach das Schließen-symbol weg
machen, da es ja den Button Abbrechen gibt? Aber:

2. Wenn ich ohne Eingabe des richtigen Passwortes (Master) auf "Abbrechen"
klicke, wird der Blattschutz auch aufgehoben*frown.gif*

In den anderen Tabellenblättern ist dieses nicht der Fall!

Gibt bzw. hast du dafür eine Lösung?

Vielen Dank! Gruß Sonnenlicht

aloys78 · 6. Januar 2017

Hallo Sonnenlicht,

Gibt bzw. hast du dafür eine Lösung?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sicher !

Im VBE bei Blatt 'Blattschutz1' folgende Prozedur ändern:
Code:

Option Explicit

' Version V 2.2 vom 06.01.2017

Private Sub CommandButton1_Click() ' alle Schutzmaßnahmen aus
'--------------------------------------------------------------------
' Aufheben aller Schutzmaßnahmen mit Hilfe des Master-Pswd
'--------------------------------------------------------------------

' check, ob Blatt überhaupt geschützt ist
With ActiveSheet
If .ProtectContents = False Then Exit Sub ' nicht geschützt
PSWD_BSPW = pPSWD5 ' Master-Pswd

' Password erfassen und Blattschutz aufheben
PSWD_ok = False
UserForm1.Show
If PSWD_ok = False Then
Exit Sub ' Password wurde nicht erfasst
Else
.Unprotect Password:=PSWD_BSPW
End If
End With

' Schutzmaßnahmen aktivieren (unverändert)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

Sonnenlicht · 6. Januar 2017

Hi,

super*Smilie Danke! Und damit das ganze wirklich perfekt wird, hast du bestimmt auch noch eine Lösung dafür, dass wenn ich das richige Passwort von einem der BE_PW_x Tabellenblätter eingebe und dann auf eine anderes BE_PW_x Tabellenblätt gehe und dort dann auf abbrechen klicke, ist dieses mitmal auch nicht mehr geschützt*frown.gif*

Vielen vielen Dank, wünschte auch, dass ic mich sogut auskenne*frown.gif*

Gruß*Sun

Sonnenlicht · 6. Januar 2017

Hi,

hat sich schon erledigt*Smilie Bei "DieseArbeitsmappe"

Code:

' Password erfassen und Blattschutz aufheben
PSWD_ok = False
UserForm1.Show
If PSWD_ok = True Then
Sh.Unprotect Password:=PSWD_BSPW
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen vielen Dank, für deine Hilfe!!!!!
Möge morgen für dich die *Sun scheinen.

Office: Komplizierter Blattschutz

Komplizierter Blattschutz

Komplizierter Blattschutz

Komplizierter Blattschutz

Komplizierter Blattschutz - Similar Threads - Komplizierter Blattschutz

Erbitte komplizierte Formel Wenn,dann oder wenn dies, dann

Berechung monatl. Kosten

Hilfe bei Formel-Vereinfachung/-Kürzung

Prüfen und Verketten von Zellen mit Formeln als Inhalt

Tastenkombination für die Texthervorhebunsfarbe möglich? + 2. komplizierte Frage

Übergang bei einer Draufsicht eines 3D Diagrammes

Hilfe: Berechnung von Spreads (kompliziert)