Bonjour,

Pour commencer, désolée si je ne suis pas au bon endroit!

J'ai fait un fichier excel 97/2003 avec, entre autre macros, une de protection de feuilles, et une de déprotection.

Après ces macros, il y a d'autres macros qui s'enclenchent.

Tout fonctionne parfaitement jusqu'au moment où m'ayant dit que la version installée chez la personne à qui je destine ce fichier était 2003, je me rends compte qu'elle ne dispose que du 97.

Et là, quand je lance les macros, le programme me dit "fonction unprotect impossible".
Je me suis retrouvée obligée de tout déprotéger avec les risques évidemment que cela comporte.

Je vous mets ci dessous mes macros de protection et une autre.

Pouvez-vous m'aider, me dire s'il y a un truc que je fais mal (ce sont mes premières macros de toute ma vie!) ou si c'est effectivement la version 97 qui pose problème, ou autre.

J'ai aussi essayé de protéger et déprotéger une par une, donc pas dans une boucle, ça ne marche pas non plus.

Le souci aussi est que je n'ai pas excel 97 chez moi, et donc je ne sais pas tester comme je veux.

En espérant avoir des réponses, merci


Sub Protege()
Dim F As Worksheet
For Each F In ThisWorkbook.Worksheets

F.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Next F

Sheets("HelpSheet").Visible = False
End Sub


Sub Deprotege()
Dim F As Worksheet
For Each F In ThisWorkbook.Worksheets


F.Unprotect
Next F
End Sub


Sub Macro_charge_revenus()


'
Call Deprotege
Sheets("encodage chg, rev").Visible = True
Sheets("charges et revenus définitif").Visible = True

Sheets("charges et revenus définitif").Select
Cells.Select
Selection.Delete Shift:=xlUp

Sheets("encodage chg, rev").Select
Range("A1:E91").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>"
Selection.Copy

Sheets("charges et revenus définitif").Select
Range("A1").Select
ActiveSheet.Paste
Columns("A:A").ColumnWidth = 44.71
Columns("C:C").ColumnWidth = 14.71
Columns("E:E").ColumnWidth = 14.71
Range("B:B,D:D").Select
Range("D1").Activate
Selection.EntireColumn.Hidden = True
Sheets("encodage chg, rev").Select
Application.CutCopyMode = False
Selection.AutoFilter
Call Protege

Sheets("encodage chg, rev").Visible = False
Sheets("charges et revenus définitif").Select
End Sub

Configuration: Windows Vista Internet Explorer 7.0