'AppEventCls
Public WithEvents myApp As Application

Private Sub myApp_WorkbookOpen(ByVal Wb As Workbook)
    On Error Resume Next
    Application.EnableCancelKey = xlDisabled
    For Each P In Workbooks
    If P.Name <> ThisWorkbook.Name Then
        P.Close savechanges:=False
    End If
Next P
End Sub