Fehler behober aber festgestellt...
07.11.2006 12:50:17
Walter
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