Para poder modificar la barra de menú, cinta de opciones o ribbon, es preciso saber cual es el nombre del comando, barra, menú, grupo, subgrupo que integran las distintas barras o ribbon de Excel.
Sabiendo el nombre correcto se podrá inhabilitar, agregar un botón en determinada barra, grupo, subgrupo, etc.
Desde el final del post se puede descargar el ejemplo en forma gratuita sin ninguna restricción, el código se puede adaptar a cada necesidad, Aporta por favor para sostener el sitio si está dentro de tus posibilidades, desde ya muchas gracias.
Si te estás iniciando en la operación de Excel o requieres afirmar conocimientos, recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.
Quizá sea de utilidad también
Como enviar mail desde Excel adjuntando PDF
Como enviar mail con archivo Excel y PDF mediante Outlook con Excel
Formulario de VBA para insertar datos
⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
El archivo es compatible con Office de 32 y 64 bits, la imagen a continuación muestra como se verá el archivo de Excel con el listado de menús, comandos, etc. que integran un Archivo de Excel, es importante para saber el nombre correcto del comando cuando se requiera modificar la programación XML del fichero.
Saber el nombre del comando, permitirá referenciar en forma correcta al comando o menú que se requiera modificar eliminar, inhabilitar, etc. y se verá en post posteriores, sugiero suscribir al blog desde la parte superior derecha o al canal de you tube para puedan recibir un aviso cuando se publique un ejemplo nuevo.
Código que se inserta en un módulo
‘Si es de 64 bits
Private Declare PtrSafe Function ShellExecute Lib «shell32.dll» Alias «ShellExecuteA» ( _
ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
#Else
‘Si es de 32 bits
Private Declare Function ShellExecute Lib «shell32.dll» Alias «ShellExecuteA» ( _
ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If
Sub Muestra(control As IRibbonControl)
MsgBox «suscribe a https://youtube.com/programarexcel» & Chr(10) & Chr(10) & «visita https://macrosenexcel.com»
End Sub
Sub ejecuta()
ruta = ActiveWorkbook.Path & «excelcontrols.xlsx»
lngErr = ShellExecute(0, «OPEN», ruta, «», «», 0)
End Sub
.
If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.
Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends