Snasui Excel Forum

Code: Select all

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
MsgBox "Cannot to save file"
End Sub

Code: Select all

    Workbooks("AAA.xlsm").Select
    Workbooks("AAA.xlsm").Open true

Code: Select all

Sub End_Time()
    With ThisWorkbook
        Application.DisplayAlerts = False
        If Date >= 43831 Then
            .ChangeFileAccess xlReadOnly
            Kill .FullName
            ThisWorkbook.Close SaveChanges:=False
        End If
    End With
End Sub