Hi Leute,
ich habe ein kleines Tool welches zu bestimmten Zeiten eine Excel startet und Makros ausführt. Das USerprofil ist so begrenzt - das ich die Makrosicherheit in Excel nicht runternehmen kann - Aber EXE Dateien ablegen darf:-)
Nun Ja es kommt halt immer diese Meldung - im Anhang.
Ich wollte mal testen ob ich "Makros ausführen" in meinem Tool einbauen kann. Allerdings passiert nix:-(
Kann mir jemand helfen?
VG
ich habe ein kleines Tool welches zu bestimmten Zeiten eine Excel startet und Makros ausführt. Das USerprofil ist so begrenzt - das ich die Makrosicherheit in Excel nicht runternehmen kann - Aber EXE Dateien ablegen darf:-)
Nun Ja es kommt halt immer diese Meldung - im Anhang.
Ich wollte mal testen ob ich "Makros ausführen" in meinem Tool einbauen kann. Allerdings passiert nix:-(
VB.NET-Quellcode
- Public Class Form1
- Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
- Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As IntPtr
- Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
- Private Const BM_CLICK As Integer = &HF5
- Private iHwndForm As IntPtr 'Fensterhanlde ermitteln
- Private iHwndButton As IntPtr 'Buttonhandle ermitteln
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- 'Fenster Handle ermitteln
- iHwndForm = FindWindow(vbNullString, "Makros aktivieren")
- 'Button Handle ermitteln
- iHwndButton = FindWindowEx(iHwndForm, 0, "Button", vbNullString)
- 'Click auf Button in zweite EXE senden
- SendMessage(iHwndButton, BM_CLICK, 0, 0) 'Button drücken
- End Sub
- End Class
Kann mir jemand helfen?
VG
Ich würde gern die Welt verändern, aber Gott gibt mir den Quelltext nicht.