hier verständlicher
30.03.2017 12:46:31
walter mb
Hallo,
hier etwas verständlicher:
vba entwicklungsumgebung ProjektExplorer aktive Datei auswählen !
Hatte dieses Makro in Google gefunden:
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
gruß
walter mb