Macro con error variable de objeto o bloque WITH
Hola buen día, tengo problema con el código de esta macro, cuando abro el archivo que tiene la macro, me marca el error 91, del bloque With, y no me aparece el contenido de ninguna celda, si oculta los cambios que le pido pero hasta ahí, ya cuando debe de cerrar y restablecer los cambios hechos al principio, me vuelve a marcar ese error, por favor su ayuda
Private Sub Workbook_Open()
ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")
With ActiveWindow .DisplayHeadings = False
DisplayHorizontalScrollBar = False
DisplayVerticalScrollBar = False
DisplayWorkbookTabs = False
End With
With Application .
DisplayFormulaBar = False
DisplayStatusBar = False
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)")
With ActiveWindow .DisplayHeadings = True
DisplayHorizontalScrollBar = True
DisplayVerticalScrollBar = True
DisplayWorkbookTabs = True
End With
With Application .
DisplayFormulaBar = True
DisplayStatusBar = True
End With
ThisWorkbook.Save
End Sub
1 respuesta
O no se copió bien la macro que pusiste o prueba con esto, así como te lo envío no me marca ningún error.:
Private Sub Workbook_Open()
ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)")
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
With Application
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With
ThisWorkbook.Save
End Sub Saludos.Dante Amor
Si es lo que necesitas.
Hola muchas gracias ya no me marca el error, pero sigue sin aparecerme el contenido de la celda solo me deja en azul todo y para que restablezca los cambios, como le indico con el comando BEFORECLOSE, tengo que cerrar todo excel y según yo el código le dice que se restablezca cuando se cierre el mismo libro o como puedo asignarlo al mismo archivo y que no afecte a otros libros
Para restablecer pasa el código al evento
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Prueba y me comentas
Saludos. Dante Amor
Si es lo que necesitas.
