Sujet Précédent Sujet Suivant

Excel : menu "fichier" bloqué par macro

Sweetpatapouf -  
Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Au secours! en voulant utiliser une macro pour bloquer l'enregistrement d'un fichier excel, j'ai appliqué dans ThisWirkbook la macro suivante:

Sub empecheEnr()

With Application.CommandBars("Standard")
.Controls("Enre&gistrer").Enabled = False
End With
With Application.CommandBars("Worksheet Menu Bar")
.Controls("Fichier").Enabled = False
End With

'desactive le raccourci clavier Ctrl+S
Application.OnKey "^s", ""

End Sub

Mon soucis c'est qu'elle me bloque le menu déroulant "Fichier", sur tous mes classeurs excel. J'ai tenté le

Application.CommandBars("Worksheet Menu Bar")
.Controls("Fichier").Enabled = True

Puis la suppression du fichier où j'avais mis cette macro.

Résultat, tous mes classeurs excel ne veulent pas me donner l'acces au menu fichier... Quelqu'un peut il me donner la solution pour rétablir l'acces à ce menu?

Merci d'avance de m'aider,
vous êtes mon seul espoir, Obiwan Kenobi!

A voir également:

1 réponse

Réponse 1 / 1
Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   954
 
Salut le forum

Copie le code de la macro dans un module et lance-le. 

Sub PermettreEnr() 

With Application.CommandBars("Standard") 
.Controls("Enre&gistrer").Enabled = True 
End With 
With Application.CommandBars("Worksheet Menu Bar") 
.Controls("Fichier").Enabled = True 
End With 

'Réactive le raccourci clavier Ctrl+S 
Application.OnKey "^s" 

End Sub

Il faut faire attention avec des manipulations sur les Application.CommandBars.

C'est comme être un apprenti-sorcier, qui lance un sort sans en connaitre les conséquences.

Une simple macro dans ThisWorkbook, fait le même travail. 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
MsgBox ("Vous n'avez pas le droit d'enregister ce fichier")
End Sub

C'est beaucoup moins risqué que ta macro.

Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]
0