أكاديمية الصقر للتدريب
(نسخة قابلة للطباعة من الموضوع)
https://excel-egy.com/forum/t6196
أنقر هنا لمشاهدة الموضوع بهيئته الأصلية

لا تقتل ملف الاكسيل واظهر رسالة تحذير للمستخدم
حبيبتى دائما 26-10-2021 02:05 صباحا
السلام عليكم ورحمة الله وبركاتة
لقد اعجبنى كود برمجى يربط الاكسيل بالهارد او المازر بورد
ولمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب فى ذلك الرابط لاستاذنا ياسر خليل


وشرح الكود هو انه ان تم نقل الشيت لجهاز اخر غير متوافق مع رقم الهارد ديسك او المازر بورد  يتم قتل الملف وحذفه


انا لا اريد قتل الملف انا اريد رسالة تظهر للمستخدم
بانه لا يملك صلاحية الدخول
 





Private Sub Workbook_Open()
    If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "BE2EFE3A" Then
        With ThisWorkbook
            .Save
            .ChangeFileAccess Mode:=xlReadOnly
'هذا الامر اسفل (مخصص لقتل الاكسيل)حذفه
            Kill .FullName
            .Close SaveChanges:=False
        End With
    End If
End Sub

Sub Get_Hard_Disk_Serial_Number()
    Range("AA1").Value = Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber)
End Sub


 
أكاديمية الصقر للتدريب

Powered by PBBoard ©Version 3.0.3