Private Sub Workbook_Open()

    Dim 제한날짜 As Date

    제한날짜 = DateSerial(2030, 12, 31)

    If Date > 제한날짜 Then

        With ThisWorkbook
            .ChangeFileAccess xlReadOnly
            Kill .FullName
            .Close False
        End With
    
    End If
    
End Sub
