مصطفي يوسف الكاشف

السلام عليكم ورحمة الله وبركاته عندى شيت به ترحيل فواتير المبيعات والمشتريات طالب كود لقيام باستدعاء اى فاتورة به اخطاء وتعديلها مرة اخرى وجزاكم الله خيرا اؤمرني.xlsm

حاولت تطبيق الملف بيقفل الملف المحفوظ اصلا ما الحل من فضلكم وطبقت الكود ده Private Sub Workbook_Open() Dim MyPath As String MyPath = "Z:\SHARED GENERAL" If ThisWorkbook.Path <> MyPath Then Application.DisplayAlerts = False ThisWorkbook.Close End If Dim MyFlName As String MyFlName = "TEST-1.xls" 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 منع فتح الملف إذا تم نقله أو تغيير إسمه ومنع حفظه بإسم جديد.xls