Help RE: 2 Private Sub Workbook_Open() CODES

[cbryan15]

Hi everybody!

I would like to seek for you help regarding my problem. I would like to use two codes for Private Sub Workbook_Open() but I do not know how to do it. My codes are the following:

Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"

and

    Dim Edate As Date    Edate = Format("xx/xx/xxxx", "DD/MM/YYYY")
    If Date > Edate + 2 Then
    MsgBox "This file is corrupted and will now close."
    ActiveWorkbook.Close
    End If
End Sub

Kindly help me. Appreciate it a lot!

 

[dchaney]

This should do it for you... Not sure about the date so I changed it to show the current date.

Private Sub Workbook_Open()

    Dim Edate As Date

    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"

    Edate = Format(Now(), "DD/MM/YYYY")
    If Date > Edate + 2 Then
        MsgBox "This file is corrupted and will now close."
        ActiveWorkbook.Close
    End If

End Sub

 

[cbryan15]

Thank you very much @dchaney! would like to treat you a bottle of beer if I could. Thanks!

 

[dchaney]

Glad I could help