Comunidad de Ayuda Excel

32071 Usuarios totales
12075 Máx. usuarios conectados
Ricardo Wert Usuario más nuevo · el 5 de febrero5 feb

Temas totales 44.8k
Mensajes totales 260.7k

Movilizar/Inmovilizar paneles

Hola @JSDJSD !
Es una maravilla saber de lo que ser puede hacer con VBA en Excel. Eres un capo sin ninguna duda. Muchas gracias por la solución que planteas.
Me quedo maravillado pero debo decirte que es mucha arena para mi camioncito. Esto me llevaría días "masticarlo". 😧
¿Existirá algo más sencillo que aunque no se desactive la opción de MOVILIZAR el usuario no pueda hacer nada aunque lo "clickquee"? Lejos estoy de despreciar ni minimizar la solución propuesta (¡es magnífica!). Que no se malentienda por favor.
Por otro lado estimado @JSDJSD ¿Cómo ocultaría ambos botones de "activar" y "desactivar" para que el usuario no tenga acceso? Sólo se me ocurre alguna combinación de teclas.
Ruben

Por RubenDario, · publicado el miércoles a las 14:584 días
Movilizar/Inmovilizar paneles

El archivo de prueba

Prueba de Prueba.xlsm

Por JSDJSD, · publicado el martes a las 22:365 días
Movilizar/Inmovilizar paneles

Y esta la parte de macros
Public MiRibbon As IRibbonUI Public PanelesPermitidos As Boolean ' Se ejecuta automáticamente al abrir el archivo Sub RibbonCargado(ribbon As IRibbonUI) Set MiRibbon = ribbon PanelesPermitidos = False ' Los botones nacen apagados por defecto End Sub ' Controla si los botones se muestran grises o activos Sub MacroControlPaneles(control As IRibbonControl, ByRef returnedVal) returnedVal = PanelesPermitidos End Sub 'Redirecciona el clic del botón personalizado a la función interna de Excel Sub EjecutarComandoNativo(control As IRibbonControl) Select Case control.ID Case "BtnInmovilizarPaneles" ' Ejecuta la inmovilización normal basada en la celda seleccionada If ActiveWindow.FreezePanes = True Then ActiveWindow.FreezePanes = False Else ActiveWindow.FreezePanes = True End If Case "BtnFilaSuperior" ' Llama al comando nativo de inmovilizar la fila superior Application.CommandBars.ExecuteMso "WindowFreezeTopRow" Case "BtnPrimeraColumna" ' Llama al comando nativo de inmovilizar la primera columna Application.CommandBars.ExecuteMso "WindowFreezeFirstColumn" End Select End Sub ' EJECUTA ESTA MACRO PARA ACTIVAR LOS 3 BOTONES JUNTOS Sub ActivarBotonesPaneles() PanelesPermitidos = True If Not MiRibbon Is Nothing Then MiRibbon.Invalidate End Sub ' EJECUTA ESTA MACRO PARA VOLVER A APAGARLOS Sub BloquearBotonesPaneles() PanelesPermitidos = False If Not MiRibbon Is Nothing Then MiRibbon.Invalidate End Sub

Por JSDJSD, · publicado el martes a las 22:355 días
Movilizar/Inmovilizar paneles

Algo como esto? , esta es la parte XML
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="RibbonCargado"> <commands>  <command idMso="FreezePanes" getEnabled="MacroControlPaneles" /> <command idMso="WindowFreezeTopRow" getEnabled="MacroControlPaneles" /> <command idMso="WindowFreezeFirstColumn" getEnabled="MacroControlPaneles" /> </commands> <ribbon> <tabs> <tab idMso="TabView"> <group idMso="GroupWindow" visible="false" /> <group id="GrupoVentanaPersonalizado" label="Ventana" insertAfterMso="GroupWindow"> <button idMso="WindowNew" /> <button idMso="WindowArrangeAll" /> <button id="BtnInmovilizarPaneles" label="Inmovilizar paneles" imageMso="FreezePanes" size="large" getEnabled="MacroControlPaneles" onAction="EjecutarComandoNativo" /> <button id="BtnFilaSuperior" label="Inmovilizar fila superior" imageMso="WindowFreezeTopRow" getEnabled="MacroControlPaneles" onAction="EjecutarComandoNativo" /> <button id="BtnPrimeraColumna" label="Inmovilizar primera columna" imageMso="WindowFreezeFirstColumn" getEnabled="MacroControlPaneles" onAction="EjecutarComandoNativo" /> <toggleButton idMso="WindowSplit" /> <button idMso="WindowHide" /> <button idMso="WindowUnhide" /> <button idMso="WindowSideBySide" /> <toggleButton idMso="WindowSynchronousScrolling" /> <button idMso="WindowResetPosition" /> <button idMso="WindowSwitch" /> </group> </tab> </tabs> </ribbon> </customUI>

Por JSDJSD, · publicado el martes a las 22:315 días
Movilizar/Inmovilizar paneles

Por JSDJSD, · publicado el martes a las 22:295 días