Auto_Open() y Auto_Close()
Existe una macro
de autoarranque que se ejecuta cuando se abre el
libro. Se llama auto_open().
Y existe otra que
se ejecuta justo antes de cerrar el libro que se llama auto_close().
Sub Auto_Open()
Dim hora As Double
Dim saludo As String
hora = (Now - Int(Now)) * 24
Select Case hora
Case 6 To 14
saludo = "Buenos días"
Case 14 To 21
saludo = "Buenas tardes"
Case
Else
saludo = "Buenas noches"
End
Select
MsgBox saludo & " Amo"
End Sub
Equivalente
a auto_open existe otra macro Workbook_Open, pero ésta ha de
ser guardada no en un módulo normal, sino en ThisWorkbook. Pruebe lo
siguiente:
El
siguiente procedimiento permite abrir automáticamente el libro
Balance.xls al abrir el libro Informe.xls. El procedimiento ha de estar
en ThisWorkbook del libro Informe.xls.
Sub
Workbook_Open()
'Apertura de libro Balance
Workbooks.Open Filename:="C:/Contabilidad/Balance.xls"
'Activación del libro Informe
Windows("Informe.xls").Activate
End
Sub |
Microsoft explorer 6.0 
