Formulario no cierra con "X" pero...

hola, Darío !

__ 1 __

Tengo un formulario "Ventas" que no se cierra con "X", sino con un boton "cerrar"...
... el formulario se activa... al abrir el libro y al cerrar el formulario, se cierra tambien el libro
... de esta forma el usuario tiene menos oportunidad de distraerse con la informacion de las hojas.
Lo unico malo es que al abrir el libro si no se habilitan las macros el usuario tiene acceso a la informacion del libro

__ 2 __

y si se habilitaran las macros... al abrir el libro, entonces como podria... yo tener acceso a la informacion del libro.

__ 3 __

Todas las hojas estan protegidas y se protegen y desprotegen segun las macros.
Si oculto las hojas, luego pueden mostrarse libremente por el usuario.

1) lo usual (y mas recomendado) en estos casos es tener una "primera hoja" como presentacion (en caso de "no macros")
que se oculte en el evento '_open' de tu libro y quede a la vista la hoja que consideres apropiada (ademas)...
es obligado bloquear la visualizacion de tu proyecto de macros (vba) y asignarle una clave (de esta forma)...

2) puedes mantener pulsada la tecla {shift/mayusc} al momento de aprobar el uso de macros y hasta que se abra tu libro
este paso omite la ejecucion de macros y eventos de apertura, con lo que el formulario no debera aparecer
y ya que tu conoces la clave de tu proyecto de macros... ;)

3) para que las hojas ocultas queden "fuera del alcance" de los usuarios, procura ocultarlas (por codigo)
-> estableciendo su propiedad "Visible" como xlSheetVeryHidden (no aparecen en los menus para mostrar hoajs ocultas)
(obviamente) no es infalible... (pero se espera que pueda desesperanzar a usuarios "comunes" y quiza medio-avanzados)...

OJO: asegurate tambien de que al guardar el libro ocultas todas las hojas y solo queda visible "la de pantalla"
(para el siguiente open) y de que el usuario no pueda hacer acciones de guardar o guardar como (por si las dudas)

saludos,
hector.

Hola Hector Miguel!
Mil gracias por tu ayuda.

1) lo usual (y mas recomendado) en estos casos es tener una "primera hoja" como presentacion (en caso de "no macros")
que se oculte en el evento '_open' de tu libro y quede a la vista la hoja que consideres apropiada (ademas)...
es obligado bloquear la visualizacion de tu proyecto de macros (vba) y asignarle una clave (de esta forma)...

Podrías decirme, por favor, como haría para/que significa que la hoja de
presentación se oculte en el evento "open"?

OJO: asegurate tambien de que al guardar el libro ocultas todas las hojas y solo queda visible "la de pantalla"
(para el siguiente open) y de que el usuario no pueda hacer acciones de guardar o guardar como (por si las dudas)

Podrías decirme, por favor, como evitar que el usuario pueda hacer estas
acciones de guardar o guardar como, y si se pueden evitar otras acciones del
menú herramientas-opciones como listas personalizadas, ocultar y mostrar
barras de desplazamiento horizontal y vertical, encabezados de filas y
columnas?

Saludos desde Venezuela
Darío

Podrías decirme, por favor, como evitar que el usuario pueda hacer estas
acciones de guardar o guardar como, y si se pueden evitar  otras acciones del
menú herramientas-opciones como listas personalizadas, ocultar y mostrar
barras de desplazamiento horizontal y vertical, encabezados de filas y
columnas?

hola Darío

mientras vuelve Hector, que por su 'infrecuente infrecuencia' me da la
impresion debe de andar liadillo, mira a ver si te vale algo de esto,
que ademas en gran medida es obra suya,

Y al menos te ira sonando cuando el vuelva=>

http://tinyurl.com/3asmtn

http://tinyurl.com/2ugcbc

espero te ayude

un saludo
Ivan

Gracias por tu ayuda Ivan

hola Darío
mientras vuelve Hector, que por su 'infrecuente infrecuencia' me da la impresion debe de andar liadillo, mira a ver si te vale algo de esto,
que ademas en gran medida es obra suya,
Y al menos te ira sonando cuando el vuelva=>
http://tinyurl.com/3asmtn
http://tinyurl.com/2ugcbc
espero te ayude

De las alternativas presentadas, la que mejor se adapta a mi ignorancia es
esta:

Complementariamente (y para NO "perjudicar" la interacción con el usuario)
puedes usar los eventos "WindowActivate" y
"WindowDeactivate" del objeto "ThisWorkbook" para que, los comandos queden
inhabilitados "solamente" cuando la ventana
"activa" sea "el libro".

Private Sub Workbook_WindowActivate(ByVal Wn As Window)

DesHabilitarComandos

End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)

ReHabilitarComandos

End Sub

Yo copié el código y lo pegué en la hoja de código que se abre al hacer
click en ThisWorkbook.
Pero al abrir el libro me dá este:

"Error de compilación, no seha definido sub o function"

y sobre salta esta parte del código:

Private Sub Workbook_WindowActivate(ByVal Wn As Window)

DesHabilitarComandos

Supongo que estoy haciendo algo mal. Podrías decirme, por favor, que estoy
haciendo mal?

Saludos
Darío

hola Darío

mientras vuelve Hector, que por su 'infrecuente infrecuencia' me da la
impresion debe de andar liadillo, mira a ver si te vale algo de esto,
que ademas en gran medida es obra suya,

Y al menos te ira sonando cuando el vuelva=>

http://tinyurl.com/3asmtn

http://tinyurl.com/2ugcbc

También me gustó los códigos para evitar copias no autorizadas:

'Muestra el serial del disco duro para escribirlo en el código en ThisWorkBook
Sub ShowSerial()
Dim fs, d
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName("c:\")))
MsgBox d.serialnumber
End Sub


'En ThisWorkBook Cierra el libro si el serial no coincide
Private Sub Workbook_Open()
Dim fs, d
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName("c:\")))
If d.serialnumber <> -455497706 Then:
End
Application.Quit
End Sub

Pero siempre se cierra mi libro. No sé si tiene que ver el signo (-) delante
del serial.
Ya intenté sin escribir el (-) y usando el (-) del panel numérico y del
alfabético del teclado.

Que estoy haciendo mal?

Saludos

Darío