[엑셀] 특정 날짜 후 엑셀 파일 자동 삭제 - VBA사용

본인이 ​퇴사 후 혹은 다른 이유로 특정사용자나 특정일이 지나면 파일 열기를 시도할 경우 자동으로 삭제되도록...


Private Sub Auto_Open()
    If Date > DateValue("2021/02/03") Then
        With ThisWorkbook
            .ChangeFileAccess xlReadOnly, , 0
            Kill .FullName
            .Close
        End With
    End If
End Sub 




어딘가에선 Sub Workbook_Open으로 하던데 오류가 발생해서 Auto_Open으로 하니 해결..

날짜 부분만 원하는 날짜로 하고 부등호에 유의하면 파일 열기 후 자동 삭제

저장 시 xlsm 으로 할 것!

만약 다른 사용자의 접근을 막기 위해서라면 With ThisWorkbook 문 앞에 If Application.Username <> "사용자명" then 문장을 추가할 것!