parcourir les feuilles excel

[sarrsouraa]

bonsoir tout le monde
voici mon pb
mon classeur contient 20 feuilles excel a l'ouverture du fichier j'execute ceci

For Each x In ThisWorkbook.Worksheets
x.UnProtect
x.Cells.ClearContents
x.Protect
Next
mon pb c qu'il me montre a chaque fois la feuille qu'il deprotege du coup des que j'ouvre le fichier je vois toute mes feuilles defiler ya t il un moyen d'empecher ca merciiiiiiiiiiiiiii

 

[pierrejean]

Re : parcourir les feuilles excel

bonjour sarrsouraa

A tester

[COLOR=blue]Application.ScreenUpdating = False[/COLOR]
For Each x In ThisWorkbook.Worksheets
x.UnProtect 
x.Cells.ClearContents
x.Protect 
Next
[COLOR=blue]Application.ScreenUpdating = True[/COLOR]

 

[sarrsouraa]

Re : parcourir les feuilles excel

merciiiiiiiiii pierrejean c la bonne reponse
bonne journee