Passwort mit Visual Basic im Excel geschlossen

[APPD]

Hallo Excelprofis,

ich hatte heute schon folgendes Problem nachdem ich 2 Stunden an einer Arbeitsmappe gesessen bin:

ich wollte einer Befehlsschaltfläche ein Makro zum Schützen von Arbeitsblatt und Arbeitsmappe zuweisen. Da ich das Ganze aber mit Passwort schützen wollte, habe ich (als VisualBasic-Neuling) folgende Zeilen geändert:
ActiveSheet.Protect Passwort:=xyz, Structure:=True ...

Das ging dann nicht und dann habe ich folgendes probiert:
ActiveSheet.Protect Passwort:=True, Structure:=True ...

und dann hats funktioniert, ich konnte nur den Blattschutz nicht mehr aufheben, weil ich das richtige Passwort nicht wusste! Also blieb mir nichts anderes übrig als die nicht gespeicherten 2 stunden zu verwerfen...

Bitte um Hilfe zur künftigen Vermeidung solcher Missgeschicke!!

APPD

 

[cpt. Nemo]

Bitte um Hilfe zur künftigen Vermeidung solcher Missgeschicke!!

Falls du das wirklich so meinst, wie es da geschrieben steht: Speichere die Datei vor jedem kritischen Schritt unter einem anderen Namen ab, dann kannst du immer die letzte funktionierende Version aufrufen.

Greetz
cpt. Nemo

 

[APPD]

ja ok, du hast recht, so kann man meine Frage auch deuten. Ich werds das nächste mal speichern... :löl:


Was ich aber meinte ist eine Lösung, wie ich Blatt und Arbeitsmappe mit dem Passwort "xyz" nur durch Tastendurck (Befehlsschaltfläche mit Makro) und auch ohne Eingabe des selbigen schützen kann. Ich denke ich war mit meinem Ansatz oben schon auf dem richtigen Weg...

APPD

 

[cpt. Nemo]

Ach so ...

Option Explicit

Sub Blatt_und_Mappe_Schutz()
'
' Arbeitsblatt und -Mappe schützen mit verschiedenen Passworten
' Gleichen PW ist zu unsicher
' ... und immer schön merken! :-)
' (Oder mit Alt-F11 dieses Makro auch bei Schutz=EIN ansehen :-( )
'

Dim Pw1 As String
Dim Pw2 As String

Pw1 = "ABCDEF"
Pw2 = "UVWXYZ"

ActiveSheet.Protect Pw1, DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Protect Pw2, Structure:=True, Windows:=False
End Sub

Dann eine Schaltfläche einfügen und dieser das Makro Blatt_und_Mappe_Schutz zuweisen. Das war's dann auch schon. Und wie oben auch schon im einleitenden Kommentar steht, auch im geschützten Zustand kannst du dir den Code ansehen und das entsprechende PW wieder rauskriegen. (Das hätte dir vielleicht einiges an doppelter Arbeit erspart, oder?)

 

[APPD]

aha, ALT+F11 wäre die nötige Kombination gewesen...
da ich totaler VBA-Neuling bin, habe ich die meisten kniffe noch nicht drauf, aber dein code hilft mir mit sicherheit um einiges weiter.
Wenn ich das jetzt richtig deute, ist alles vor dem ersten Komma als Passwort zu sehen. Mein Passwort wäre also "Passwort:=True" gewesen, oder doch nicht?
Auf jedenfall erstmal danke für deine Hilfe!!

EDIT: Das mit ALT+F11 ist gut und recht, aber ich werd dem Ganzen einfach durch Passwortschutz von VBA-Project zuvor kommen

 

[cpt. Nemo]

Hallo APPD,

aha, ALT+F11 wäre die nötige Kombination gewesen...
da ich totaler VBA-Neuling bin, habe ich die meisten kniffe noch nicht drauf, aber dein code hilft mir mit sicherheit um einiges weiter.

Bestimmt.

Wenn ich das jetzt richtig deute, ist alles vor dem ersten Komma als Passwort zu sehen. Mein Passwort wäre also "Passwort:=True" gewesen, oder doch nicht?

Nein, mit dieser Anweisung sagst du Excel, dass das PW "True" (ohne Anführungen) sein soll. Und das gibt sowieso Probleme, das TRUE ein reservierter Begriff ist. An dem := erkennst du eine Zuweisung an einen reservierten Begriff, hier Password (mit d). Wenn du es tatsächlich mit t geschrieben hast, kann da nur Murks rauskommen, weil das eigentliche PW in Anführungen eingegeben werden muss. siehe auch mein Code (PW1 und PW2, beides Variablen).

Auf jedenfall erstmal danke für deine Hilfe!!

EDIT: Das mit ALT+F11 ist gut und recht, aber ich werd dem Ganzen einfach durch Passwortschutz von VBA-Project zuvor kommen

Nicht dafür! Und du bist lernfähig, wie ich an deinem Vorschlag für den Schutz des Sourcecodes sehe!

 

[APPD]

Und du bist lernfähig, wie ich an deinem Vorschlag für den Schutz des Sourcecodes sehe!

naja ich meine, wenn jemand mit VBA was bezwecken will, dann kann man ein bisschen Interesse an der Sache wohl voraussetzen...