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.

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

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.

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

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

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?

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