Office: (Office 2007) VBA-Projektschutz per VBA-Code aufheben

Bei mir funktioniert es schon, aber mit dem erwähnten Nebeneffekt.

 

Moin,

René, ich kriege Deinen Code nicht zum Laufen *eek.gif*

Einen nachvollziehbaren Fehler bekomme ich nicht, es ertönt nur der Warnton aus Windows und es flackert für den Bruchteil einer Sekunde ein Fenster auf, dessen Inhalt ich nicht feststellen kann (weil es zu schnell geht).

Auch funktioniert die Abfrage nach dem Computernamen merkwürdigerweise nicht. Da bekomme ich immer die MessageBox. Der Computername stimmt aber definitiv.
Ich hab's jetzt mit dem Usernamen gemacht:

Code:

Am liebsten würde ich ja beides abfragen...

Nur das mit dem sofortigen Schließen des VBE wird das nichts. Alt+F11 funktioniert komischerweise nicht, auch nicht "händisch", da wird nur abwechselnd die Datei oder der Editor auf "aktiv" gesetzt.

Wirklich dramatisch dürfte das zwar nicht sein, weil ich ja nach dem (noch zu programmierenden) Update (Hinzufügen und Austauschen von Tabellen und Modulen, bzw. Änderungen am Code) ja gleich wieder alles zu machen kann.

Trotzdem wäre es natürlich wesentlich eleganter, wenn der Benutzer davon möglichst wenig mitbekommen würde, nicht wahr?

Hat da noch jemand eine Idee?

Viele Grüße
Hartmut

 

Environ("USERNAME")
Das Dollarzeichen mal weglassen.

 

Hallo René,

das war vielleicht etwas missverständlich. Environ$(UserName") funktioniert.

Aber Environ("COMPUTERNAME") mit meinem Computernamen.....

......funktioniert nun auch *rolleyes.gif* Ich hatte die Schreibweise (GROSSSCHREIBUNG) missachtet. Es geht übrigens auch mit $ .

Ich habe mit einer If-Or Abfrage nun beide Parameter zur Bedingung gemacht.


Hast Du noch eine Idee, wie ich den Editor "zum Schweigen" bringen könnte?

Viele Grüße
Hartmut

 

Wie ich bereits erwähnte, am Ende des Makros einfach wieder SendKeys "%{F11}" senden, damit wird der VBE wieder ausgeblendet.

 

Tut mir leid, René, ich muss Dich enttäuschen. Das VBE-Fenster bleibt geöffnet.

Mal schauen, wie lange das Update am Ende dauert..., dann kann ich sehen, ob's so durchlaufen kann.

Ich danke Dir erst einmal für Deine Unterstützung *Smilie

Ich komme bestimmt noch mal wieder, wenn das nächste Problem ansteht

Viele Grüße
Hartmut