السلام عليكم ورحمة الله وبركاته
فتح ملف للقراءة فقط طبق هذه العملية على ملفك
Private Sub Workbook_Open()
Test
End Sub
Module1
Sub Test()
Application.ScreenUpdating = False
MonFichier = ThisWorkbook.Name
Workbooks.Open Filename:=Sheets("Nature").Range("B21"), ReadOnly:=False
Workbooks(MonFichier).Activate
Application.ScreenUpdating = True
End Sub