Esconder la hoja antes de guardar

Hola Fabian
Si lo que quieres es que se ejecute la macro antes de guardar la tienes que
introducir de la siguiente forma:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Worksheets("tu hoja").Visible=xlVeryHidden

End Sub

Asi, antes de guardar te ocultara la hoja, con xlVeryHidden lo que consigues
es que solo se pueda volver a mostrar desde VBA (o eso creo). Fijate que si
la ocultas asi no aparece en el cuadro mostrar.

un saludo,
Adolfo

Respecto a las direrencias, hay varias formas de ocultar una hoja,
"Fabian" escribió en el mensaje
news:

Alguien me puede explicar como funciona esta macro, la encontré y servia a
mis propósitos, esconder antes de guardar, pero no lo hace, no se como
usarla!
O sea, si la ejecuto, hace lo que tiene que hacer, pero si guardo el libro
no pasa nada, tendria que ser asi o me equivoco.

Private Sub Workbook_BeforeSave()
Worksheets("tu hoja").Visible=xlVeryHidden
End Sub

Worksheets("tu hoja").Visible=False ¿Cuál es la diferencia?

Y para que esconda todas las hojas, cual seria el codigo?


Fabian Martin

hola, Fabian !

... como funciona esta macro ... esconder antes de guardar, pero no lo hace, no se como usarla!
... si la ejecuto, hace lo que tiene que hacer, pero si guardo el libro no pasa nada [...]
Private Sub Workbook_BeforeSave()
Worksheets("tu hoja").Visible=xlVeryHidden
End Sub

=> ya Adolfo te 'apunta' los parametros 'perdidos' en el procedimiento '_BeforeSave' :)
y... =>debe estar<= en el modulo de codigo del libro [ThisWorkbook]
[probablemente... lo copiaste a un modulo de codigo 'normal' ???]

Worksheets("tu hoja").Visible=False ¿Cuál es la diferencia?

=> el 'veryhidden' =>impide que 'se vea'<= con el comando formato / hoja / mostrar...ocultar ;)

Y para que esconda todas las hojas, cual seria el codigo?

=> NO se 'pueden' ocultar =>todas<= las hojas de un libro [alguna debe quedar 'visible'] :(
lo que puedes hacer es... ocultar =>la ventana<= del libro

saludos,
hector.

Ya está, muchas gracias, pero te comento que lo mas importante es ponerlo en
This Workbook, no dentro de un modulo. (Muy bien lo señalaste). Y los
parametros perdidos los vi en la ayuda de vb pero como en el ejemplo de la
lista no estaban no quise ser mas papista que el papa. Lo cierto es que sin
tu ayuda ubiera sido imposible, hasta la proxima consulta. Gracias otra
vez.
Aprovecho para pedirles a todos los que consultan, que en asunto pongan
claramente la consulta y no palabras genericas como:" Tengo un problema."
"Urgente" "Auxilio". Yo soy de los que consulta! y antes de hacerlo utilizo
el buscador, ya me ahorre muchas de esta forma. Gracias.

Fabian Martin
"Héctor Miguel" escribió en el mensaje
news:

hola, Fabian !

> ... como funciona esta macro ... esconder antes de guardar, pero no lo

hace, no se como usarla!

> ... si la ejecuto, hace lo que tiene que hacer, pero si guardo el libro

no pasa nada [...]

> Private Sub Workbook_BeforeSave()
> Worksheets("tu hoja").Visible=xlVeryHidden
> End Sub

=> ya Adolfo te 'apunta' los parametros 'perdidos' en el procedimiento

'_BeforeSave' :)

y... =>debe estar<= en el modulo de codigo del libro [ThisWorkbook]
[probablemente... lo copiaste a un modulo de codigo 'normal' ???]

> Worksheets("tu hoja").Visible=False ¿Cuál es la diferencia?

=> el 'veryhidden' =>impide que 'se vea'<= con el comando formato / hoja /

mostrar...ocultar ;)

> Y para que esconda todas las hojas, cual seria el codigo?

=> NO se 'pueden' ocultar =>todas<= las hojas de un libro [alguna debe

quedar 'visible'] :(

lo que puedes hacer es... ocultar =>la ventana<= del libro

saludos,
hector.

hola, Fabian !

Ya esta ... lo mas importante es ponerlo en This Workbook, no dentro de un modulo [...]

=> gracias por el 'feed-back' ;)

... pedirles a todos los que consultan, que en asunto pongan claramente la consulta
... no palabras genericas como:" Tengo un problema." "Urgente" "Auxilio".
... soy de los que consulta! y antes de hacerlo utilizo el buscador, ya me ahorre muchas de esta forma.

=> mas que 'peticion' <= [me parece que] es un 'buen consejo'
[asi queda 'registrado' en los 'buscadores'] ;)
=>al igual que una 'respuesta' de si [alg]una de las propuestas ha funcionado< [para los que 'buscan/buscamos' en los 'buscadores'] :))

saludos,
hector.