مساعد في هذا الكو الذي لم يتحقق

[saadeps]

Private Sub Workbook_Open()
Dim MyPath As String

  MyPath = "F:\Nouveau dossier"
 
  If ThisWorkbook.Path <> MyPath Then
     Application.DisplayAlerts = False
    ThisWorkbook.Close
 
   
   End If
Dim MyFlName As String
  MyFlName = "saad"
 
    If ThisWorkbook.Name <> MyFlName Then

    Application.DisplayAlerts = False
    ThisWorkbook.Close
  End If
End Sub
Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim lReply As Long

  If SaveAsUI = True Then

lReply = MsgBox("ÍÏË ÎÙÃ", vbQuestion + vbOKCancel)

     Cancel = (lReply = vbCancel)

   If Cancel = False Then Me.Save

     Cancel = True

  End If

End Sub

[saadeps]

اريد منكم خدمة لو سمحتم هل من كود يجعل ملف الاكسل غير قابل لتغير مكان حفظه مع عدم امكانية تغيير اسمه او شيء من هذا القبيل لاني اريد ان اوزع برنامجي على زملائي واكثرهم لا يعرف الاكسل