Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Bloqueo zoom en una hoja

966 views
Skip to first unread message

Lao_España

unread,
Apr 14, 2004, 7:21:26 AM4/14/04
to
Hola al grupo.

Necesito bloquear el zoom en una sola hoja de un libro, alguien puede
decirme que instrucción de VBA he de emplear.

Muchas gracias.


Héctor Miguel

unread,
Apr 14, 2004, 8:35:07 PM4/14/04
to
hola, Lao !

> Necesito bloquear el zoom en una sola hoja de un libro ... que instruccion de VBA he de emplear.

podrias 'impedir' que el usuario haga uso de las herramientas 'zoom' cuando este en 'esa' hoja
[solo si lo intenta por la interfase grafica -'manualmente'-... NO... si lo hace 'por macros'] :((
p.e. el menu ver / zoom tiene una ID:=925 el zoom [combo en barras de herramientas] tiene una ID:=1733

el ejemplo siguiente [+/-] hace lo que solicitas, 'pero'... [por si las dudas] =>REQUIERE excel 2000 o 'superior'<=
saludos,
hector.
_____
1° 'asegurate' de que el zoom 'actual' [de 'esa' hoja] es el 'adecuado'
:::::::::
2° copia las siguientes lineas en el modulo de codigo de 'la hoja'...
Private Sub Worksheet_Activate()
Zoom_OnOff False
End Sub
Private Sub Worksheet_Deactivate()
Zoom_OnOff True
End Sub
::::::::::::
3° copia las siguientes lineas en un modulo de codigo 'normal'...
Option Private Module
Sub Zoom_OnOff(ByVal OnOff As Boolean)
Dim ComandoZom As CommandBarControl
For Each ComandoZoom In CommandBars.FindControls(ID:=925)
ComandoZoom.Enabled = OnOff
Next
For Each ComandoZoom In CommandBars.FindControls(ID:=1733)
ComandoZoom.Enabled = OnOff
Next
End Sub
::::::::::::
4° [finalmente] 'repite' la instruccion de 'la hoja' ['Workshet_Deactivate']
en el evento '_BeforeClose' del libro [ThisWorkbook]
=>de otra manera, PERMANECERAN 'des-habilitdos' para la siguiente sesion<=
[si la 'ultima hoja activa' es la que los 'des-habilita'] =>es solo 'para estar seguros'<= ;)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Zoom_OnOff True
End Sub


Lao_España

unread,
Apr 15, 2004, 2:13:47 AM4/15/04
to
Muchas gracias por tu ayuda Héctor, lo voy ha probar y te comentaré

Un saludo.


"Héctor Miguel" <NOhemio...@PLShotmail.com> escribió en el mensaje
news:%23pAIDGo...@TK2MSFTNGP11.phx.gbl...

Lao_España

unread,
Apr 15, 2004, 10:33:11 AM4/15/04
to
Hola Héctor otra vez.

Lo he probado y funciona perfectamente, lo único que ocurre es que si es la
hoja activa al abrir este libro deja la opción de modificar. Lo que se me
ocurre es poner en la hoja de ThisWorkBook que al abrir se vaya a otra
distinta de esa.

Un saludo. y muchas gracias.

"Héctor Miguel" <NOhemio...@PLShotmail.com> escribió en el mensaje
news:%23pAIDGo...@TK2MSFTNGP11.phx.gbl...

0 new messages