ZOOM par macro inopérant

Bonjour,
La procédure suivante, en événement workbook open, réalise bel et bien le
zoom souhaité mais sur la feuille active seulement. Pas sur toutes les
feuilles du classeur.

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
ws.Unprotect Password:="protection"
With Range("A1:M10").Activate
ActiveWindow.Zoom = True
End With
ws.EnableSelection = xlUnlockedCells
ws.Protect Password:="protection", DrawingObjects:=True,
UserInterfaceOnly:=True, Contents:=True, Scenarios:=True
Next ws
End Sub

Quelqu'un voit ce qui peut clocher ???
Merci de vos lumières éventuelles.

bonjour Stéphan,

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
ws.Unprotect Password:="protection"
ws.Activate <------------------------------
Range("A1:M10").Activate
ws.EnableSelection = xlUnlockedCells
ActiveWindow.Zoom = True
ws.Protect Password:="protection", DrawingObjects:=True, UserInterfaceOnly:=True, Contents:=True, Scenarios:=True
Next ws
End Sub


isabelle

Merci Isabelle !

En plein dans le mille. As usual.....

L'estrie sera sous la neige d'ici quelques heures.....