Check Sicherheitseinstellung Zugriff auf VB-Projekt bei geschütztem VBA-Projekt

[Jörg Eisenträger]

Hallo,

um bei Excel 2002/XP und höher abzufragen, ob unter
Menü > Extras > Makro > Sicherheit > Vertrauenswürdige Quellen > Zugriff
auf VB-Projekt vertrauen = JA
eingestellt ist, hatte Melanie hier mal folgende Function gepostet:

Public Function CheckVBE() As Boolean
On Error Resume Next
CheckVBE = Application.VBE.ActiveVBProject. _
VBComponents.Parent.name <> ""
End Function

Das funktioniert - wie wir ich heute herausgefunden haben - nur, wenn
der VBA-Code nicht passwortgeschützt ist.
Bei geschütztem VBA-Projekt ist immer CheckVBE = False.

Hat hier jemand eine Lösung, wie die Einstellung auch bei geschütztem
VBA-Projekt abgefragt werden kann?


Gruß
Jörg

[Melanie Breden]

Hallo Jörg,

Post by Jörg Eisenträger
um bei Excel 2002/XP und höher abzufragen, ob unter
Menü > Extras > Makro > Sicherheit > Vertrauenswürdige Quellen > Zugriff
auf VB-Projekt vertrauen = JA
Public Function CheckVBE() As Boolean
On Error Resume Next
CheckVBE = Application.VBE.ActiveVBProject. _
VBComponents.Parent.name <> ""
End Function
Das funktioniert - wie wir ich heute herausgefunden haben - nur, wenn
der VBA-Code nicht passwortgeschützt ist.
Bei geschütztem VBA-Projekt ist immer CheckVBE = False.

das war mir bisher auch nicht aufgefallen :-(

Evtl. hilft folgender Workarround:

Public Function CheckVBE() As Boolean
Application.ScreenUpdating = False
Workbooks.Add
On Error Resume Next
CheckVBE = Application.VBE.ActiveVBProject. _
VBComponents.Parent.Name <> ""
ActiveWorkbook.Close False
End Function


Mit freundlichen Grüssen
Melanie Breden

[Jörg Eisenträger]

Hi Melanie,

Post by Melanie Breden
Workbooks.Add
...
ActiveWorkbook.Close False

<sprachlos>
Wie immer: Genial.
Und so einleuchtend, dass man sich wundert, nicht selbst darauf gekommen
zu sein ...

Danke, es funktioniert.


Gruß
Jörg

[Melanie Breden]

Hallo Jörg,

Post by Jörg Eisenträger

Post by Melanie Breden
Workbooks.Add
...
ActiveWorkbook.Close False

<sprachlos>
Wie immer: Genial.
Und so einleuchtend, dass man sich wundert, nicht selbst darauf gekommen
zu sein ...

oft sind es die einfachen Dinge, die zu einer Lösung führen...
und ich habe auch wieder was gelernt.

Post by Jörg Eisenträger
Danke, es funktioniert.

Bittesehr :-)


Mit freundlichen Grüssen
Melanie Breden