Impresión Formulario

hola, Mauricio !

1. Cree un programa en excel el cual al ejecutarlo muestra unicamente un formulario en visual
y mediante una instruccion inhabilite todo el excel para que los usuarios no puedan acceder a nada ni siquiera a las hojas.
El aplicativo no tiene clave de bloqueo de proyecto.
Como puedo hacer para poder acceder al codigo y a las hojas en el evento que desee hacer modificaciones?
ya que el formulario tiene unicamente un boton para guardar y salir del aplcativo?

2 En este mismo programa los usuarios solicitan una informacion la cual sale desplegada en dicho formulario.
Como puedo hacer la inpresion del resultado de la busquedad ya que el registro no lo guardo en ninguna hoja?

1) op1: incluyendo codigo que te permita la interrupcion de los unicos eventos (entrar/grabar/salir) que hace tu programa ?
op2: omitiendo la ejecution de eventos de apertura ? -> al abrir tu archivo y habilitar sus macros, manten pulsada la tecla {shift}
op3: provocando algun error de interrupcion en el momento que quieras detener el codigo ? -> pulsa {ctrl}+{pausa/break}

2) podrias hacer un 'copiar/pegar' del portapapeles (formato: mapa de bits)
sobre una hoja de un libro nuevo (creado al vuelo)
al hacer click en un boton de comando en el formulario (p.e. CommandButton1)

si cualquier duda... comentas?
saludos,
hector.

copia las siguientes lineas [ligeramente adaptado de un codigo de Orlando Magalhães Filho]
en el modulo de codigo del formulario ==Private Declare Sub ImprPant Lib "User32" Alias "keybd_event" ( _
ByVal Tecla As Byte, _
ByVal Monitor As Byte, _
ByVal Estado As Long, _
ByVal InfoE As Long)
Private Sub CommandButton1_Click()
DoEvents
ImprPant 164, 0, 1, 0
ImprPant 44, 0, 1, 0
ImprPant 44, 0, 1 + 2, 0
ImprPant 164, 0, 1 + 2, 0
DoEvents
Workbooks.Add
ActiveSheet.PasteSpecial Format:="mapa de bits"
ActiveWindow.PrintOut
ActiveWorkbook.Close False
End Sub

-> nota: si la aplicacion es en ingles... deberas cambiar 'mapa de bits' por 'bitmap' <= OJO

hola, Mauricio !

1) op1: incluyendo codigo que te permita la interrupcion de los unicos
eventos (entrar/grabar/salir) que hace tu programa ?
op2: omitiendo la ejecution de eventos de apertura ? -> al abrir tu
archivo y habilitar sus macros, manten pulsada la tecla {shift}
op3: provocando algun error de interrupcion en el momento que quieras
detener el codigo ? -> pulsa {ctrl}+{pausa/break}

2) podrias hacer un 'copiar/pegar' del portapapeles (formato: mapa de bits)
sobre una hoja de un libro nuevo (creado al vuelo)
al hacer click en un boton de comando en el formulario (p.e.
CommandButton1)

si cualquier duda... comentas?
saludos,
hector.

copia las siguientes lineas [ligeramente adaptado de un codigo de Orlando
Magalhães Filho]
en el modulo de codigo del formulario ==Private Declare Sub ImprPant Lib "User32" Alias "keybd_event" ( _
ByVal Tecla As Byte, _
ByVal Monitor As Byte, _
ByVal Estado As Long, _
ByVal InfoE As Long)
Private Sub CommandButton1_Click()
DoEvents
ImprPant 164, 0, 1, 0
ImprPant 44, 0, 1, 0
ImprPant 44, 0, 1 + 2, 0
ImprPant 164, 0, 1 + 2, 0
DoEvents
Workbooks.Add
ActiveSheet.PasteSpecial Format:="mapa de bits"
ActiveWindow.PrintOut
ActiveWorkbook.Close False
End Sub

-> nota: si la aplicacion es en ingles... deberas cambiar 'mapa de bits' por
'bitmap' <= OJO