Interdire lancement macro depuis Alt+F8 et menu Outils

[arnaudbu]

Bonjour,

Tout est dans le titre. J'ai un sub qui déprotège les feuilles et bien sur en allant dans le menu outils ou avec alt+F8 on peut déprotéger. Y a t-il un contournement ?

Merci

 

[laurentdu24]

Re : Interdire lancement macro depuis Alt+F8 et menu Outils

Merci. super.

Je compile toutes les saisies de code, et vous les envoie pour validation, si vous permettez.

Merci encore de votre aide.

Cdt

 

[Pierrot93]

Re : Interdire lancement macro depuis Alt+F8 et menu Outils

Re,

là nous risquons de sortir du sujet initial....

 

[laurentdu24]

Re : Interdire lancement macro depuis Alt+F8 et menu Outils

Bonsoir,

Est-ce qu'avec ces codes, les solutions sont en place ?
(je reprends mes besoins )
dès l'ouverture de la grille excel depuis n'importe quel poste :
- désactiver accès au menu outils
- désactiver accès à alt F8
- désactiver accès aux macro
- réactiver le menu outils + alt F8 + macro en fermeture.

Code :
Option Private Module
Private Sub Workbook_Open()
Application.OnKey "%{F8}", "interdit"
End Sub
(J'ajoute un Module 🙂
Sub interdit()
MsgBox "l'accès à ces touches n'est pas autorisé"
End Sub (+ code dans project vba)
Private Sub Workbook_Open()
InactiveMenu
End Sub
CommandBars(1).Controls("Outils").Enabled = false
end Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveMenu
End Sub

Merci encore et très sincèrement, Pierrot !
Très cordialement.

Laurent

 

[Pierrot93]

Re : Interdire lancement macro depuis Alt+F8 et menu Outils

Bonjour,

déjà tu as 2 "Private Sub Workbook_Open()", tu ne peux avoir qu'une seule procédure pour un même événement de objet "workbook" dans le module "thisworkbook"...

bonne journée
@+

 

[laurentdu24]

Re : Interdire lancement macro depuis Alt+F8 et menu Outils

Code :
Option Private Module
Private Sub Workbook_Open()
Application.OnKey "%{F8}", "interdit"
End Sub
Sub interdit()
MsgBox
End Sub (+ code dans project vba)
InactiveMenu
End Sub
CommandBars(1).Controls("Outils").Enabled = false
end Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveMenu
End Sub

Merci de votre aide.
Questions supplémentaires :
- Est-ce que je mets le code avant de lancer la macro après sa création ?
- Merci de me confirmer que le code me permettra via alt F11 de désactiver cette macro

Merci encore
Très cordialement.

Laurent

 

[Pierrot93]

Re : Interdire lancement macro depuis Alt+F8 et menu Outils

Re,

- Est-ce que je mets le code avant de lancer la macro après sa création ?

heu... pas tout compris.... attention ton code en l'état a perdu les déclarations de procédures.... et pas de code pour la réinitialisation du raccourci ALT F8...

A noter aussi, si tu veux progresser en vba, le mieux est de tester toi même tes codes...

 

[laurentdu24]

Re : Interdire lancement macro depuis Alt+F8 et menu Outils

Désolé pour la syntaxe.
la question était : Le code pour condamner l'accès aux VBA dans la grille excel :
Je dois bien le mettre avant de lancer l'exécution de la macro ? ou après ?

Euh déclaration de procédure : kézako ?
Je trouve déclaration de variable mais pas de procédure.

Concernant les codes, j'ai fait ça : tester, lancer et je suis resté 2 heures sans mon menu outil pour toutes mes grilles excel.
C'est d'ailleurs ce qui m'a amené à ton forum. j'ai trouvé un gars qui disait alt F8 pour réactiver menu outil.
et retour google et arrivée chez toi puis débogage outil !

Mais là, on parle de condamner tout ce qui m'a pour l'instant permis d'éviter le plantage complet, d'où une légère appréhension !!!

Merci encore de ton aide.

 

[Pierrot93]

Re : Interdire lancement macro depuis Alt+F8 et menu Outils

Re,

la question était : Le code pour condamner l'accès aux VBA dans la grille excel :
Je dois bien le mettre avant de lancer l'exécution de la macro ? ou après ?

bah mets le code dans les modules qui vont bien, tu enregistres et fermes ton classeur... puis tu l'ouvres si tu veux que la procédure "workbook_open" se déclenche...

Euh déclaration de procédure : kézako ?

Sub test() 'Déclare le nom d'une procédure Sub
'le code
End Sub

 

[laurentdu24]

Re : Interdire lancement macro depuis Alt+F8 et menu Outils

Si je comprends bien:
déclaration = texte qui n'est que le nom de la procédure (en gros un pense bête), et qui n'est pas un codage ?

Quand tu mets procédure tets, est-ce que ça faitle test de toute la procédure,puis quand on ferme, ça arrête la procédure ?

 

[Pierrot93]

Re : Interdire lancement macro depuis Alt+F8 et menu Outils

Re,

pas sur que tu ais vu le post #23

 

[Pierrot93]

Re : Interdire lancement macro depuis Alt+F8 et menu Outils

Re,

Quand tu mets procédure tets, est-ce que ça faitle test de toute la procédure,puis quand on ferme, ça arrête la procédure ?

en l'état il faut qu'elle soit lancée... soit par un bouton... soit par un événement... soit manuellement à partir de l'éditeur vba

 

[laurentdu24]

Re : Interdire lancement macro depuis Alt+F8 et menu Outils

#23 vu, mais pas sûr de comprendre :

exemple :
Sub test() 'aller à la page Travaux
Private Sub CommandButton3_Click()
Sheets("Travaux").Select
End Sub

Ca te semble l'application correcte de ce que tu me dis ? ou j'ai rien compris ?

 

[Pierrot93]

Re : Interdire lancement macro depuis Alt+F8 et menu Outils

Re,

non 2 déclarations sub et private sub... en testant tu le vois tout de suite... teste pas à pas, utilisation de la touche de fonction F8 dans l'éditeur vba.... je ne peux tester à ta place...

 

[laurentdu24]

Re : Interdire lancement macro depuis Alt+F8 et menu Outils

Exact.
Il faut les séparer pas end sub.

Merci de ton aide.
Je vais faire les tests, et sûrement revenir pour des petits coups de main.

Bonne journée.