انشاء نسخة من المصنف

انشاء نسخة من المصنف

كثيرا منا يحدث معه عن طريق الخطأ حذف ملف وقد يكون مهما جدا ، أو شخص ما قام بحذف الملف عن طريق الخطأ

لكى نتفادي هذا الأمر توجد طريقة رائعة للإحتفاظ بنسخة من الملف مع تحديث كل البيانات الجديدة

من خلال شفرة برمجية توضع بحدث المصنف تعمل على  إنشاء نسخة من المصنف بمكان آخر داخل الجهاز الذى تعمل عليه وتقوم تلك الشفرة تلقائيا بتحديث النسخة التى تم انشائها  مع كل إضافة أو حذف بيانات من الملف الأصلي


كل ما عليك هو أن تضيف الشفرة بحدث المصنف أو الملف

أى أنك تضع هذا الكود داخل ThisWorkbook


الخطوات لإضافة هذا الكود

1. قم بفتح محرر الأكواد عن طريق الضغط على زرين ( ALT + F11 )
2. تجد على يسار شاشة الأكسيل قائمة بها اسماء الشيتات وأيضا ThisWorkbook
3. تضغط دبل كليك على ThisWorkbook
4. ستظهر لك نافذة على يمين شاشة الأكسل هذه هى حدث المصنف

ملحوظة : يجب ان تضع بكل حدث لأوراق المصنف جملة Option Explicit

الشفرة البرمجية كالتالي :-

'Permits any person to use this code provided that the source is mentioned
'https://elshriefacademy.blogspot.com

Option Explicit


Private Sub Workbook_Open()
'You can put whatever you want between the quotation Instead of the link 
      Application.Caption = "https://elshriefacademy.blogspot.com"
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
      Dim MyFilePath$, Extension$
      MyFilePath = MyPCpath("MyDocuments")
      Extension = Left(ThisWorkbook.Name, Len _
                                          (ThisWorkbook.Name) - 4) & " Backup"

      On Error Resume Next      'folder exists
      MkDir MyFilePath & Extension      'create folder
      'save current version of this book in the folder
      ActiveWorkbook.SaveCopyAs Filename:=MyFilePath & _
                                          Extension & "\" & Extension & ".xls"
End Sub

Public Function MyPCpath$(Folder)
      MyPCpath = CreateObject("WScript.Shell").SpecialFolders _
                 (Folder) & Application.PathSeparator
End Function