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