Ocultar ribbon sólo en el libro activo

[jesuspg]

Hola, me gustaría ocultar la cinta de opciones tan sólo en mi libro activo.

Se me ocurren las siguientes ideas, pero no me funcionan:

Sub OcultarRibbon1()
	If ThisWorkbook.Activate = True Then Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", False)"
End Sub
Sub OcultarRibbon2()
	Application.ThisWorkbook.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", False)"
End Sub

Agradecería cualquier ayuda. Gracias.

[Abraham Valencia]

Hola

Intenta colocando esto en el módulo del libro, ese que lleva de nombre por defecto "ThisWorkBook":

Private Sub Workbook_Activate()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub

Private Sub Workbook_Deactivate()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub

Comentas

[jesuspg]

En 3/3/2022 at 14:33 , avalencia dijo:

Hola

Intenta colocando esto en el módulo del libro, ese que lleva de nombre por defecto "ThisWorkBook":

Private Sub Workbook_Activate()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub

Private Sub Workbook_Deactivate()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub

Comentas

Gracias. Al final lo solucioné de otra manera.

Gracias por el aporte.

[Abraham Valencia]

Deberías compartirlo para otras personas con el mismo dilema. Saludos.

[Miguel MG]

Hola, yo también tengo el mismo problema, ¿podrías decir cómo lo solucionaste, por favor? :c

[jesuspg]

En 25/9/2022 at 5:07 , Miguel MG dijo:

Hola, yo también tengo el mismo problema, ¿podrías decir cómo lo solucionaste, por favor? :c

Perdona, quieres que se desactivar la ribbon en el libro activo?

[Miguel MG]

Así es,  estoy desarrollando una app y quisiera limitar ese acceso, para que, ésta sea más especifica en su actividad. Saludos