protection

[SYLVAIN]

Salut j'utilise les macros pour gerer une base de donnée et quand je protege.

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True

ActiveWorkbook.Protect Structure:=True, Windows:=False



ou deprotege
ActiveSheet.Unprotect
ca me met une erreur 1004
vous avez une solution?
merci

 

[Arnaud]

salut,

moi perso chez moi ton code fonctionne très bien donc il y a autre chose.

 

[SYLVAIN]

autre chose comme quoi ?

 

[Arnaud]

re,

si tu joignais ton classeur je pourrais surement plus t'aider

 

[SYLVAIN]

j'arrive pas à te l'envoyer c trop gros

 

[SYLVAIN]

voila comment j'appel la sous routine de protection (proter_feuille)



Workbooks(FIC_DEV).Activate
Sheets(NOM_RA).Activate

Proteger_Feuille


et voila la sous routine

Sub Proteger_Feuille()


ActiveSheet.Protect DrawingObjects:=True
ActiveSheet.Protect AllowFiltering:=True
ActiveSheet.Protect Contents:=True
ActiveSheet.Protect Scenarios:=True



ActiveWorkbook.Protect Structure:=True, Windows:=False

End Sub

 

[SYLVAIN]

et pour la deprotection

Workbooks(FIC_DEV).Activate
Sheets(NOM_RA).Activate

ActiveSheet.Unprotect

 

[Arnaud]

re,

déja ta fonction de protection sera mieux comme ça

Sub Proteger_Feuille()

ActiveSheet.Protect DrawingObjects:=True, AllowFiltering:=True, Contents:=True, Scenarios:=True

ActiveWorkbook.Protect Structure:=True, Windows:=False

End Sub

ensuite vu que je vois pas d'ou viens ton erreur et que g pas ton fichier, tu peux déja exécuter ton code en pas a pas pour voir ou ça pète et pkoi.

 

[SYLVAIN]

c ce que g fais et ca pete la.
g mis le code comme ca pour savoir quelle option fou la merde et ca a l'aire d'etre allowfilltering (je ne comprend pas tres bien comment elle fonctionne et a quoi elle sert exactement)

 

[Arnaud]

re,

AllowFiltering : Argument de type Variant facultatif. La valeur True permet à l'utilisateur de définir des filtres dans la feuille de calcul protégée. Les utilisateurs peuvent changer des critères de filtre mais ne peuvent ni activer, ni désactiver un filtre automatique. Les utilisateurs peuvent définir des filtres dans un filtre automatique existant. La valeur par défaut est False

 

[SYLVAIN]

comment on definit les filtres ?

 

[SYLVAIN]

ca pourrait pas etre une question de version de excel.
le prog n'a pas été developpé sur mon poste et marchait trés bien avant.