Foro Excel

Los formularios tienen la opción de cerrar con la conocida X, o cambiando en las propí¬edades la opción showmodal, que solo nos deje trabajar en él o no, existe alguna propiedad, o macro que me permita tener también la opción de windows de minimizar?

DE IGUAL MANERA SI ALGUIEN CONOCE COMO QUITAR EL BOTON "X" QUE SIEMPRE APARECE EN LA PARTE SUPERIOR DERECHA DE LOS FORMULARIOS.


GRACIAS

Estimado:
Por lo general, para lo que quieres se utiliza el evento QueryClose del userform (poniendo en CloseMode en False,,,,o algo asi) pero por supuesto que se le puede quitar la X de cerrar, para ello inserta un modulo y pega el siguiente codigo:

'Find the Dialog's Window
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

'Get the current window style
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

'Set the new window style
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Const WS_SYSMENU = &H80000
Const GWL_STYLE = (-16)

'Routine to hide the close button on a userform or dialogsheet
' oDialog is either the Userform or Dialog object

Sub HideCloseButton(oDialog As Object)

Dim hWnd As Long, lStyle As Long

'Were we given a userform or a dialog sheet
If TypeName(oDialog) = "DialogSheet" Then

'We had a dialog sheet. Note that pressing Escape still closes the dialog

Select Case Int(Val(Application.Version))
Case 5 'Doesn't work in Excel 5 - we only have 32-bit DLL calls here
Case 7 'Excel 95
hWnd = FindWindow("bosa_sdm_XL", oDialog.DialogFrame.Caption) 'DialogSheet
Case 8 'Excel 97
hWnd = FindWindow("bosa_sdm_XL8", oDialog.DialogFrame.Caption) 'DialogSheet
Case 9 'Excel 2000
hWnd = FindWindow("bosa_sdm_XL9", oDialog.DialogFrame.Caption) 'DialogSheet
End Select
Else
'We had a userform
Select Case Int(Val(Application.Version))
Case 8 'Excel 97
hWnd = FindWindow("ThunderXFrame", oDialog.Caption) 'UserForm
Case 9 'Excel 2000
hWnd = FindWindow("ThunderDFrame", oDialog.Caption) 'UserForm
End Select
End If

'Get the current window style
lStyle = GetWindowLong(hWnd, GWL_STYLE)

'Turn off the System Menu bit
SetWindowLong hWnd, GWL_STYLE, lStyle And Not WS_SYSMENU

End Sub

En el evento initialize de tu form, coloca esto:
HideCloseButton Me

Salu2

Se me olvido si tu version de excel es superior o inferior a las que define esta rutina (Lineas del Select Case) no funcionara.....
Espero que alguien se atreva a resolverlo añadiendo un Case 10

IJOLE, OJALA ALGUIEN LO RESUELVA YA QUE TENGO OFFICE 2003 Y NO ME FUNCIONO, BUENO NI MODO, SEGUIREMOS EN LA BUSQUEDA.

GRACIAS

y si le quitamos toda la barra donde esta la X ?

espero sirva de algo

salu2

Simplemente....EXCELente ST..sos un maestro..

Saludos
Ferchogz

Graxpor el aporte

Excelente los aportes de Chicharrero y ST, respecto de la no muy populat (X), pero mi inquietud se dirigí­a a la opción de minimizar, como la alternativa de una ventana de windows (-), para un formulario.

Aqui mi aporte espero te venga bien.

Un saludo a todos.

Lolo excelente tu aporte, realmente me sorprendió.

Gracias

Ya que estamos en el tema de minimizar, que me sugeririan los expertos para minimizar un libro al abrir un formulario, o sea que la misma quede minimizada en la barra de tareas de windows, mientras el formulario quede visible para la carga de datos.

Jom:

creo que nos perdimos un poco en el tema de tu interes,afortunadamente siempre hay alguien que atiende de manera directa las inquietudes,en este caso "Lolo_cam".

ya teniendo lo principal lo que falta es relativamente facil pues se trata de minimizar el archivo cuando este se abra

Application.WindowState = xlMinimized

checa el adjunto que trae un aporte extra

salu2

ST gracias por tu ayuda, realmente no dejan de sorprenderme con sus aportes

BUENISIMO, NO CABE DUDA AQUI SOLO LO MEJOR DE LO MEJOR.

MUCHAS GRACIAS.