VBA - restrictionRésolu

Question

j'ai fai un prog en vba a partir d'un classeur excel.
Certain utilisateur on vue la possibilit&#233;e avant d'ouvrir le classeur excel de lancer excel puis de faire ALT+F11, ceci leur permettant de lancer vb, et ainsi une fois le classeur lancer, il peuvent interompre l'appli en coupant le processus.
Je voudrai savoir si c'est possible d'empecher de faire ALT+F11, ou de demander un mot de passe au lancement de vb ou &#224; l'interruption du processus.

Merci si vous avez une id&#233;e.

morickno · Accepted Answer

c bon ca marche tr&#232;s bien et c'est exactement ce que je cherchais


j'utilise pour mon cas:


   Sub activeAltF11()
         Application.OnKey "%{F11}"
   End Sub

   Sub desactiveAltF11()
         Application.OnKey "%{F11}", ""
   End Sub


Merci beaucoup, A+

K_SoZe · Answer

A mettre dans les &#233;v&#233;nements WorkBook Open et Workbook Activate



'Pour d&#233;sactiver les touches de fonction



With Application



    For i = 1 to 12



        TonClasseur.OnKey "(F " & i & ")", ""



    Next i



End With



A mettre dans les &#233;v&#233;nements Workbook BeforeClose et Workbook Deactivate



'Pour r&#233;activer les touches de fonction



With Application



    For i = 1 to 12



        TonClasseur.OnKey "(F" & i & ")"



    Next i



End With



        

K. SZe

morickno · Answer

ca a l'air bien mais j'ai un souci dans avec le onKey: a quoi correspond TonClasseur ?

K_SoZe · Answer

Cela correspond au nom de ton classeur: WorkBook("Nom de ton classeur").OnKey

Tu peux aussi essayer avec  ThisWorkbook.OnKey

K. SZe

morickno · Answer

ca ne fonctionne pas car il y a des erreur de propri&#233;t&#233;e non g&#233;n&#233;r&#233; par l'object ...

K_SoZe · Answer

Aaaaaaaargh autant pour moi !!!!! 



Ce  n'est pas le nom de ton classeur qu'il faut mettre mais Application.OnKey .... d&#233;sol&#233;e !


K. SZe

morickno · Answer

c'est bon j'ai plus d'erreur mais attention &#224; la syntaxe car ce sont des '{' au lieu des '(' dans:

   Application.OnKey "(F" & i & ")"      FAUX

   Application.OnKey "{F" & i & "}"     CORRECT

par contre ca ne doit pas r&#233;pondre &#224; tout mes besoin, je vai tester plus en d&#233;taille

Merci, A+

VBA - restriction

7 réponses

Discussions similaires