Guten Morgen,
wenn ich per Makro den VB öffne, soll immer das 1. Object
angezeigt werden.
mfg
walter mb
Private Sub VB_setzen_Neue_Datei()
'Workbooks.Open (strPfadAktuell & strDateiNameAktuell)
Set oWBExtern = ActiveWorkbook 'GetObject(strPfadAktuell & _
strDateiNameAktuell)
'''oWBExtern.Activate
'''Application.ScreenUpdating = True
If oWBExtern.VBProject.Protection = 0 Then
SendKeys ("%{F11}"), True ' Visual Basic Editor öffnen
For iZaehlerSchleifeUnprotect = 1 To 2 ' raus 30.03. stand auf 2 BEGINN, Schleife _
erforderlich,
' da Projekt 2x im Projekt-Explorer auftritt (!? _
)
SendKeys ("^r"), True ' in den Projekt-Explorer wechseln
SendKeys ("A"), True ' Zum Projekt beginnend mit "c" springen
'SendKeys ("{ENTER}" & "Passwort" & "{ENTER}"), True ' ENTER=Projekt öffnen-> _
Passwortfenster öffnet, Passwort übergeben, bestätigen mit ENTER
'SendKeys ("{ENTER}" & "ww" & "{ENTER}"), True ' ENTER=Projekt öffnen-> _
Passwortfenster öffnet, Passwort übergeben, bestätigen mit ENTER
Next iZaehlerSchleifeUnprotect ' ENDE, Schleife erforderlich,
'da Projekt 2x im Projekt-Explorer auftritt _
' Nachdem in "beide" Projekte das Passwort eingegeben wurde ...
'''''SendKeys ("%xi" & "^{TAB}" & "{TAB}" & "%a" & "%k" & "{DEL}" & "%s" & "{DEL}" & "{TAB}" & " _
{ENTER}"), True ' Erklärung s. Folgezeilen
SendKeys ("%xi" & "^{TAB}" & "{TAB}" & "%a" & "%k" & "%s" & "{TAB}" & "{ENTER}"), True ' Erklä _
rung s. Folgezeilen
' %xi = wechslen zu Projekteigenschaften
' ^{TAB} = wechslen zu Projekteigenschaften, Schutz
' %a = wechseln zu "Projekt für Anzeige sperren", Häkchen wird geändert
' %k = wechseln in Passwortfeld 1
' {DEL} = Passwortfeld1 löschen
' %s = wechseln in Passwortfeld 2
' {DEL} = Passwortfeld2 löschen
' {TAB} = Springen zum OK-Buttonww
' {ENTER}= Bestätigen OK-Button
''''' SendKeys ("%{F4}"), True
' Visual Basic Editor schließen
End If
End Sub
Public Sub VB_setzen_Neue_Datei()
Dim Password As String
Dim vbext_pp_none
Dim wb As Workbook, ok As Boolean, s As String
Set wb = ThisWorkbook 'Application.Workbooks(akw)
Password = "ww"
SendKeys "%{F11}^r{Tab}", True
'Do While Application.VBE.ActiveVBProject.Filename <> wb.FullName
' Debug.Print "***" & " - " & Application.VBE.ActiveVBProject.Filename
' SendKeys "{Tab}", True
'Loop
Debug.Print ":::" & " - " & Application.VBE.ActiveVBProject.Filename
'If wb.VBProject.Protection = vbext_pp_none Then
'Dieser Stop-Befehl ist erforderlich, damit der Focus im Vba-Editor auch auf dam
'richtigen Projekt steht!!!
Stop 'hier hält der Debugger an und mit 'Fortsetzen' weiter
' MsgBox "jetzt F5 drücken"
If wb.VBProject.Protection = 0 Then
'nur ein einziger SendKeys-Befehl
SendKeys "%xi{TAB 9}{RIGHT}{TAB} {TAB}" & Password & "{TAB}" & _
Password & "{TAB}{Enter}%{F11}", False 'True
End If
Set wb = Nothing
End Sub