cerrar

hola, !

como evita el cierre de una hoja usando "X" y solo usando un "user form"macro

puedes 'ocultar' la [X] para 'ese' libro desde [menu] herramientas / proteger / proteger libro...
-> si marcas la opcion de proteger las ventanas [puedes dejar 'sin proteccion' la estructura]
incluso, no es necesaria una contrase#a :))

otra alternativa es en el evento '_beforeclose' del ThisWorkbook establecer en True el Cancel
-> OJO: tampoco se podria salir de la aplicacion mientras no se pueda 'salir' del libro [p.e.]
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

o puedes 'condicionar' el cancel con alguna opcion 'variable' [p.e.]
-> condicionar a que la celda 'activa' sea la celda 'D15' de la hoja activa...
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = ActiveCell.Address <> "$D$15"
End Sub

o puedes imaginar cualquier otra variante de la variable para permitir la salida de tu libro :))
y considera que podrian encontrarse otras opciones para salir del archivo

por lo de.. "... y solo usando un "user form"macro ..."
como que no me queda claro que es lo que quieres manifestar al respecto -???-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

"Héctor Miguel" escribió:

hola, !

> como evita el cierre de una hoja usando "X" y solo usando un "user form"macro

puedes 'ocultar' la [X] para 'ese' libro desde [menu] herramientas / proteger / proteger libro...
-> si marcas la opcion de proteger las ventanas [puedes dejar 'sin proteccion' la estructura]
incluso, no es necesaria una contrase#a :))

otra alternativa es en el evento '_beforeclose' del ThisWorkbook establecer en True el Cancel
-> OJO: tampoco se podria salir de la aplicacion mientras no se pueda 'salir' del libro [p.e.]
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

o puedes 'condicionar' el cancel con alguna opcion 'variable' [p.e.]
-> condicionar a que la celda 'activa' sea la celda 'D15' de la hoja activa...
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = ActiveCell.Address <> "$D$15"
End Sub

o puedes imaginar cualquier otra variante de la variable para permitir la salida de tu libro :))
y considera que podrian encontrarse otras opciones para salir del archivo

por lo de.. "... y solo usando un "user form"macro ..."
como que no me queda claro que es lo que quieres manifestar al respecto -???-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

tengo un macro que graba la pagina en lugar expecificado cuando cierras y lo que quero es forsar el uso de este

hola, ?

tengo un macro que graba la pagina en lugar expecificado cuando cierras y lo que quero es forsar el uso de este

prueba en el modulo de codigo del libro [ThisWorkbook] con algo +/- como:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
' pon aqui una llamada a la macro que usas habitualmente '
' o repite el proceso de la macro -?- '
End Sub

saludos,
hector.