Abfrage bei SendKeys

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test_VB() '061101 'Funktioniert so bei XP !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Sheets("Tabelle1").Select Application.SendKeys "%x" 'Extras Application.SendKeys "Down" 'Optionen Application.SendKeys "s" 'erst auf Speichern dann... Application.SendKeys "s" 'auf Sicherheit Application.SendKeys "%s" 'Blatt Sicherheitsstufe Application.SendKeys "%n" 'niedrig einstellen Application.SendKeys "%v" 'Blatt Vertrauenswürdige Quellen Application.SendKeys "%Z" 'Zugriff auf Visual Basic Application.SendKeys "~" 'Enter ' If Application.SendKeys "%Z",True then ' MsgBox "Haken vorhanden" ' End If Application.SendKeys "%Z" 'Zugriff auf Visual Basic End Sub

Sub Test() Dim lngI As Long On Error Resume Next lngI = ActiveWorkbook.VBProject.VBComponents.Count If Err.Number = 0 Then MsgBox "Haken vorhanden", vbInformation Else MsgBox "Nu is er nicht vorhanden !", vbCritical ' Hier dann deine SEndkeys Anweisung für Zugriff auf Visual Basic Vetrauen. End If On Error GoTo 0 End Sub

Sub Test() Dim lngI As Long On Error Resume Next lngI = ActiveWorkbook.VBProject.VBComponents.Count If Err.Number = 1004 Then MsgBox "Haken ist nicht vorhanden !", vbCritical ' Hier dann deine SEndkeys Anweisung für Zugriff auf Visual Basic Vertrauen. ElseIf Err.Number = 50289 Then MsgBox "VBA Projekt ist Passwort geschützt !", vbCritical Else MsgBox "Haken vorhanden", vbInformation End If On Error GoTo 0 End Sub

Private Sub Workbook_Open() Dim sStr As String Dim lngI As Long On Error Resume Next lngI = ActiveWorkbook.VBProject.VBComponents.Count If Err.Number = 1004 Then MsgBox "Sicherheitseinstellung für Excel wird jetzt durchgeführt !" _ & Chr(13) & "die Datei wird dann wieder geschlossen !" & Chr(13), vbCritical ' Hier dann deine SEndkeys Anweisung für Zugriff auf Visual Basic Vertrauen. ElseIf Err.Number = 50289 Then MsgBox "VBA Projekt ist Passwort geschützt !", vbCritical Else MsgBox "VB-Makros Sicherheitseinstellung ist schon durchgeführt !", vbInformation Exit Sub End If On Error GoTo 0 Application.SendKeys "%x" 'Extras Application.SendKeys "Down" 'Optionen Application.SendKeys "s" 'erst auf Speichern dann... Application.SendKeys "s" 'auf Sicherheit Application.SendKeys "%s" 'Blatt Sicherheitsstufe Application.SendKeys "%n" 'niedrig einstellen Application.SendKeys "%v" 'Blatt Vertrauenswürdige Quellen Application.SendKeys "%Z" 'Zugriff auf Visual Basic Application.SendKeys "~" 'Enter Application.SendKeys "%S" 'Zugriff auf Visual Basic Application.SendKeys "%Z" 'Zugriff auf Visual Basic End Sub

Hallo Heiko,
soweit ist alles klar, habe die Zeilen überrprüft und geändert,
so läuft es:


Private Sub Workbook_Open()
Dim sStr As String
Dim lngI As Long
On Error Resume Next
lngI = ActiveWorkbook.VBProject.VBComponents.Count
If Err.Number = 1004 Then
MsgBox "Sicherheitseinstellung für Excel wird jetzt durchgeführt !" _
& Chr(13) & Chr(13) & "Die Datei wird dann wieder geschlossen !" & Chr(13), vbCritical
' Hier dann deine SEndkeys Anweisung für Zugriff auf Visual Basic Vertrauen.
Application.SendKeys "%x"        'Extras
Application.SendKeys "Down"      'Optionen
Application.SendKeys "s"         'erst auf Speichern dann...
Application.SendKeys "s"         'auf Sicherheit
Application.SendKeys "%s"        'Blatt Sicherheitsstufe
Application.SendKeys "%n"        'niedrig einstellen
Application.SendKeys "%v"        'Blatt Vertrauenswürdige Quellen
Application.SendKeys "%Z"        'Zugriff auf Visual Basic
Application.SendKeys "~"         'Enter
Application.SendKeys "{TAB}", True
Application.SendKeys "~"         'Enter
ElseIf Err.Number = 50289 Then
MsgBox "VBA Projekt ist Passwort geschützt !", vbCritical
Else
MsgBox "VB-Makros Sicherheitseinstellung ist schon durchgeführt !", vbInformation
Exit Sub
End If
On Error GoTo 0
End Sub

Es ist mir jedoch aufgefallen, wenn Excel die Makro-Einstellung auf "Hoch" eingestellt
hat, wird das Makro(Auto-Open) erst garnicht ausgeführt !
Wie kann man das hinkriegen ?
gruß Walter

Hallo Walter,
Zitat von dir:
"Zugriff auf Visual Basic..." gesetzt habe und mit OK bestätige funktioniert auch nur
das nächste Fenster krieg ich nicht AKTIV. Ich möchte ja nur mit OK weiter bestätigen um
damit den Optiondialog zu schließen.
Da kann ich dir nur sagen, rumprobieren mit Sendkeys bis es klappt. Also mal manuell alles durchgehen aufschreiben welche Tasten gedrückt werden und das dann mit Sendkeys nachbilden.
Aber Achtung, Sendkeys verhält sich nicht auf jeden Rechner / jeder Version gleich also das was denn bei dir läuft muss nicht zwangsläufig überall funktionieren. Denn wie schon gesagt Sendkeys ist nur ne unsichere Hilfskrücke und kein echtes programmieren.
Wenn du Makros schreiben willst die auf anderen Rechner ohne Makroabfrage funktionieren dann geht nur der Weg über Signatur, da muß man dann nur einmal anklicken das man der Quelle vertrauen will, danach werden die Makros auch ohne Makroabfrage abgearbeitet.
Läuft gut, mußt du halt mal in der Recherche suchen wie man so eine Selbstsignatur erstellt und mitliefert. Da kann ich dir leider nicht helfen da wir hier im Hause eine übergeordente Stelle haben die sowas macht.
Gruß Heiko
PS: Rückmeldung wäre nett !

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Abfrage bei SendKeys

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread