Problème de suppression de macro excel
Résolu
Utilisateur anonyme
-
Midou -
Midou -
Bonjour, quand j'ouvre un fichier excel, il m'affiche la fenêtre d'activation ou désactivation des macros. Je ne veux plus qu'il m'affiche cette fenêtre, donc je fait : "activer macro" ou "desactiver macro" c'est pareil, puis outils, macros, il m'affiche la fenêtre "macro", mais il n'y a rien à l'intérieur ce qui fait que je ne peux supprimer aucune macro. Je referme tout, et quand je ré-ouvre mon fichier c'est pareil il me ré-affiche la fenêtre "activer macro" ou "desactiver macro" !!! Quelqu'un peut-il m'aider ?
merci
merci
A voir également:
- Impossible de modifier une macro dans un classeur masqué
- Modifier dns - Guide
- Modifier liste déroulante excel - Guide
- Numero masque - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Modifier une story facebook - Guide
16 réponses
J'ai trouvé la solution !
Enfin pour moi :)
Il arrive que la suppression d'une macro via Outils/macro/macro efface la macro mais pas le module Visual Basic. C'est le module, même vide, qui déclenche le message...Donc allez dans Outils/macro/Visual Basic editor et regarder dans la liste des fichiers VBA : trouver le fichier module et le supprimer (souris bouton de droite), fermer et sauvegarder le fichier et voilà !
Bonne chance !!!!
Enfin pour moi :)
Il arrive que la suppression d'une macro via Outils/macro/macro efface la macro mais pas le module Visual Basic. C'est le module, même vide, qui déclenche le message...Donc allez dans Outils/macro/Visual Basic editor et regarder dans la liste des fichiers VBA : trouver le fichier module et le supprimer (souris bouton de droite), fermer et sauvegarder le fichier et voilà !
Bonne chance !!!!
SUPPRIME TES MACROS DE TES CLASSEURS LOSRQU'ils sont calculés.
Déclaration
Private Declare Function GetForegroundWindow Lib "User32" () As Long
Private Declare Function SetForegroundWindow Lib "User32" _
(ByVal hWnd As Long) As Long
Code
'PROCEDURE DE SUPPRESSION DE LA MACRO
Range("A1").Select
CurhWnd = GetForegroundWindow
Dim VBC As Object
With ActiveWorkbook.VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC
End With
SetForegroundWindow CurhWnd
@+
Merci pout ton astuce