Alt-F11
15.11.2012 19:47:05
Rolf
während Prg_1 und Prg_2 funktionieren, klappt es beim Zusammenziehen wie in Prg_3
nicht.
Was mach ich da falsch?
Gruß
Rolf
Sub Prg_1() 'VBA Schutz aufheben
SendKeys "%{F11}%xi{TAB 9}" & "1" & "{tab}{enter 2}%q"
End Sub
Sub Prg_2() 'Alt-F11 sperren
Application.OnKey "%{F11}", ""
End Sub
Sub Prg_3()
SendKeys "%{F11}%xi{TAB 9}" & "1" & "{tab}{enter 2}%q"
Application.OnKey "%{F11}", ""
End Sub
Anzeige