Ausführen von Macros in Office-Programmen grundsätzlich unterdrücken

[Axel Janssen temp]

Hi,

ich möchte, dass Makros in Office Programmen auf einem bestimmten Rechner niemals ausgeführt werden.
Gibts da irgend eine Einstellung. In der Registry? Oder wo auch immer.

regards

Axel

[animate]

meinst du mit niemals "nicht durch den Benutzer änderbar"? Und meinst du "mit einem Schalter in allen Office Progarmmen ausschalten"?

Wenn nicht, dann in den Sicherheitseinstellungen des jeweiligen Programms. Ich befürchte aber, das ist nicht das, was du suchst...

[MOD]

Hi Axel,

sollte auf dem Rechner Office 2000 eingesetzt werden sind in diesem link schon gute Ansätze.

http://www.sophos.de/virusinfo/whitepapers/office2000.html

  MOD

[MOD]

Und hier der link für Office XP.

http://support.microsoft.com/default.aspx?scid=kb;de;d287567

  MOD

[Axel Janssen temp]

danke für die Hinweise.
Geh mal davon aus, dass es für den Fall erstmal ausreicht, indem ich in den Sicherheitseinstellung "nicht signierte Makros automatisch" deaktivieren einstelle und die Liste der vertrauenswürdigen Quellen einfach leer lasse.
Ärgerlicherweise fehlen bei Visio2000 die Sicherheitseinstellungen für Makros.

Die Programme werden nur zur PDF Generierung automatisiert geöffnet + geschlossen. Sie müssen sollen ohne irgendwelche pop-up Boxen und verwandtes durchlaufen.

[TMC]

Ärgerlicherweise fehlen bei Visio2000 die Sicherheitseinstellungen für Makros.

Die Programme werden nur zur PDF Generierung automatisiert geöffnet + geschlossen. Sie müssen sollen ohne irgendwelche pop-up Boxen und verwandtes durchlaufen.

Afaik gibt es auch Visio - Viewer. Wäre das u.U. eine Alternative?
Ich kenne jetzt nicht die Hintergründe, wieviele Anwender das einsetzen sollen, etc.

Ansonsten könnte ich mir vorstellen, den Visio-Viewer zusätzlich zu installieren, danach aber die Registry - Einträge umzubiegen, so dass sich bei Doppelklick auf die vsd-Datei Visio (und nicht der Viewer) öffnet. Um die PDF zu erzeugen, eben dann die vsd-Datei mit dem Viewer starten.

Matthias

[TMC]

Was mir noch einfällt:

Evtl. gibt es auch Befehlszeilenparameter. Hab nur keinen Link jetzt parat, was da so alles übergeben werden kann.
Und Visio weicht leider oftmals noch von den MS-Office-Programmen ab, weil es ja ursprünglich nicht von M$ ist (sondern im Jahr 200? aufgekauft wurde).

Wäre imo am elegantesten, sollte es da einen Switch geben.

Regards,
Matthias

[koehlerbv]

Aber es geht doch hier nicht um "reagieren" (oder ansehen) von mit MS-Programmen erstellten Programmen, sondern darum, dass diese "agieren" ... Und da wird es wohl schwierig.

Und Axel brauchen wir bestimmt nicht zu fragen, ob er nicht andere Produkte einsetzen kann - wenn ER das fragt, dann lassen ihn die "äusseren Umstände" (Kunden) bestimmt keine andere Wahl.
Und dann noch sowas automatisieren .... Interessante Aufgabe ...

Ciao,
Bernhard

[TMC]

Aber es geht doch hier nicht um "reagieren" (oder ansehen) von mit MS-Programmen erstellten Programmen, sondern darum, dass diese "agieren" ... Und da wird es wohl schwierig.

Schon klar, aber wenn beim agieren Messageboxes dazwischenfunken kann es schluss mit lustig sein. Daher eben mit dem Visio Viewer agieren, oder per Schalter beim Start die Messagebox (in dem Fall Makrowarnung) deaktivieren.
(als Idee, k.A. ob damit dann möglich)

Habe hier noch ein anderes Problem:
Wie aus der Registry auslesen, in welchem Pfad sich der Acroreader befindet? Das bei Wildwuchs-Rechnern (Win2k, WinXP, Reader 4.0, 5.0, 6.0, Adobe Acrobat Vollversion etc.). Denn ansonsten lassen sich hier keine Befehlszeilenparameter (in meinem Fall /h /P) mitgeben :-(

Matthias

[koehlerbv]

Hallo, Matthias,

ich habe mal eben in meiner Grabbelkiste gewühlt und folgendes gefunden:

Code

Author: Ulrich Krause

                         Determining the Name of the Executable Associated with a Specific File

                    Code:

                         Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA"
                         (ByVal lpFile As String, ByVal lpDirectory As String, ByVal sResult As String)
                         As Long

                         Const MAX_PATH As Long = 260
                         Const ERROR_FILE_NO_ASSOCIATION As Long = 31
                         Const ERROR_FILE_NOT_FOUND As Long = 2
                         Const ERROR_PATH_NOT_FOUND As Long = 3
                         Const ERROR_FILE_SUCCESS As Long = 32 'my constant
                         Const ERROR_BAD_FORMAT As Long = 11

                         Sub Click(Source as Button)

                         Dim success As Long
                         Dim pos As Long
                         Dim sResult As String
                         Dim msg As String

                         sResult = Space$(MAX_PATH)

                         'lpFile: name of the file of interest
                         'lpDirectory: location of lpFile
                         'sResult: path and name of executable associated with lpFile
                         success = FindExecutable("winhlp32.hlp", "c:\winnt\system32\", sResult)

                         Select Case success
                         Case ERROR_FILE_NO_ASSOCIATION: msg = "no association"
                         Case ERROR_FILE_NOT_FOUND: msg = "file not found"
                         Case ERROR_PATH_NOT_FOUND: msg = "path not found"
                         Case ERROR_BAD_FORMAT: msg = "bad format"

                         Case Is >= ERROR_FILE_SUCCESS:

                         pos = InStr(sResult, Chr$(0))

                         If pos Then
                         msg = Left$(sResult, pos - 1)
                         End If

                         End Select

                         MsgBox msg

                         End Sub

Erstens: Probier' mal, ob Dir das was nützt.
Zweitens: Schau' mal, von wem das ist ;-)  Ich glaub, damals war eknori noch bei irgendwas kaltem: Schöller, Eismann ?  ;-)

HTH,
Bernhard (mit herzlichem Gruss auch an Ulrich !)

[TMC]

HTH,
Bernhard

I'm sure this helps :-)
Liest sich zumindest schon mal gut an

Das Problem war zwar nicht auf Notes bezogen, sondern auf einen Visual Basic - Kollegen von mir der mich danach gefragt hat, aber das sollte für ihn sehr hilfreich sein.

Vielen Dank dafür (und natürlich auch an Eknori).

Matthias