Discussion :

[Chevrefeuille]

Bonjour,

Je souhaite intégrer dans une macro un code qui masquerait ou bloquerait ou désactiverait les menus Fichier, Edition, Affichage etc... ainsi que les raccourcis clavier qui y correspondent bien entendu.

Le but est d'obliger l'utilisateur à utiliser le fichier en l'état et de lui interdire l'accès aux macros par exemple.

Avez vous une idée pour faire ça ?
Si c'est le cas ça serait gentil de me donner le code avec un petit peu d'explications pour que je puisse le comprendre.

Chevrefeuille.

[Fvandermeulen]

Salut,

Il suffit de placer ceci dans ton module de ThisWorkbook sur l'évènement Open

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CommandBars(1).Enabled = False

Par contre n'oublie pas de le remettre à True à la fermeture du fichier

A+

[Chevrefeuille]

Merci Fvandermeulen,

Existe il une commande qui effectuerait quelque chose de similaire mais lié à la feuille ou au classeur plutôt qu'à l'application ?

Chevrefeuille

[Fvandermeulen]

Re,
Heu, je ne crois pas non, j'imagine que tu es emm.... car tu passe d'un fichier à un autre...

Tu peux mettre l'évènement sur l'activation d'une feuille ou même du fichier (ce qui me semble avoir plus de sens)

A+

[Chevrefeuille]

Tu peux mettre l'évènement sur l'activation d'une feuille ou même du fichier

Comment fais tu ça ?

[Fvandermeulen]

Re,
Pour l'activation du fichier, même principe, dans le module Thisworkbook:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
 
Application.CommandBars(1).Enabled = False
 
End Sub

Pour réactiver le menu en changeant de fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
 
Application.CommandBars(1).Enabled = True
 
End Sub

A+