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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
EM_ACC مجدى يونس-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة بحاجة الى كود ترحيل اكسيل اسئله واجابات


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





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

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


موضوع مغلق


26-10-2021 02:05 صباحا
حبيبتى دائما
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-07-2019
رقم العضوية : 13887
المشاركات : 93
الجنس : ذكر
تاريخ الميلاد : 5-3-1984
يتابعهم : 9
يتابعونه : 0
قوة السمعة : 76
 offline 

السلام عليكم ورحمة الله وبركاتة
لقد اعجبنى كود برمجى يربط الاكسيل بالهارد او المازر بورد
ولمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب فى ذلك الرابط لاستاذنا ياسر خليل


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


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





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


 


أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام أخي الكريم
استبدل السطر الذي يقوم بعملية الحذف وهو
Kill .FullName

بسطر تقوم فيه بإظهار رسالة للمستخدم باستخدام الدالة MsgBox ويليها الرسالة بين أقواس تنصيص.
عرض الإجابة




26-10-2021 02:55 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif لا تقتل ملف الاكسيل واظهر رسالة تحذير للمستخدم
وعليكم السلام أخي الكريم
استبدل السطر الذي يقوم بعملية الحذف وهو
Kill .FullName

بسطر تقوم فيه بإظهار رسالة للمستخدم باستخدام الدالة MsgBox ويليها الرسالة بين أقواس تنصيص.



الكلمات الدلالية
تقتل ، الاكسيل ، واظهر ، رسالة ، تحذير ، للمستخدم ،


 










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

الساعة الآن 08:36 صباحا