ocultar columnas

Por ejemplo, para restringir el área de edición a las columnas A:F de Hoja1 y ocultar las demás:

Worksheets("Hoja1").ScrollArea = "A:E"
Worksheets("Hoja1").Columns("F:IV").Hidden = True

y para establecer el zoom al 75%:

Worksheets("Hoja1").Activate
ActiveWindow.Zoom = 75

Un saludo.


Fernando Arroyo
MS MVP - Excel

"kaiser" escribió en el mensaje news:02aa01c3602b$716dfe40$

Saludos, utilizo solamente 5 columnas para trabajar, hay
alguna manera de ocultar las demas columnas para que los
que vana utilizar las hojas no se puedan desplazar mas de
las columnas que tienen. Se podria configurar desde codigo
(macro) esta opcion. Se podria desde codigo establecerle
un zoom de 75% a las hojas de un libro. Gracias de
antemano.