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