Office: Passwortschutz aufheben und wieder setzen

FtPorter · 22. Juli 2014

Hallo zusammen,

folgendes Problem habe ich.

in diesem Code:
Code:

Private Sub CommandButton1_Click()
Dim wsSrc As Worksheet, wsTar As Worksheet
Set wsSrc = ThisWorkbook.Worksheets("MASTER DATA input")
Select Case wsSrc.Cells(19, 3).Value
Case "FG", "SA1", "SA2", "SV2", "SV3"
Set wsTar = ThisWorkbook.Worksheets("POIR_FG-SA-SV")
Case "TP", "CO", "MRO", "NV"
Set wsTar = ThisWorkbook.Worksheets("POIR_CO-TP")
End Select
If Not wsTar Is Nothing Then
wsTar.Range(wsTar.Cells(3, 3), wsTar.Cells(4, 3)).Value = _
wsSrc.Range(wsSrc.Cells(3, 3), wsSrc.Cells(4, 3)).Value
wsTar.Cells(7, 3).Value = wsSrc.Cells(6, 3).Value
wsTar.Cells(8, 3).Value = wsSrc.Cells(8, 3).Value
wsTar.Range(wsTar.Cells(11, 3), wsTar.Cells(17, 3)).Value = _
wsSrc.Range(wsSrc.Cells(15, 3), wsSrc.Cells(21, 3)).Value
Application.Goto wsTar.Cells(1, 1)
End If

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

möchte ich gerne folgenden Code integrieren:

Code:

ActiveSheet.Unprotect Password:="Test123"
ActiveSheet.Protect Password:="Test123"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

aber egal wo ich das einfüge bringt er mir immer den Debugger für:

Code:

wsTar.Range(wsTar.Cells(3, 3), wsTar.Cells(4, 3)).Value = _
wsSrc.Range(wsSrc.Cells(3, 3), wsSrc.Cells(4, 3)).Value
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe das entsprechende Blatt geschützt mit folgenden Optionen für den USER:

1. Nicht gesperrte Zellen auswählen = True (Haken drin)
2. Zellen formatieren = True (Haken drin)
Diese Kriterien sollten nach Möglichkeit auch wieder rein.

Wenn der Blattschutz manuell durch mich entfernt ist, macht der VBA Code oben was er soll, nur eben nicht, wenn ich es vorher manuell geschützt habe.

Was mach ich hier noch falsch? Habe "Unprotect" & Protect schon an mehreren Stellen des VBA Codes ausprobiert... Leider immer mit dem gleichen niederschmetternden Ergebnis.

Vielen Dank schon mal für Eure Hilfe.

Christian

:)

EarlFred · 24. Juli 2014

Hallo Christian,

anstelle auf dem aktiven Blatt den Blattschutz zu entfernen, solltest Du dies auf dem Blatt tun, das Du ändern möchtest (das können verschiedene sein):

Code:

wsTar.Unprotect Password:="Test123"
wsTar.Protect Password:="Test123"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

"Unprotecten" musst Du freilich VOR der Änderung, "Protecten" wieder danach. Dazu gehört eine saubere Fehlerbehandlung, damit der Code, sofern er sich "verabschiedet", das Blatt wenigstens noch wieder schützt.

Alternativ, und das wäre aus meiner Sicht zu bevorzugen, sollte auch gehen:
Code:

wsTar.Protect Password:="Test123", UserInterfaceOnly:=True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vorteile: Der Blattschutz für den Nutzer bleibt bestehen, lediglich per VBA kannst Du ändern. Du musst den Blattschutz also nicht erst wieder setzen.

Grüße
EarlFred

FtPorter · 24. Juli 2014

Hi EarlFred,

Thx *Smilie

rennt nun endlich sauber durch!
Und Ja du hast recht, die Alt.2 zum wieder Schützen ist mir auch angenehmer.

Code lautet nun:
Code:

Private Sub CommandButton1_Click()
Dim wsSrc As Worksheet, wsTar As Worksheet
Set wsSrc = ThisWorkbook.Worksheets("MASTER DATA input")
Select Case wsSrc.Cells(19, 3).Value
Case "FG", "SA1", "SA2", "SV2", "SV3"
Set wsTar = ThisWorkbook.Worksheets("POIR_FG-SA-SV")
Case "TP", "CO", "MRO", "NV"
Set wsTar = ThisWorkbook.Worksheets("POIR_CO-TP")
End Select
If Not wsTar Is Nothing Then
wsTar.Unprotect Password:="Test123"
wsTar.Range(wsTar.Cells(3, 3), wsTar.Cells(4, 3)).Value = _
wsSrc.Range(wsSrc.Cells(3, 3), wsSrc.Cells(4, 3)).Value
wsTar.Cells(7, 3).Value = wsSrc.Cells(6, 3).Value
wsTar.Cells(8, 3).Value = wsSrc.Cells(8, 3).Value
wsTar.Range(wsTar.Cells(11, 3), wsTar.Cells(17, 3)).Value = _
wsSrc.Range(wsSrc.Cells(15, 3), wsSrc.Cells(21, 3)).Value
Application.Goto wsTar.Cells(1, 1)
End If
wsTar.Protect Password:="Test123", UserInterfaceOnly:=True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Herzlichen Dank für die prompte Hilfe!

Grüßle

Christian*Smilie *Smilie *Smilie *Smilie *Smilie *Smilie *Smilie

EarlFred · 24. Juli 2014

Hallo Christian,

ich dachte eher so (Variante 2):
Code:

Private Sub CommandButton1_Click()
Dim wsSrc As Worksheet, wsTar As Worksheet

Set wsSrc = ThisWorkbook.Worksheets("MASTER DATA input")
Select Case wsSrc.Cells(19, 3).Value
Case "FG", "SA1", "SA2", "SV2", "SV3"
Set wsTar = ThisWorkbook.Worksheets("POIR_FG-SA-SV")
Case "TP", "CO", "MRO", "NV"
Set wsTar = ThisWorkbook.Worksheets("POIR_CO-TP")
End Select

If Not wsTar Is Nothing Then

wsTar.Protect Password:="Test123", UserInterfaceOnly:=True

wsTar.Range(wsTar.Cells(3, 3), wsTar.Cells(4, 3)).Value = _
wsSrc.Range(wsSrc.Cells(3, 3), wsSrc.Cells(4, 3)).Value
wsTar.Cells(7, 3).Value = wsSrc.Cells(6, 3).Value
wsTar.Cells(8, 3).Value = wsSrc.Cells(8, 3).Value
wsTar.Range(wsTar.Cells(11, 3), wsTar.Cells(17, 3)).Value = _
wsSrc.Range(wsSrc.Cells(15, 3), wsSrc.Cells(21, 3)).Value
Application.Goto wsTar.Cells(1, 1)
End If

Set wsSrc = Nothing
Set wsTar = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja, ich weiß, man schützt das Blatt, um den Blattschutz für VBA auszuschalten - das muss man in einer ruhigen Sekunde mal sacken lassen... *wink.gif*

Grüße
EarlFred

FtPorter · 24. Juli 2014

Ahso *wink.gif*

hmmmm funzen beide VBA-Codes... *wink.gif*

Aber jetzt habe ich den letzten von Dir reingemacht und belasse es dabei.

Ja ist irritierend.... habe mir gleich mal ne 'Erläuterung....
dazu im Makro gemacht, damit ich diese Kuriosität nicht vergesse *Smilie und irgendwann wie eine Kuh, wenns blitzt wieder davor sitze *Smilie

Dankeeeeeeeee nochmal

Grüßle
Christian

Office: Passwortschutz aufheben und wieder setzen

Passwortschutz aufheben und wieder setzen

Passwortschutz aufheben und wieder setzen

Passwortschutz aufheben und wieder setzen

Passwortschutz aufheben und wieder setzen - Similar Threads - Passwortschutz aufheben

Passwort eine Excel-Tabelle wurde verändert - Wie rausfinden?

Anfügen-Abfrage an Zieltabelle mit Passwortschutz

VBA einzelne Tabellenblätter nur mit Pin/Passwort bearbeiten können

Ausklappen von Spalten sperren/schützen

Passwortschutz für viele Dokumente

Passwortschutz und Zugriff auf untergeordnete Dateien

Datei mit Passwortschutz verschicken