Bloquear la opción de hacer zoom...

02/06/2005 - 23:22 por Ledorian | Informe spam
Hola!
Necesito impedir que un usuario descuidado (o malintencionado) haga zoom en
una planilla. Las barras de comando están deshabilitadas, pero aún así puede
apretar CTRL y mover la rueda del mouse...
¿es posible dejar fijo el zoom con algún comando?
Gracias!
 

Leer las respuestas

#1 Héctor Miguel
03/06/2005 - 23:53 | Informe spam
hola, Ledorian !

Necesito impedir que un usuario descuidado (o malintencionado) haga zoom en una planilla.
Las barras de comando estan deshabilitadas, pero aun asi puede apretar CTRL y mover la rueda del mouse...
¿es posible dejar fijo el zoom con algun comando?



-> si [y supongo que asi es] las macros estan habilitadas/permitidas/... [creo que] lo 'mejor/mas' que puedes hacer
es 'comprobar' el zoom y [de ser necesario] restablecerlo al que necesitas [p.e. 100]
=> toma nota de que 'si se llega' a ejecutar el codigo... PERDERAS la pila de niveles del deshacer, undo, ctrl+z < prueba a copiar las siguientes lineas...
en el modulo de codigo del libro [ThisWorkbook] ==Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveWindow.Zoom <> 100 Then ActiveWindow.Zoom = 100
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveWindow.Zoom <> 100 Then ActiveWindow.Zoom = 100
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveWindow.Zoom <> 100 Then ActiveWindow.Zoom = 100
End Sub

saludos,
hector.

Preguntas similares