Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas noches.
Estoy buscando una macro que realice la siguiente funcionalidad en un solo archivo.
Una vez abierto el libro se ejecute automáticamente una macro la cual oculte todas las barras de los extremos (barra de menú, barra de herramientas, cinta de opciones, barra de formula, etc..).
La dificultad de esto es que solo lo tiene que dejar las barras ocultas en un libro dejando el resto de libros abiertos y pendientes de abrir con las barras habilitadas.
Únicamente he encontrado está macro la cual te oculta todos los archivos abiertos. por lo que no me sirve
Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Visual Basic").Visible = False
Application.CommandBars("Reviewing").Visible = False
Application.CommandBars("Drawing").Visible = False
Application.CommandBars("Formula Auditing").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Standard").Visible = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Formula Auditing").Visible = True
Application.CommandBars("Drawing").Visible = True
Application.CommandBars("Reviewing").Visible = True
Application.CommandBars("Visual Basic").Visible = True
End Sub
Gracias por adelantado y un saludo.