Macro ne s'exécute pas à l'ouverture

[cora]

Bonjour,

Je me permets de réitérer ma demande car mon problème d'hier n'est pas résolut. J'ai un code qui me permet de protéger mon classeur. Hors à l'ouverture de ce dernier, certaines macros (pas toutes), ne s’exécutent pas "erreur d’exécution 1004 cette commande sur une feuille protéger etc etc..."
Toutes les macros qui ne fonctionnent pas présélectionnent en début d'instruction la ligne A1:A11 ôtent les filtres et les remettent, afin de réinitialiser le tableau. Le code utilisé est le suivant:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect "mot de passe", UserInterfaceOnly:=True
End Sub

Je tiens à signaler que je n'ai pas beaucoup de connaissance en VBA et que je ne peux pas envoyer de fichier car trop lourd.

Merci de votre patience

 

[pierrejean]

Re : Macro ne s'exécute pas à l'ouverture

Bonjour cora

A tester:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.UnProtect "mot de passe"
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect "mot de passe", UserInterfaceOnly:=True
End Sub

 

[cora]

Re : Macro ne s'exécute pas à l'ouverture

Toujours le même message, en fait les macros qui ne s'executent pas commence toutes par:
Range("A11:Aa11").Select
Selection.AutoFilter
Selection.AutoFilter

 

[cora]

Re : Macro ne s'exécute pas à l'ouverture

Autre information les macros qui ne fonctionnent pas s’exécutent si je change de feuille et reviens sur la feuille initiale. Peut-être y a t'il un lien?

 

[cora]

Re : Macro ne s'exécute pas à l'ouverture

Mon fichier comprend trop de données. Est il est trop lourd. Je vais essayer car même

 

[cora]

Re : Macro ne s'exécute pas à l'ouverture

en suppriment le 1er code et en insérant ce dernier dans chaque feuille toutes mes macros fonctionnent, mais c'est plus long à déprotéger
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect "mot de passe", userinterfaceonly:=True
End Sub

 

[ERIC S]

Re : Macro ne s'exécute pas à l'ouverture

Bonjour

j'ai peut-être pas compris mais si tu mets le code suivant dans Thisworkbook

Private Sub Workbook_Open()
 For Each Sh In Worksheets
    Sh.Unprotect "mp"
    Sh.EnableAutoFilter = True
    Sh.Protect "mp", UserInterfaceOnly:=True
Next
End Sub

 

[cora]

Re : Macro ne s'exécute pas à l'ouverture

je vais essayer je vous tiens au courant

 

[cora]

Re : Macro ne s'exécute pas à l'ouverture

Enfin une solution, merci ça fonctionne super bien.