Désactiver Menu Excel

  • Initiateur de la discussion Banzai68
  • Date de début
B

Banzai68

Guest
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..
 
B

Banzai68

Guest
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

XLDnaute Barbatruc
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
 
B

Banzai68

Guest
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...
 
B

Banzai68

Guest
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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

;)
 

Discussions similaires

Réponses
8
Affichages
330

Statistiques des forums

Discussions
312 932
Messages
2 093 733
Membres
105 802
dernier inscrit
Witchun