Excel : menu "fichier" bloqué par macro
Fermé
Sweetpatapouf
-
16 août 2010 à 14:14
Mytå Messages postés 2969 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 - 16 août 2010 à 18:09
Mytå Messages postés 2969 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 - 16 août 2010 à 18:09
A voir également:
- Excel : menu "fichier" bloqué par macro
- Liste déroulante excel - Guide
- Fichier rar - Guide
- Formule excel - Guide
- Fichier host - Guide
- Compte instagram bloqué - Guide
1 réponse
Mytå
Messages postés
2969
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
928
Modifié par Mytå le 16/08/2010 à 19:58
Modifié par Mytå le 16/08/2010 à 19:58
Salut le forum
Copie le code de la macro dans un module et lance-le.
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.
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)]
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)]