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

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


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





التحقق من قيمة في ملف اكسيل مغلق محمي بباسورد

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



17-07-2021 12:29 صباحا
fathy
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2020
رقم العضوية : 18571
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 142
 offline 

السلام عليكم ورحمة الله وبركاتة 
اهلا احبابي كل عام وانت بخير
محتاج مساعدة الله يجازيكم خير  في التعديل على كود
لدي كود تحقق من قيمة في ملف اكسيل مغلق تماماً 
بمعنى اريد التحقق من قيمة مثلا  77 موجودة في ملف اكسيل اخر في نفس مسار المجلد في شيت محدد و خلية محددة لو نفس القيمة يعطي رسالة صحيح لو القيمة مش موجودة او مختلفة يعطي رسالة خطأ
الكود يعمل بطريقة سليمة ولم يفتح المصنف اطلاقاً
ولاكن المشكلة لم استطع تنفيذ هذا الكود انة يعمل في ملف اكسيل مغلق ومحمي بباسورد من الخارج 
و ارفقت لكم الملفات ملف اكسيل 1 بة الكود 
و ملف اكسيل 2 بها القيمة في خلية A1


الكود المستخدم :

Sub Check()
    Dim con As Object, rst As Object, tFilePath As String
    
    Set rst = CreateObject("ADODB.Recordset")
    Set con = CreateObject("ADODB.Connection")
    
    tFilePath = ThisWorkbook.Path & "2.xlsm"
    
    con.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
             "Data Source=" & tFilePath & ";" & _
             "Extended Properties='Excel 12.0;HDR=NO';"
    rst.Open "SELECT * FROM [Sheet1$A1:A1]", con, 3, 1

    If rst.Fields(0).Value = "909" Then
           MsgBox "صحيح", 64
    Else
           MsgBox "خطأ", 64
    End If
         
    rst.Close: Set rst = Nothing
    con.Close: Set con = Nothing
End Sub
 
 
  تحقق من قيمة في ملف مغلق.rar   تحميل rar مرات التحميل :(4)
الحجم :(21.614) KB


17-07-2021 06:06 مساء
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 793
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 3910
عدد الإجابات: 108
 offline 
look/images/icons/i1.gif التحقق من قيمة في ملف اكسيل مغلق محمي بباسورد
وعليكم السلام ورحمه الله وبركاته
وانت بخير اخى فتحى وجميع الامه الاسلامه بخير وسعادة
جرب هذا الكود لعله يفي بالغرض


Sub Check()
    Dim con As Object, rst As Object, tFilePath As Object, sourceFile As String
    
    Set rst = CreateObject("ADODB.Recordset")
    Set con = CreateObject("ADODB.Connection")
    
    sourceFile = ThisWorkbook.Path & "\2.xlsm"
    Application.SendKeys ("123") ' على اعتبار الباسوورد 123
    Application.SendKeys ("~")
    Set tFilePath = GetObject(sourceFile)
    con.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
             "Data Source=" & sourceFile & ";" & _
             "Extended Properties='Excel 12.0;HDR=NO';"
    rst.Open "SELECT * FROM [Sheet1$A1:A1]", con, 3, 1
    If rst.Fields(0).Value = "909" Then
           MsgBox "صحيح", 64
    Else
           MsgBox "خطأ", 64
    End If
    rst.Close: Set rst = Nothing
    con.Close: Set con = Nothing
End Sub


 

17-07-2021 07:26 مساء
مشاهدة مشاركة منفردة [2]
fathy
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2020
رقم العضوية : 18571
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 142
 offline 
look/images/icons/i1.gif التحقق من قيمة في ملف اكسيل مغلق محمي بباسورد
اهلا بك يا استاذ حسونا 
انا جربت الكود ولاكن المصنف بيفتح و بيفضل مفتوح لاكن مخفي 
و اتاكد من كدة انة بيظهر في ال VBA 
و لو جربت تفعيل الكود مرة اخرى قبل اغلاق المصنفات  لا يظهر الرسالة 
 
و اجريت اختبار اخر قمت بوضع كود يعطي رسالة في ملف يشتغل عند  اول الفتح 
و الكود اشتغل 
الغرض من الكود هو التحقق من القيمة و المصنف مغلق لكي لا يعمل اكواد الملف الثاني 
و الغرض الاساسي هو بعدم تغيير الملفات بملفات مزيفة يحمل نفس اسم الملف 
بمعنى لو الكود شاف القيمة متطابقة يبقا الملف دة صحيح و لو القيمة غير متطابقة يبقا الملف دة مزيف و يتم الخروج من المصنفات 
عشان في ناس ممكن يحطوا ملفات بنفس الاسم و يفتح مصنفات مزيفة ودة كان الغرض 
قولت اشارك بيها ممكن حد يعجبة الفكرة دي
 

05-08-2021 03:19 مساء
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 793
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 3910
عدد الإجابات: 108
 offline 
look/images/icons/i1.gif التحقق من قيمة في ملف اكسيل مغلق محمي بباسورد
أضف هذه السطور قبل End Sub
workbooks("2.xlsm").close
Exit Sub
وان شاء الله هتفي بالمطلوب




الكلمات الدلالية
التحقق ، قيمة ، اكسيل ، مغلق ، محمي ، بباسورد ،


 










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

الساعة الآن 06:50 مساء