Eliminar menú contextual en formulario

[Juan Suarez]

Estimados buenas tardes,

Estoy teniendo problemas con el menú contextual ingresando datos en formulario ,  eventualmente se abre y esto ocasiona problemas

Hay alguna manera de desactivarlo en el formulario para que no aparezca?

Adjunto imagen para que lo ubiquen

Saludos 

Gracias

 

[Antoni]

Si no subes tu archivo va a ser difícil ayudarte.

[Juan Suarez]

Ajunto archivo

Menu Contextual.xlsb

[Antoni]

Me he quedado a cuadros, no sabía que existía este menú, así como tampoco sabía que un formulario se puede cerrar con Alt+F4.

Buceo por ahí a ver si hay alguien que sepa algo del tema.

Te digo algo en cuanto sepa , o no, algo del tema.

En cualquier caso, ¿Porqué quieres eliminar ese menú, en que te molesta?

[Juan Suarez]

Esas cosas que nos pasan con vba y excel y son difíciles de controlar, es un entorno complicado.

Tengo un formulario para ingreso de datos donde se filtra información en combobox previamente cargado, para abrir la lista presionamos ALT + Flecha abajo.

Aquí es donde por error en ocasiones no se mantiene presionado ALT y aparece el menú.

EL problema no es el menú..., cuando este se abre tenemos habito o yo por lo menos, de recurrir a la teca ESC.

Aquí es donde por alguna razón que Microsoft sabrá, en ocasiones y no siempre se cae y aparece un mensaje que detiene  el código, sin nro de error y no lo puedo controlar solo con resume next

Lo que hice fue anular la tecla ESC , Application.OnKey "{ESC}", ""

Pero bueno me pareció interesante saber si podemos anular este menú para tener más control

Abrazo

 

[Antoni]

No he conseguido encontrar nada al respecto, ni en Google, ni el ChatGPT.

Tampoco me han dado ninguna respuesta, de momento, en otro foro que he consultado.

No obstante lo he conseguido de forma indirecta, consiste en eliminar el título del formulario, no se si te vale esta solución.

Ya comentarás.

 

Prueba formulario.xlsm

[Antoni]

hace 2 horas, Antoni dijo:

No he conseguido encontrar nada al respecto, ni en Google, ni el ChatGPT.

Tampoco me han dado ninguna respuesta, de momento, en otro foro que he consultado.

No obstante lo he conseguido de forma indirecta, consiste en eliminar el título del formulario, no se si te vale esta solución.

Ya comentarás.

 

Prueba formulario.xlsm 16.54 kB · 0 descargas

Benito Bartolomé desde el foro TodoExcel.com me contesta con:

Private Declare PtrSafe Function FindWindowA Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long


Sub DisableTitleBarContextMenu(UserForm As Object)
    Dim hwnd As Long
    Const GWL_STYLE As Long = (-16)
    Const WS_SYSMENU As Long = &H80000

    ' Obtiene el identificador de la ventana del formulario.
    hwnd = FindWindowA(vbNullString, UserForm.Caption)

    ' Deshabilita el estilo WS_SYSMENU para evitar el menú contextual.
    If hwnd <> 0 Then
        SetWindowLong hwnd, GWL_STYLE, GetWindowLong(hwnd, GWL_STYLE) And (Not WS_SYSMENU)
    End If
End Sub

Private Sub UserForm_Initialize()
    'Deshabilitar el menú contextual
    DisableTitleBarContextMenu Me
End Sub

 

[JSDJSD]

Hola a ambos, prueba y comentaMenu Contextual.xlsb

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ' Si se presiona la tecla Alt
    If KeyCode = vbKeyMenu Then
        KeyCode = 0 ' Anula la tecla Alt
    End If
End Sub

Este código detecta cuando se presiona la tecla "Alt" y anula su funcionalidad dentro del formulario, evitando que active el menú contextual al presionar "Alt + Flecha Abajo". 

Es importante tener en cuenta que esta solución desactivará completamente la tecla "Alt" mientras el formulario esté activo, por lo que si necesitas utilizar "Alt" para otros fines dentro del formulario, esta solución puede no ser adecuada.

[Juan Suarez]

Gracias a todos, pruebo y les comento

Saludos

 

[Antoni]

Hace 1 hora, JSDJSD dijo:

Hola a ambos, prueba y comentaMenu Contextual.xlsb

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ' Si se presiona la tecla Alt
    If KeyCode = vbKeyMenu Then
        KeyCode = 0 ' Anula la tecla Alt
    End If
End Sub

Este código detecta cuando se presiona la tecla "Alt" y anula su funcionalidad dentro del formulario, evitando que active el menú contextual al presionar "Alt + Flecha Abajo". 

Es importante tener en cuenta que esta solución desactivará completamente la tecla "Alt" mientras el formulario esté activo, por lo que si necesitas utilizar "Alt" para otros fines dentro del formulario, esta solución puede no ser adecuada.

El problema es que el consultante utiliza la tecla Alt.

Cita

Tengo un formulario para ingreso de datos donde se filtra información en combobox previamente cargado, para abrir la lista presionamos ALT + Flecha abajo.

 

[JSDJSD]

😩 eso me pasa por no leer, siendo así, me quedo estancado donde tu

[Juan Suarez]

hace 13 horas, Antoni dijo:

No he conseguido encontrar nada al respecto, ni en Google, ni el ChatGPT.

Tampoco me han dado ninguna respuesta, de momento, en otro foro que he consultado.

No obstante lo he conseguido de forma indirecta, consiste en eliminar el título del formulario, no se si te vale esta solución.

Ya comentarás.

 

Prueba formulario.xlsm 16.54 kB · 1 descarga

Excelente esto,  Interesante!!

[Juan Suarez]

En 24/9/2023 at 5:37 , Antoni dijo:

No he conseguido encontrar nada al respecto, ni en Google, ni el ChatGPT.

Tampoco me han dado ninguna respuesta, de momento, en otro foro que he consultado.

No obstante lo he conseguido de forma indirecta, consiste en eliminar el título del formulario, no se si te vale esta solución.

Ya comentarás.

 

Prueba formulario.xlsm 16.54 kB · 2 descargas

Ya que estamos y porque quedan interesantes los formularios y cargan mas rápido, lo tienes para 64 bits?

[Antoni]

Prueba así:

'----------------------------------------- APIS ELIMINAR BARRA TITULO FORMULARIO
Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hwnd As Long) As Long

Private Sub UserForm_Initialize()

'ELIMINAR BARRA TITULO FORMULARIO
Dim lStyle As Long, hMenu As Long, mhWndForm As Long
mhWndForm = FindWindow("ThunderDFrame", Me.Caption)
lStyle = GetWindowLong(mhWndForm, -16)
lStyle = lStyle And Not &HC00000
SetWindowLong mhWndForm, -16, lStyle
DrawMenuBar mhWndForm
'----------------------------------------------------

End Sub

 

[Juan Suarez]

hace 12 horas, Antoni dijo:

Prueba así:

'----------------------------------------- APIS ELIMINAR BARRA TITULO FORMULARIO
Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hwnd As Long) As Long

Private Sub UserForm_Initialize()

'ELIMINAR BARRA TITULO FORMULARIO
Dim lStyle As Long, hMenu As Long, mhWndForm As Long
mhWndForm = FindWindow("ThunderDFrame", Me.Caption)
lStyle = GetWindowLong(mhWndForm, -16)
lStyle = lStyle And Not &HC00000
SetWindowLong mhWndForm, -16, lStyle
DrawMenuBar mhWndForm
'----------------------------------------------------

End Sub

 

Gracias, funciona

Con el mismo criterio, , en 32 bits funciona correctamente  deshabilitar  la tecla ESC  asi  Application.OnKey "{ESC}", ""

En 64 bits no funciona, directamente es como si no estuviera, tienes idea como deshabilitar la tecla ESC en 64 bits.

Disculpas si estoy abusando con las preguntas, es que lo quiero distribuir a amigos y tienen distintas versiones instaladas.