1
Abra Microsoft Excel , vaya al menú " Archivo" y seleccionar " Abrir". Busque el archivo de Excel que desea hacer expirar y haga doble clic en el nombre del archivo para abrirlo.
2
Pulse " Alt + F11 " para iniciar el Editor de Visual Basic de Excel. Utilice las teclas "Ctrl + R" para cambiar a la ventana " Explorador de proyectos " o vaya al menú "Ver" , seleccione "Other Windows" y seleccione " Explorador de proyectos " en la lista de opciones.
3
Haga clic en " ThisWorkbook " en la ventana " Explorador de proyectos " . Seleccione "Ver Código " de la lista de opciones disponibles.
4
Escriba el código que hace que la hoja caduca en el cuadro de código proporcionado . Un formato de código propio que proporciona a los usuarios un mensaje sobre la fecha de caducidad y el número de días restantes hasta que caduque la hoja de cálculo es el siguiente:
Sub Auto_abrir () \\ \\ EXDATE As Fecha \\ \\ EXDATE = \\ " 12/01/10 \\ " \\ \\ Si Date> EXDATE Entonces \\ \\ MsgBox ( \\ " Hoja de cálculo ha caducado \\ ") \\ \\ ActiveWorkbook.Close \\ \\ End If \\ \\ MsgBox ( \\ " Workbook Válido Hasta \\ " & EXDATE - Fecha y \\ "Days left \\ ") \\ \\ End Sub
Introduzca la fecha en la que la hoja de cálculo para su expiración por " EXDATE = "y cualquier mensaje que desees con respecto a la hoja de trabajo expiró en el lugar de la " hoja de cálculo ha caducado . "
5
Volver a la hoja de cálculo de Excel abierto , vaya al menú" Archivo " y seleccione" Guardar " para guardar el libro con la nueva macro adjunta . Cierre el libro y vuelva a abrir en Excel. El mensaje que has ingresado en la macro debería aparecer , indicando la fecha de caducidad del expediente y el número de días restantes hasta que caduque.