Désactiver Menu Excel

[Banzai68]

Bonjour je suis novice sous Excel,
mais pour des raisons pratiques, je voulais savoir comment il
était possible de rendre inactif, le menu Fichier/Propriétés
dans Excel 2000.. Je voudrais éviter que des persoones utilisant ce fichier ne puissent les modifier...
Je pensais à un macro dans le genre Auto_open..

Merci à vous..

 

[CBernardT]

Bonjour Banzai68,

As-tu regardé le fil suivant qui parle du même sujet ?


Lien supprimé

Cordialement

Bernard

 

[Banzai68]

Merci à toi Bernard,

j'ai déjà cherché , mais cela ne correspond pas à ce que je cherche..

J'ai vu qu'il y avait un moyen par macro en utilisant

FindControl mais je ne sais pas comment l'utiliser..

Bonne journée

 

[CBernardT]

Re Banzai68,

Effectivement j'ai été un peu vite dans la lecture de la question !

Je ne pense pas que l'on puisse intervenir dans les menus de la barre de menu Excel. On ne peut que masquer la barre dans sa totalité autant que je sache...

Ceci est, par contre, possible dans une barre d'outil personnelle.

Cordialement

Bernard

 

[Banzai68]

Ok Bernard merci à toi...
J'ai essaiyer pleins de macros mais comme tu dis apparement cela ne fonctionne pas avec les menus standards... sniff

Je vais continuer mes recherches... on ne sait jamais...

 

[Banzai68]

Bon Voilà,

Je n'étais pas loin... sous Excel 2000 en FR..

Pour Dévalider..
Application.CommandBars.FindControl(ID:=750).Enabled = False

Remplacer False par True pour la re-valider

Bonne journée à tous

 

[Humansoft]

Bonjour Banzai 68, Bonjour le forum,

Voici comment cacher les barre de menus Excel:

'Ce programme s'executera à l'ouverture du programme
Dim cmd_Barre As CommandBar
Dim Nom_Barre As String

Sheets('Accueil').Select ' La feuille à afficher
'cacher les barres de menu standard
For Each cmd_Barre In Application.CommandBars
If cmd_Barre.Visible = True Then
Nom_Barre = cmd_Barre.Name
If Nom_Barre <> 'GestionVB' Then ' Nom de la Barre personnelle
Application.CommandBars(Nom_Barre).Enabled = False
End If
End If
Next cmd_Barre

et comment les faire réapparaitre:

'Sheets('Accueil').Select ' La feuille à afficher
'ActiveSheet.Unprotect ' La feuille à déprotéger
'Tout remettre en place
Dim cmd_Barre As CommandBar
Dim Nom_Barre_Barre As String

For Each cmd_Barre In Application.CommandBars
If cmd_Barre.Enabled = False Then
Nom_Barre = cmd_Barre.Name
Application.CommandBars(Nom_Barre).Enabled = True
End If
Next cmd_Barre

Bonne découverte....

Vincent

 

[Dan]

Bonjour,

Très intéressant ce que tu as trouvé Banzai, reste plus qu'à pas oublier de mettre cela à la sortie et que cela fonctionne dans tous les environnements ou version d'Excel.

Car trop souvent ce qui arrive c'est Lien supprimé.

Bien sûr, ton pb n'est pas le même mais c'est bon à rappeler tout de même car on a souvent eu des appels à l'aide surtout quand la mise sécurité des macros en placée en niveau bas.

A ne pas oublier.

bonne fin de journée

 

[CBernardT]

Re Banzai68,

Merci à toi qui a posé la question et qui y a répondu. Lol

Comme le dit Dan, c'est très intéressant !
Je le garde au chaud.

Cordialement

Bernard