IDE openen mbv VBAcode

[hellboy01]

Hallo, is het mogelijk om de VBA editor mbv code te openen?

 

[edmoor]

Dat kan met: SendKeys ("%{F11}")
De toetscombinatie ALT+F11 dus.
Maar waarom zou je dat willen?

 

[hellboy01]

Hi Edmoor , bedankt voor je snelle reactie. Ik heb een HP laptop met rare functie toetsen die je met een fn toets moet benaderen dus 3 toetsen en dat gaat wel eens mis dat die raar doet. En omdat als ik mijn userform wil testen heen en weer switch is dat irritant als er opeens iets anders opstart.

 

[edmoor]

Ok. In de tab Ontwikkelaars kan je aan de linkerkant ook op Visual Basic klikken, dan ben je er ook.
Ook kan je denk ik in die HP wel instellen of de functietoetsen F1 t/m F12 wel of niet met de Fn toets moeten worden geactiveerd.

 

[hellboy01]

Hi Edmoor het werkt niet, ik heb jouw code onder een knop gezet in de userform.

Private Sub CommandButton7_Click()
SendKeys ("%{F11}")
End Sub

 

[edmoor]

Doet het hier prima. Maar kijk ook eens hier:
http://support.hp.com/us-en/document/c02035108

 

[hellboy01]

Interessante pagina, ik wist niet dat je dat ook kon uitzetten. Maar dan ben ik wel mijn action keys kwijt en die gebruik ik ook best wel vaak. In ieder geval bedankt voor de info.

 

[edmoor]

Dit heeft alleen betrekking op de werking van de F1 t/m F12 keys.
Als je de action keys disabled behoud je de standaard actions maar hoef je de Fn key niet meer te gebruiken voor de F1 t/m F12 toetsen. Dat begrijp ik er uit.

Testje:
Hou ook eens de Fn toets ingedrukt terwijl de klikt op de knop met dit er achter:

Private Sub CommandButton7_Click()
    SendKeys ("%{F11}")
End Sub

 

[hellboy01]

Helaas pindakaas, fn knop doet niks. Maar was wel een goed idee.

 

[rebmog]

Je kunt ook deze eens proberen:

Private Sub CommandButton7_Click()
    Application.VBE.MainWindow.Visible = True
End Sub

Voorwaarde is wel dat bij het vertrouwenscentrum een vinkje moet worden gezet bij: Toegang tot het objectmodel van het VBA-project vertrouwen.

 

[edmoor]

Werkt hier goed

 

[hellboy01]

Yep werkt hier ook :thumb: precies wat ik zocht.

 

[snb]

Het is natuurijk wel de bedoeling dat je de macro start vanuit de Excel UI (i.c. het werkblad):

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Application.SendKeys "%{F11}"
  Cancel = True
End Sub