نجوم المشاركات

نعم هذا يفى بالغرض شكرا يا استاذ يحى وجزاك الله كل خير عن ذلك وجعله فى ميزان حسناتك :fff:

السلام عليكم بعد اذن الاستاذ الحبيب عبدالله المجرب اولاً استخدم هذا الكود لقراءة رقم ID الهارد ثم اكتب الايدي في مذكرة رقم الايدي نفسه اذا كانت الحروف كبتل عادة بيكون كبتل مع ارقام هذا الكود Sub ALI_HARD() With CreateObject("Scripting.FileSystemObject") MsgBox Hex(.Drives.Item("c:").SerialNumber) End With End Sub Private Sub Workbook_Open() With CreateObject("Scripting.FileSystemObject") If Hex(.Drives.Item("c:").SerialNumber) = "XXXX" Then MsgBox "تفضل بالدخول" Else: MsgBox "نأسف هذا البرنامج مخصص لجهاز اخر " ThisWorkbook.Close savechanges = True End If End With End Sub وبعدها تحط ID في الشرط بدال الاكسات ( XXXX ) بهذا السطر If Hex(.Drives.Item("c:").SerialNumber) = "XXXX" Then الية الكود اذا حاولت استخدام الملف في جهاز اخر لن يفتح لان رقم الايدي غير مطابق والسلام عليكم وبعد حفظ رقم الايدي حط هذا الكود في حدث ThisWorkbook

السلام عليكم هذا كود يقوم بعمل قائمة من التواريخ بين تاريخين Sub Abu_Ahmed_Date() x = [B3].Value y = [A3].Value z = 3 For i = x To y Cells(z, 3).Value = i z = z + 1 Next End Sub للعلم التاريخ 18/1/2011 خطاء ويجب كتابته 18/1/2012

بارك الله فيك ابا الحسين موضوع جميل جداً وادعو جميع الاخوة للمشاركة