Ouverture editeur vba

Résolu
Bonjour à tous

j'ai créé un userform
celui-ci se lance à l'ouverture du fichier excel
excel quand à lui reste invisible (pas réduit mais bel et bien invisible)
je n'ai donc plus du tout accès à excel dans sa totalité

je voudrais mettre un bouton sur le formulaire afin d'afficher feuille et éditeur de vba

Je cherche donc le code à mettre sur le bouton de l'userform qui me permettrait d'ouvrir l'éditeur de vba et la feuille excel

Merci :-)

7 réponses

  1. re pivert,

    j'ai appliqué ta solution et je viens de découvrir un soucis :

    si j'ai des fichiers excel ouverts, ca les faits "disparaître" lorsque je lance l'userfom... ceux ci réapparaissent à la fermeture de mon formulaire

    pas parfait parce que je dois pouvoir avoir accès à mes fichiers excel en même temps que mon formulaire est ouvert :-/

    voili voilou

    encore merci de ton intérêt
    0
    1. Contributeur
      Il faudra penser à fermer Excel si le mot de passe est mauvais avec:

      Application.Quit

      0
      1. Oh purée .... suis un vrai bourricot :-/
        Visiblement j ecris plus vite que je reflechi ....
        Merci pour tout :-)
        0
        1. Contributeur
          Ce n'est pourtant pas compliqué de mettre ce code dans un bouton.
          Rassure moi!!!!!

          Application.Visible = True

          0
          1. je dois être le seul à pouvoir accéder à la feuille excel et a l'éditeur de vba
            les autres utilisateurs ne doivent avoir accès qu'au formulaire
            0
            1. belle réactivité :-)

              Par contre , je ne vois pas dans ton code à quel endroit il se trouve associé à un bouton
              je précise que ce bouton devra ouvrir une boite de dialogue demandant un mot de passe
              0
              1. Contributeur
                Bonjour,

                Dans ThisWorkbook:

                Option Explicit
                Private Sub Workbook_Open()
                UserForm1.Show
                End Sub
                


                dans l'UserForm

                Option Explicit
                Private Sub UserForm_Initialize()
                Application.Visible = False
                End Sub
                Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
                Application.Visible = True
                End Sub
                


                Voilà
                0