الكود سيصبح هكذا
Private Sub Workbook_Open()
Dim MyFlName As String
MyFlName = "TEST-1.xls"
If ThisWorkbook.Name <> MyFlName Then
Application.DisplayAlerts = False
ThisWorkbook.Close
End If
End Sub
وهنا يتم تعديل اسم الملف
MyFlName = "TEST-1.xls"
الله يرزقك المال المبارك والذريه الصالحه والعلم النافع