파일의 유효기간 설정하여 날짜 지나면 자동 삭제

VBA 코드에 아래 코드를 하나 추가하면 체크하는 날짜를 지난 경우에는 자동으로 파일이 삭제됩니다.

Date 는 오늘 날짜이고 , Dateserial 함수에 표기된 날짜는 유효기한 날짜입니다.

Auto_Open 함수명을 다른 이름으로 하면 자동 실행이 안됩니다.

Sub Auto_Open()
    If Date > Dateserial(2015, 3, 25) Then
        With ThisWorkbook
            If .Saved = False Then .Save
            .ChangeFileAccess Mode:=xlReadOnly           
            Kill .FullName
            .Close SaveChanges:=False
        End With
    End If
End Sub