ZOOM par macro inopérant

Le
Stéphan DuQuébec
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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #5046671
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

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.



Stéphan DuQuébec
Le #5046641
Merci Isabelle !

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

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



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


isabelle
Le #5046621

Merci Isabelle !

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

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


hé oui, c'est bien, ça va être moin sombre ;-)
isabelle

Publicité
Poster une réponse
Anonyme