Office: VBAProject Password aufheben und wieder setzen...

Hallo Leute,

folgender Code in meiner UserForm ändert einen in meinen Makro bestehenden Pfad:
Code:

Jedoch wird dieser Pfad nicht verändert, wenn ich mein Projekt schütze.

Wie kann ich das Password aufheben und wieder setzen?

Vielen Dank im voraus...

:)

 

Moin, BA-Li,

die aktive Mappe braucht man nicht aktivieren, wei sie den Namen aktive Mape nicht umsonst trägt, eine Konstante heißt Konstante, weil sie nicht verändert werden soll, PathDialog.txtFile.Text ist unbekannt...

 

Hallo jinx,

mein Code macht genau das was er soll. PathDialog ist in dem Fall der Name meiner UserForm.

Wenn ich den Code ausführen möchte wenn mein VBAProject mit meinem Passwort geschützt ist, kommt die Fehlermeldung "Laufzeitfehler '50289' Die Operation kann nicht durchgeführt werden, solange das Projekt geschützt ist.".

Habe es wie folgt zu lösen versucht: Code:

Jedoch wird Zeile 1 in Modul1 nicht überschrieben.

Vielen Dank für Deine Hilfe...

 

Moin, BA_LI,

Na ja, der Frage nach wohl eher nicht in jedem Falle. *wink.gif* Module in geschützten Projekt löschen könnte Dir vielleicht helfen - ansonsten kann das Problem sicherlich durch andere Vorgehensweisen umschifft werden.

 

Hallo jinx,

danke für die Antwort, habe versucht den Post einzubauen. Werde aus den SendKeys nicht schlau...

Bitte hilf mir...

 

Moin, BA_LI,

da muss ich doch einmal eine Lanze für die VBA Online-Hilfe bzw. den Objektkatalog brechen, wo das Vorgehen meiner Meinung nach sehr plastisch beschrieben ist. Vielleicht solltest Du einmal über die anderen Wege nachdenken, wie man die Angaben noch bereitstellen kann (sicher ausgeblendete Tabelle, nicht sichtbare Namen, Dokumenteigenschaften, Text-/Inidatei, Registry)...

 

Hallo jinx,

gibt es vielleicht eine andere Möglichkeit, als über Projekteigenschaften, sein Projekt zu schützen?

 

Auch Hallo,

warum schreibst Du den Pfad nicht irgendwohin, z.B. in eine Excel-Zelle oder in die Registry ?

Dann brauchst Du den VBA-Code nicht zu verändern.

cu, Bernd
--
Option Explicit

Const myApp$ = "myApp" ' hier geht's hin: HKCU\Software\VB and VBA Program Settings\myApp
Const INIPathFile$ = "C:\x.txt" ' Default, nur falls Registry-Eintrag nicht existiert

Sub x()
Dim strPathFile As String
strPathFile = GetSetting(myApp, "Init", "PathFile", INIPathFile)
MsgBox strPathFile
End Sub

Sub y()
Dim strNeuPath As String
strNeuPath = "e:\test\y.txt"
SaveSetting myApp, "Init", "PathFile", strNeuPath
End Sub