Sicherheit bei Makros mit Makro einstellen!

Holger · 2005-04-25T09:12:02+00:00

Hallo, unter Extras -&gt Makro -&gt Sicherheit... -&gt Vertrauenswürdige Quellen kann man ja die beiden Haken bei - Allen installierten Add-Ins und Vorlagen vertrauen und Zugriff auf Visual Basics-Projekt vertrauen setzen. Wie kann ich dieses über ein Makro aktivieren, so das jeder der mein Programm öffnet auch diese Einstellungen sofort gesetzt bekommt? MfG Holger Wächter

Hi Holger,
eine Möglichkeit, ein Makro (in Deinem Fall die Abfrage) auszuführen, bevor der user mittels der Sicherheitseinstellungen Makros grundsätzlich erlaubt hat, das geht imho nicht, und würde wohl auch jedem Sicherheitskonzept den Wind aus den Segeln nehmen.
Das einzige, was mir dazu einfällt, ist folgende "Bastel-Lösung":
Du könntest die entsprechende Meldung einfach auf die erste Tabelle in eine Zelle schreiben, und diese Zelle im Workbook_open löschen. Dann erscheint der Text nur, wenn die Makros deaktiviert sind.
Problem hierbei: die Meldung ist dann für immer weg. Du könntest sie zwar im Workbook_close wieder in die Zelle schreiben, müsstest dann aber vor dem schliessen automatisch speichern, womit man keine Änderungen mehr verwerfen könnte.
Wie gesagt, schön ist das alles nicht, aber mehr fällt mir im Augenblick nicht dazu ein und vielleicht hilft es Dir ja ein bisschen weiter.
Schönen Gruß,
Andi

Hallo Holger,
wie wäre es denn z.B. so.


Private Sub CommandButton12_Click()
Dim strPath As String
strPath = Application.Path & "\"
' On Error GoTo Errorhandler
ThisWorkbook.VBProject _
.VBComponents("GlobaleVariable").Export strPath & "GlobaleVariable.bas"
Workbooks.Add 1
With ActiveWorkbook.VBProject
.VBComponents.Import strPath & "GlobaleVariable.bas"
.VBComponents("GlobaleVariable").Name = "MyModul"
End With
Kill strPath & "\GlobaleVariable.bas"
MsgBox "Modul wurde kopiert!"
Exit Sub
' Bei Fehlernummer 1004, diese Meldung ausgeben.
Errorhandler:
If Err.Number = 1004 Then
MsgBox "Das kopieren des VBA Moduls ist fehlgeschlagen!" & vbCr & _
"Bitte überprüfen Sie folgende Einstellung! " & vbCr & _
"EXTRAS -> MAKRO -> SICHERHEIT -> Vertrauenwürdige Quellen." & vbCr & _
"'Zugriff auf Visual Basic Projekt vertrauen' muss aktiviert sein! ", vbCritical, _
" Meldung vom Makro Modul kopieren!"
' Sonstige Fehler im Klartext mit Fehlernummer ausgeben.
Else
MsgBox "Err.Number = " & Err.Number & ".   " & Err.Description, vbCritical
End If
' Fehlernummer löschen.
Err.Clear
End Sub

Denn bei mir löst ein nicht gesetzter Haken den Fehler 1004 aus.
Ja ja ich weis auch andere Fehler lösen diese Fehlernummer aus, aber besser als garnichts.
Gruß Heiko

PS: Rückmeldung wäre nett !

Sicherheit bei Makros mit Makro einstellen!

Forumthread: Sicherheit bei Makros mit Makro einstellen!

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Sicherheit bei Makros mit Makro einstellen!

Forumthread: Sicherheit bei Makros mit Makro einstellen!

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread