Desabilitar el botn cerrar y barra de titulos

[skylug]

HOLA, en un aplicacion que desarrolle, no he podido deshabilitar la barra de titulo, esto con el objetivo que el usuario no cierre con el boton x, sino con un boton que esta destinado para eso.


tambien me gustaria colocar mi nombre en la barra de titulo de excel , la idea es simular un programa que no se sepa que sea de excel.

tambien un opcion para regresar o poder modificar

alguien sabe como??

skylug

[Pablus00]

Hola SkyLug, consulta los FAQ`s de Ofimatica, ahi tenes la solucion a tu consulta: http://www.forosdelweb.com/f90/faq-s-ofimatica-518966/

de la siguiente manera le pones nombre a aplicacion:
Application.Caption = " tu nombre"

o sino otra variante es explorar la opcion de pantalla completa que te elimina el marco de excel. Mira el link que te pase que te da varias opciones para eliminar menues y volver a ponerlos, saludos

[skylug]

gracias amigo

[skylug]

saludos pablusoo, este codigo me sirve mucho, aunque ya lo habia hecho tengo un problema

If CloseMode = 0 Then
MENSAJE = MsgBox("HACER CLIC EN SALIR")
Cancel = 1
End If

es que tampoco me deja salir con el boton que hice para salir, me muestra tambien el mensaje es decir no me deja salir por ningun lado.

el codigo que tengo asignado al boton salir es:

Private Sub CommandButton32_Click()
salir
End Sub

[Pablus00]

Hola Skylug, aca:
Private Sub CommandButton32_Click()
salir
End Sub

no se que sera "salir" en tu codigo (si es una funcion, habra que ver que tiene adentro)

reemplaza salir x : Application.Quit
y si queres salvarlo antes agregale esta linea: ActiveWorkbook.Save

saludos

[skylug]

ok gracias, el boton "salir"es para cerrar el archivo o programa y salir a windows, y el codigo que tengo para esa funcio es el que te mostre en el mensaje anterior. tengo que aclararte que no tengo formularios solo la hoja de excel con botones de comando.

If CloseMode = 0 Then
MENSAJE = MsgBox("HACER CLIC EN SALIR")
Cancel = 1
End If

este codigo donde lo ubico ???? en un modulo? en thiswork? pues me sale error donde lo ponga

[Pablus00]

Hola Skylug, lo que pasa es que estas mezclando los codigos, llamando a la funcion que impide salir desde tu boton, entonces al clickear obviamente te mostrara que no puede salir.

lo tenes que poner en thisworkbook pero dentro del evento BeforeClose: (al intentar cerrar o sea before close, activa la proteccion)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If CloseMode = 0 Then
MENSAJE = MsgBox("HACER CLIC EN SALIR")
Cancel = 1
End If
End Sub

y para tu boton:

Private Sub CommandButton32_Click()
ActiveWorkbook.Save 'si queres salvarlo antes de cerrar sino borra la linea
Application.Quit
End Sub

Saludos

[skylug]

DISCULPA PABLUS00 pero tampoco me deja salir, lo coloque tal cual como me lo muestras en el mensaje anterior pero al pulsar el boton de comando salir , me vuelve salir el mensaje "haga clic en salir"

tuve que quitar el codigo por que no me dejaba salir por ningun lado. menos mal que no hay cerrado el editor de vb, por que sino me hubiera tocado reiniciar el pc.

[Pablus00]

Hola Skylug, me olvide de cambiar la variable CloseMode para que te deje cerrarlo (tiene que pasar a valer distinto de cero), agregale
a tu boton la linea en negrita:

Private Sub CommandButton32_Click()
CloseMode = 1
ActiveWorkbook.Save 'si queres salvarlo antes de cerrar sino borra la linea
Application.Quit
End Sub

y agrega arriba de todo en tu modulo:

Public CloseMode As Variant

recien lo probe y me funciona ;) saludos

[skylug]

PERDON, pablus00 "Public CloseMode As Variant " este codigo va en thisworkbook? en cual modulo te refierres, en cualquiera? pues tengo 4 modulos

pues probe todo como me lo envias y sigue igual. no me deja salir por el boton que hice para tal fin.
gracias

a disculpa tu sabes como filtrar una sola columna de varias, en excel 2007, en xp lo hacia pero aca no se donde buscar en filtros avanzados no se puede.

tengo una tabla de datos y solo necesito filtrar una sola columna

[skylug]

LISTO PAblus gracias, ya lo hice. probe el cod Public CloseMode As Variant en uno de los modulos y funciono perfectamente,
ahora tengo es el inconveniente del filtro de una sola COL. y de la macro de seguridad

[JoaoM]

Si tienes un boton en alguna hoja donde abres el formulario y, el formulario tiene un boton para cerrarlo, ESTA es la rutina.

Private Sub UserForm_QueryClose(Cerrar As Integer, ModoCerrar As Integer)
'Evita que el usuario cierre con el cuadro de diálogo Cerrar de la barra de título (crucecita: X) del formulario activo
If ModoCerrar = vbFormControlMenu Then
Cerrar = True
MsgBox " Este boton de cierre esta desactivado," & vbCrLf & vbCrLf & " use el boton adecuado 'Salir'", vbInformation, "BOTON ANULADO"
End If
End Sub

En la ventana de codigo del formulario, introduces esa rutina y listo

Te diré que con esto, no desactivas la barra y si la X de cierre

[Pablus00]

Iniciado por skylug

ahora tengo es el inconveniente del filtro de una sola COL. y de la macro de seguridad

Cual seria el inconveniente?

[skylug]

BUENO GRACIAS POR la asesoria y disculpas las molestias, el archivo en el que estoy trabajando NO es con formularios, es una tabla de datos simple en una hoja que combina correspondencia con unos documentos de en word.

trabajo si con botones de comandos activex configurados con vb, como por eje, salir, guardar, imprimir, ir a consulta, ir a base de datos, es una tabla de datos, esto con el fin de darle una apariencia de programa, le bloque las celdas, quito las fhojas, los encabezados de columnas, las barras de desplazamientos y las de menu. ya hora la titulo bloquendo el cerrar(x).

Lo de lo filtros no tiene nada qe ver con codigos, es que no quiero filtrar todas las columnas, sino 1 solamente. en offcice 2003 lo sabia hacer pero en el 2007 no encuentro la opcion.

y el otro inconveniente es que hice una macro para crear una copia de seguridad para el archivo en el cual estoy trabajando, esta macro la hice con los botones de autoformas, la macro genera un archivo en la misma carpeta donde esta guardado el original, pero el inconveniente es que cuando hago clic en el boton para hacer el backup, esta accion la hace perfectamanete , pero me desbloquea la barras de herramientas que tengo bloqueda en el programa.

es que no quiero que el usuario este manupulando los menus, aunque tengo todo validado y protegido , siempre hay algun accidente que se puede presentar.

pregunta? el boton restaurar tambien le puedo asignar el codigo que me diste para cerrar.

pero con una opcion de yo poder aceder a los menus y asi poder hacer algunas modificaciones

[skylug]

ES POSIBLe utilizando el mismo codigo para anular el cerrar de la barra de titulo, se pueda tambie anular el de restaurar, el boton de enmedio????

lo de los filtros ya lo puede hacer

[JoaoM]

Iniciado por skylug

ES POSIBLe utilizando el mismo codigo para anular el cerrar de la barra de titulo, se pueda tambie anular el de restaurar, el boton de enmedio????

lo de los filtros ya lo puede hacer

Parece que lo que quieres es eliminar todo, pues elimina la aplicacion y listo

[skylug]

y como se elimina, con la cinta ribbon?? pero quedo bloqueado