مشكلة الاكسل فى win 10

[Mr. shehata]

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

[أ / محمد صالح]

الكود في الملف مكتوب لنواة ويندوز مختلفة مثلا 32بت والنسخة الحالية 64بت

وإذا كان لك صلاحية الدخول على الكود يمكنك وضع كلمة ptrsafe قبل اسم الدالة أو الإجراء مثل هذا الكود

#If VBA7 Then
    Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
#Else
    Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

بالتوفيق

[Mr. shehata]

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

تم تعديل أكتوبر 9 بواسطه Mr. shehata

[أ / محمد صالح]

التواصل مع صاحب الكود لتعديله ليتوافق مع نسخ 64 بت

او

تغيير نظام التشغيل ل 32بت

[Mr. shehata]

شكرا جزيلا استاذى العزيز علي الاهتمام وهذه شيم الكرام