Hola compañeros,

Me gustaría dejar desactivadas (o quitar, si es posible) las opciones que están marcadas dentro del cuadro rojo de la imagen adjunta, y dejarlas desactivadas tal y como aparecen en el cuadro azul.

No he realizado nunca nada así, y toda la información que encuentro por Internet me aconseja realizarlo desde código XML.

Pero estoy convencido de que debe de existir una sentencia algo parecido a la siguiente:

...
   Application.CommandBars.Controls("Eliminar").Enabled = False
...

Un saludo, y muchas gracias por vuestro tiempo.

Hace 18 horas, paikerr dijo:

Hola compañeros,

Me gustaría dejar desactivadas (o quitar, si es posible) las opciones que están marcadas dentro del cuadro rojo de la imagen adjunta, y dejarlas desactivadas tal y como aparecen en el cuadro azul.

No he realizado nunca nada así, y toda la información que encuentro por Internet me aconseja realizarlo desde código XML.

Pero estoy convencido de que debe de existir una sentencia algo parecido a la siguiente:

...
   Application.CommandBars.Controls("Eliminar").Enabled = False
...

Un saludo, y muchas gracias por vuestro tiempo.

Hola! @paikerr hace un tiempo estuve buscando hacer algo como lo que deseas, me parece que lo había conseguido, pero por el momento no tengo mis respaldos a mano, si lo encuentro te lo comparto. Te comparto este archivo que tenia a la vista.

Sería más sencillo si quitas el clic derecho, con eso no tienes que esta liando en activar los menús en caso de requerirlos.

 

 

Foro.xlsm

Hace 2 horas, Jose BN dijo:

Sería más sencillo si quitas el clic derecho, con eso no tienes que esta liando en activar los menús en caso de requerirlos.

Hola @Jose BN,

Efectivamente, para eso que comentas tengo esta macro.

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Application.ScreenUpdating = False

   ' Limpiamos los errores anteriores (por si acaso)...
   Err.Clear

   ' Tratamos los errores del evento...
   On Error GoTo error

   ' Declaramos las variables de ámbito local...
   Dim ultimaFila As Long
   ultimaFila = ActiveWorkbook.Sheets("CONEXIONES").Cells(1000000, 1).End(xlUp).Row

   Dim perfil As String, estado As String
   perfil = ActiveWorkbook.Sheets("CONEXIONES").Cells(ultimaFila, 6).Value
   estado = ActiveWorkbook.Sheets("CONEXIONES").Cells(ultimaFila, 7).Value

   ' Y gestionamos los permisos de usuario del menú contextual...
   If (perfil = "administrador" Or perfil = "usuario avanzado" Or perfil = "usuario básico") And _
       estado = "Conectado" Then
      ' Mostramos el menú contextual...
      Cancel = False
   ' En caso contrario...
   Else
      ' Ocultamos el menú contextual...
      Cancel = True
   End If

salir:
   ' Y salimos del procedimiento...
   Exit Sub
error:
   ' Mostramos por pantalla el tipo de error y la descripción del mismo...
   MsgBox Prompt:="Upps, parece que hubo un error... Por favor, póngase en contacto " & _
                  "directamente con su programador informático." & vbCr & vbCr & _
                  "El error producido es [" & Err.Number & "] - " & Err.Description & _
                  " en el evento Workbook_SheetBeforeRightClick del libro " & ActiveWorkbook.Name & ".", _
          Buttons:=vbCritical, _
          Title:="                                               AVISO IMPORTANTE"
   ' Sacamos el error fuera de la pila de errores...
   Resume salir

End Sub

Trabajo con distintos perfiles dentro de la aplicación ofimática (administrador, usuario avanzado, usuario básico e invitado), por eso me gustaría limitar el uso del menú contextual en función de cada perfil de usuario.

Voy a echar un ojo a tu código, y ver que puedo sacar de provecho de ello.

Muchas gracias por tu tiempo.

Un saludo.

Ejemplo:

Application.CommandBars("Cell").Controls("Insertar...").Enabled = False
Application.CommandBars("Cell").Controls("Eliminar...").Enabled = False
Application.CommandBars("Cell").Controls("Borrar contenido").Enabled = False

Para restaurar:

Application.CommandBars("Cell").Reset 'Restaura

Tendrás que bucear por Internet para ver los puntos de menú que te interesen.

Y algo más drástico:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

 

Hace 2 horas, Antoni dijo:

Ejemplo:

Application.CommandBars("Cell").Controls("Insertar...").Enabled = False
Application.CommandBars("Cell").Controls("Eliminar...").Enabled = False
Application.CommandBars("Cell").Controls("Borrar contenido").Enabled = False

Para restaurar:

Application.CommandBars("Cell").Reset 'Restaura

Tendrás que bucear por Internet para ver los puntos de menú que te interesen.

@Antoni a manera de consulta porque  para el caso de la columna, me permite deshabilitar los menú de columna directamente de esta forma, en unas ocasiones y otras no:

Application.CommandBars("Column").Controls("Borrar contenido").Enabled = False
Application.CommandBars("Column").Controls("Insertar").Enabled = False
Application.CommandBars("Column").Controls("Eliminar").Enabled = False

Pero en otras replicas primero debo ejecutarlo con el ID del control.

Application.CommandBars.FindControl(ID:=3125).Enabled = False

Pero para el caso de las celdas funciona directamente como lo planteaste en tu propuesta o bien utilizando el ID.

Hola de nuevo, gracias a los dos por vuestras respuestas.

Al final he dado con la solución.

 

Primero, existen los siguientes eventos con los que deshabilitar/eliminar las opciones del menú contextual.

1) Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)... para cada vez que el usuario hace click derecho en la hoja.

2) Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)... para cada vez que el usuario hace click derecho en cada una de las hojas del libro.

3) Private Sub Workbook_WindowActivate(ByVal Wn As Window) / Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)... para cada vez que se activa/desactiva la ventana del libro.

 

En segundo lugar, este es el código para deshabilitar las opciones disponibles en el menú contextual.

   With Application
      .CommandBars("Cell").Enabled = False                ' deshabilitamos el menú contextual para cada celda
      .CommandBars("Column").Enabled = False              ' deshabilitamos el menú contextual para cada columna
      .CommandBars("Row").Enabled = False                 ' deshabilitamos el menú contextual para cada fila
      .CommandBars("Ply").Enabled = False                 ' deshabilitamos el menú contextual para cada pestaña
      .CommandBars("Sheet").Enabled = False               ' deshabilitamos el menú contextual para cada hoja
      .CommandBars("Worksheet Menu Bar").Enabled = False  ' deshabilitamos el menú contextual para cada barra de menú
   End With

Y para eliminarlas, es exactamente igual.

   With Application
      .CommandBars("Cell").Delete               ' eliminamos el menú contextual para cada celda
      .CommandBars("Column").Delete             ' eliminamos el menú contextual para cada columna
      .CommandBars("Row").Delete                ' eliminamos el menú contextual para cada fila
      .CommandBars("Ply").Delete                ' eliminamos el menú contextual para cada pestaña
      .CommandBars("Sheet").Delete              ' eliminamos el menú contextual para cada hoja
      .CommandBars("Worksheet Menu Bar").Delete ' eliminamos el menú contextual para cada barra de menú
   End With

Y como bien decía @Antoni, para devolver todo a su origen es del siguiente modo.

   With Application
      .CommandBars("Cell").Reset                ' reestablecemos el menú contextual para cada celda
      .CommandBars("Column").Reset              ' reestablecemos el menú contextual para cada columna
      .CommandBars("Row").Reset                 ' reestablecemos el menú contextual para cada fila
      .CommandBars("Ply").Reset                 ' reestablecemos el menú contextual para cada pestaña
      .CommandBars("Sheet").Reset               ' reestablecemos el menú contextual para cada hoja
      .CommandBars("Worksheet Menu Bar").Reset  ' reestablecemos el menú contextual para cada barra de menú
   End With

 

Y por último, para acceder al listado completo de opciones del menú contextual junto con su ID correspondiente, éste sería el método.

Sub ListarControles()

   Dim i As Integer
   i = 0

   For Each ctl In CommandBars(1).Controls
      For Each ctl2 In ctl.Controls
         i = i + 1
         Debug.Print ctl2.Caption & " - " & i
      Next ctl2
   Next ctl
   For Each ctl In CommandBars(2).Controls
      For Each ctl2 In ctl.Controls
         i = i + 1
         Debug.Print ctl2.Caption & " - " & i
      Next ctl2
   Next ctl

End Sub

De manera que, para deshabilitar una de las opciones del menú contextual sería del siguiente modo.

Application.CommandBars("Ply").FindControl(ID:=175).Enabled = False

O también.

Application.CommandBars("Ply").Controls("Eliminar hoja").Enabled = False

En ambos casos, estamos haciendo lo mismo.

 

Espero que a alguien le pueda ser de utilidad.

Ya que a mí, me resultó un poco pesado encontrar información por Internet al respecto.

 

Un saludo, y gracias.

Hace 13 horas, Jose BN dijo:

@Antoni a manera de consulta porque  para el caso de la columna, me permite deshabilitar los menú de columna directamente de esta forma, en unas ocasiones y otras no:

Application.CommandBars("Column").Controls("Borrar contenido").Enabled = False
Application.CommandBars("Column").Controls("Insertar").Enabled = False
Application.CommandBars("Column").Controls("Eliminar").Enabled = False

Pero en otras replicas primero debo ejecutarlo con el ID del control.

Application.CommandBars.FindControl(ID:=3125).Enabled = False

Pero para el caso de las celdas funciona directamente como lo planteaste en tu propuesta o bien utilizando el ID.

Ni idea José BN, lo he sacado todo consultando por Internet. Nunca he tenido que usarlo en la vida real.

Saludos?

Hace 13 horas, Jose BN dijo:

@Antoni a manera de consulta porque  para el caso de la columna, me permite deshabilitar los menú de columna directamente de esta forma, en unas ocasiones y otras no:

Application.CommandBars("Column").Controls("Borrar contenido").Enabled = False
Application.CommandBars("Column").Controls("Insertar").Enabled = False
Application.CommandBars("Column").Controls("Eliminar").Enabled = False

Pero en otras replicas primero debo ejecutarlo con el ID del control.

Application.CommandBars.FindControl(ID:=3125).Enabled = False

Pero para el caso de las celdas funciona directamente como lo planteaste en tu propuesta o bien utilizando el ID.

Hola de nuevo,

A mí me ha pasado exactamente lo mismo con la opción hipervínculos del menú contextual.

En el menú contextual aparece como "Vínculo". Sin embargo el nombre correcto es el de "Vínculos..." con ID = 41, es decir, en plural y seguido de tres puntos suspensivos.

Cómo lo sé? Fácil. Ejecuta la siguiente macro, y comprueba el nombre correcto de la opción del menú contextual dentro de la ventana Inmediato de la consola del VBE.

Hace 2 horas, paikerr dijo:

Y por último, para acceder al listado completo de opciones del menú contextual junto con su ID correspondiente, éste sería el método.

Sub ListarControles()

   Dim i As Integer
   i = 0

   For Each ctl In CommandBars(1).Controls
      For Each ctl2 In ctl.Controls
         i = i + 1
         Debug.Print ctl2.Caption & " - " & i
      Next ctl2
   Next ctl
   For Each ctl In CommandBars(2).Controls
      For Each ctl2 In ctl.Controls
         i = i + 1
         Debug.Print ctl2.Caption & " - " & i
      Next ctl2
   Next ctl

End Sub

 

Y para consultar todos los nombres de CommandBar.

Sub ListarComandos()

   On Error Resume Next

   Dim i As Integer
   For i = 1 To 200
      Debug.Print i & " - " & CommandBars(i).Name
   Next i

End Sub

Espero que te ayude...

Saludos.

Editado el el 11 de junio4 años por paikerr

Hace 4 horas, paikerr dijo:

Hola de nuevo,

A mí me ha pasado exactamente lo mismo con la opción hipervínculos del menú contextual.

En el menú contextual aparece como "Vínculo". Sin embargo el nombre correcto es el de "Vínculos..." con ID = 41, es decir, en plural y seguido de tres puntos suspensivos.

Cómo lo sé? Fácil. Ejecuta la siguiente macro, y comprueba el nombre correcto de la opción del menú contextual dentro de la ventana Inmediato de la consola del VBE.

Y para consultar todos los nombres de CommandBar.

Sub ListarComandos()

   On Error Resume Next

   Dim i As Integer
   For i = 1 To 200
      Debug.Print i & " - " & CommandBars(i).Name
   Next i

End Sub

Espero que te ayude...

Saludos.

Muchas gracias! Por los comentarios es bueno saber que lograste resolver tu problema.

Saludos