Como aplicar un código VBA solo al libro1 (anexo código)
que tal expertos quisiera ver la manera de como aplicar este código solo para cierto libre y en el que todos los demás libros abiertos estén exentos de este.
Sub QuitarBarras()
On Error Resume Next
With Application
.DisplayFullScreen = True
.CommandBars("Full Screen").Visible = False
.CommandBars("MyToolbar").Enabled = True
.CommandBars("MyToolbar").Visible = True
.CommandBars("Worksheet Menu Bar").Enabled = False
End With
On Error GoTo 0
End If
End Sub
Sub ReponerBarras()
On Error Resume Next
With Application
.DisplayFullScreen = False
.CommandBars("MyToolbar").Enabled = False
.CommandBars("Worksheet Menu Bar").Enabled = True
End With
On Error GoTo 0
End Subgracias!!! Saludos
2 Respuestas
Respuesta de Jonathan Fallas
Gracias por la atención...
No lo valoraste.
Respuesta de Harold Z.
2
Puedes intentar lo siguiente dentro de "ThisWorkbook" (no en los modulos)
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Call ReponerBarras
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Call QuitarBarras
End Sub