Ejemplos de Excel VBA: ejemplos de eventos introductorios

La ventana Código debería verse así.

Este procedimiento de controlador de eventos se ejecuta cuando se abre el libro de trabajo.

Workbook_Open se ejecuta automáticamente cada vez que se abre el libro. Utiliza la función WeekDay de VBA para determinar el día de la semana. Si es viernes (día 6), un cuadro de mensaje le recuerda al usuario que envíe un informe. Si no es viernes, no pasa nada.

Si hoy no es viernes, es posible que tenga dificultades para probar este procedimiento. Puede cambiar el 6 para que se corresponda con el número de día real de hoy.

Y, por supuesto, puede modificar este procedimiento como desee. Por ejemplo, la siguiente versión muestra un mensaje cada vez que se abre el libro. Esto se vuelve molesto después de un tiempo.

Un procedimiento Workbook_Open puede hacer casi cualquier cosa. Estos controladores de eventos se utilizan a menudo para lo siguiente:

• Mostrar mensajes de bienvenida (como en el genial libro de trabajo de Frank)
• Abrir otros libros de trabajo
• Activar una hoja de trabajo en particular en el libro de trabajo
• Configurar menús contextuales personalizados

Aquí hay un ejemplo final de Excel VBA de un procedimiento Workbook_Open que usa las funciones GetSetting y SaveSetting para realizar un seguimiento de cuántas veces se ha abierto el libro. La función SaveSetting escribe un valor en el registro de Windows y la función GetSetting recupera ese valor (consulte el sistema de ayuda para obtener más detalles). El siguiente ejemplo de Excel VBA recupera el recuento del registro, lo incrementa y luego lo vuelve a guardar en el registro. También le dice al usuario el valor de Cnt que corresponde al número de veces que se ha abierto el libro.

Private Sub Workbook_Open ()
  Dim Cnt tan largo
  Cnt = GetSetting ("MyApp", "Configuración", "Abrir", 0)
  Cnt = Cnt + 1
  Guardar Configuración de "MyApp", "Configuración", "Abrir", Cnt
  MsgBox "Este libro se ha abierto" & Cnt & "times".
End Sub

Private Sub Workbook_BeforeClose (Cancelar como booleano)
  Dim Msg como cadena
  Dim Ans As Long
  Dim FName como cadena
  Msg = "¿Le gustaría hacer una copia de seguridad de este archivo?"
  Ans = MsgBox (Msg, vbYesNo)
  Si Ans = vbYes Entonces
    FName = "F: \ BACKUP \" & ThisWorkbook.Name
    ThisWorkbook.SaveCopyAs FName
  Terminara si
End Sub

Libro secundario privado_BeforeSave (ByVal SaveAsUI _
  Como booleano, cancelar como booleano)
  Contador de atenuación como rango
  Establecer contador = Hojas ("Hoja1"). Rango ("A1")
  Counter.Value = Counter.Value + 1
End Sub

Libro secundario privado_BeforeSave (ByVal SaveAsUI _
  Como booleano, cancelar como booleano)
  Si SaveAsUI entonces
    MsgBox "¡No puede guardar una copia de este libro!"
  Cancelar = Verdadero
  Terminara si
End Sub