محمد الورفلي1 قام بنشر أغسطس 25, 2014 قام بنشر أغسطس 25, 2014 السلام عليكم اضف هذ الكود لاحد الملفات وهو كود ممتاز ولكن فا قلت خبرتي باكواد فقد ارتكبت اليوم خط جسيم وه .و ارت ان احذف رقم الهارد الموجود بالكود لاستخدامة علي جهاز اخر والخطاء الاكبر هو لم اضف هذة العلامة حتي تسمح للملف بالعمل بشكل عادي ::: ام الان الملف لايعمل حتي علي الجهاز نفسه ويوجد به هوالي 1200 اسم ارجو المساعدة بارك الله فيكم فا أنا في موقف لايحسد عليه من فقدان البيانات فا هل يوجد حل Private Sub Workbook_Open() ' تكتب مكان الرقم التالي الموجود في الاسفل ' "589CC486" ' رقم قرصك الصلب ' ثم تقوم بمسح العلامة ' أمام الكود التالي 'If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "589CC486" Then 'MsgBox "Attention ! Ce programme est spécial pour M : tahar1983 ", vbCritical, "Violation des droits du programme" 'ThisWorkbook.Close savechanges = True 'End If End Sub
خزاني قام بنشر أغسطس 25, 2014 قام بنشر أغسطس 25, 2014 (معدل) قم بتغير الكود داخل ورقة الاكسل فقط وسوف يقوم بقراءة الكود شاهد الصورة المرفقة Range("c2").Value = Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("c:").SerialNumber) تم تعديل أغسطس 25, 2014 بواسطه خزاني 1
محمد الورفلي1 قام بنشر أغسطس 25, 2014 الكاتب قام بنشر أغسطس 25, 2014 السلام عليكم ورحمة الله اخي الكريم عند فتح الملف كما وضحت لايعمل حتي علي الجهاز الذي تم نسخ الهارد علية فاصبح يظهر رسالة كما في الصورة
خزاني قام بنشر أغسطس 25, 2014 قام بنشر أغسطس 25, 2014 يجب ان يكون كود الورقة مطابق الكود داخل vb Range("c2").Value = Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("c:").SerialNumber) الكود داخل vb If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "6A73DE0A" Then MsgBox "Attention ! Ce programme est spécial pour M : Ben amar khezzani ", vbCritical, "Violation des droits du programme" ThisWorkbook.Close SaveChanges = True End If
محمد الورفلي1 قام بنشر أغسطس 26, 2014 الكاتب قام بنشر أغسطس 26, 2014 السلام عليكم الاخ الفاضل خزاعي لم اتواصل معا من يوم امس نظراً لانقطاع التيار لمد 10 ساعات اخي الفاضل واضح ان شاء الله لديك خبره بالاكواد ارفق مثال توضيحي بالمرفق حيث ستر كف لن يفتح معك ان كان لديك حل فبارك الله فيك افدني به لاهمية البيانات التي بالملف هذا ليس الملف الاصلي بل فعلت به كما فعلت بالملف الاصلي 1.rar
محمد نصري قام بنشر أغسطس 26, 2014 قام بنشر أغسطس 26, 2014 السلام عليكم من بعد اذن الاخ خزاني هذا الملف اخي ويمكنك الان فتحه ووضع الرقم الذي تريد1.zip
محمد الورفلي1 قام بنشر أغسطس 26, 2014 الكاتب قام بنشر أغسطس 26, 2014 (معدل) السلام عليكم ورحمة الله الاخ الفاضل محمد ارجو منك طريفة الفتح بشرح الله يبارك فيك سؤال اخر هل يفقد الملف البيانات الموجودة فيه ام لا لن الملف الموجود لدي حجمه 77 ميجا وشكراً للمساعدة وان شاء الله في ميزان حسناتك تم تعديل أغسطس 26, 2014 بواسطه محمد الخازمي
محمد نصري قام بنشر أغسطس 26, 2014 قام بنشر أغسطس 26, 2014 اخي الكريم كل ماعليك هو تخفيض مستوى الامان للماكرو فيفتح الملف بشكل عادي وبعدها عدل الكود الذي تريد 1
محمد الورفلي1 قام بنشر أغسطس 26, 2014 الكاتب قام بنشر أغسطس 26, 2014 (معدل) لقد فعلت ذالك في الاصدار 2003 واعتقد اني لم استطع ان اوصل الفكرة ساحاول توصيل المعلومة بشكل مفصل صورة رقم 1 هي المشكلة ارفقت لك صورة للملف الذي به نفس المشلكة صورة 2 صورة رقم 1 / صورة رقم 2/ 10.rar وهذا ملف به نفس المشلك اذ فتح معالك بدون ان يفقد البيانات الموجودة به فأ اذان انحلت المشكلة ومشكور علي تعبك معاي تم تعديل أغسطس 26, 2014 بواسطه محمد الخازمي
محمد نصري قام بنشر أغسطس 27, 2014 قام بنشر أغسطس 27, 2014 السلام عليكم ورحمة الله وبركاته تفضل أخي هذا ملفك سليم معافى بالبيانات التي يحتويها سابقا 10.zip 2
محمد الورفلي1 قام بنشر أغسطس 27, 2014 الكاتب قام بنشر أغسطس 27, 2014 (معدل) السيلام عليكم بارك الله فيك استاذ محمد وشكراً وزادك الله من علمة (( وصحيح كما قال الاستاذ الكبير " دغيدي " انتظرو منه الكثير فشكرا لك ولهذا الصرح ولقد تعلمة من هذ الخطاء الفادح " " تم تعديل أغسطس 27, 2014 بواسطه محمد الخازمي
محمد نصري قام بنشر أغسطس 27, 2014 قام بنشر أغسطس 27, 2014 السيلام عليكم بارك الله فيك استاذ محمد وشكراً وزادك الله من علمة (( وصحيح كما قال الاستاذ الكبير " دغيدي " انتظرو منه الكثير فشكرا لك ولهذا الصرح ولقد تعلمة من هذ الخطاء الفادح " " وعليكم السلام ورحمة الله وبركاته فيك بارك الله اخي الكريم واهلا وسهلا فيك
ا بو سليمان قام بنشر أغسطس 28, 2014 قام بنشر أغسطس 28, 2014 ما شاء الله تبارك الله اخوه متحااااااااابين رائعين نسال الله التوفيق للجميع
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.