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

cora

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

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

Bonjour cora

A tester:

Code:
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

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

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

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

Discussions similaires

Statistiques des forums

Discussions
311 721
Messages
2 081 928
Membres
101 842
dernier inscrit
seb0390