ça me fait vibrer l’affichage sur les feuilles ?

[itasoft]

Bonjour,
J’ai fais une boucle bestiale pour mettre la protection sur toutes les feuilles du classeur,
Mais quand j’exécute cette macro ça me fait vibrer l’affichage sur les feuilles, il faudrait par exemple figer l’affichage pendant l’exécution de la macro, si vous voyez ce que je veux dire ?

Sub Protection_Periodique()
Dim oSheet As Worksheet

For Each oSheet In ActiveWorkbook.Worksheets
oSheet.Protect
Next oSheet

End Sub

 

[Dull]

Re : ça me fait vibrer l’affichage sur les feuilles ?

Salut itasoft, le Forum

Essaye avec Application.ScreenUpDating = False en début de Macro et remet le à True en Fin

Sub Protection_Periodique()
Dim oSheet As Worksheet
Application.ScreenUpdating = False
For Each oSheet In ActiveWorkbook.Worksheets
oSheet.Protect
Next oSheet
Application.ScreenUpdating = True
End Sub

Bonne Journée

 

[itasoft]

Re : ça me fait vibrer l’affichage sur les feuilles ?

re,
ok ça marche bien avec ça, merci,
j'aurais une autre question, je voudrais détecter que l'utilisateur à fait une sélection d'une zone de cellules.
c'est pour savoir si je dois faire un traitement sur toute la feuille ou sur la sélection.
BB