اخطاء في البرنامج مع تغير نوع الاوفس من 2007 حتى 2016 والنسخة 32 بت و 64 بت

[محمود أبوالدهب]

اخطاء في البرنامج مع تغير نوع الاوفس من 2007 حتى 2016 والنسخة 32 بت و 64 بت

مصمم البرنامج على اوفس 2016 النسخة 64 بت 

ولكن تواجهنى بعض المشكلاات عند فتحة من اصدرات 2007 و 2010 النسخة 32 بت و 64 بت 

فعند الفتح من النسخة 2007 اصدار 232 بت ظهرت لى تلك الاخطاء 

وايضا يوجد بعض الاكواد لا تعمل 

 

 

وهذا هو ال farmat الخاص به 

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

 

والاغرب من كل هذا واضع حماية لمكرو وحماية لصفحات العمل ولكن بعد تلك الرسائل والفتح على اى وضع اجد ان حماية ورقات العمل مازالت موجوده ولكنها بدون باص ورد بمعنى لو واضع باس مثلا 123 عند فتح الحمايية يفتحها بدون اى باصات 

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

بالبداية كنت اظن الامر مقتصر على اجهزت السيستم بالعمل لانها اجهزة عرض وليس جهاز كام اى جهاز سيرفر كل ذاكرته هى 1 جيجا ويتم فتح السيستم من السيرفر الرئيسي بالقاهرة 

ولكن عند فتح البرنامج اليوم من الاب وكنت قد نززلت له نسخة قديمة عندى اوفس 2007 الاصدار 32 بت ظهر الامر معي عندها توقفت 

لانى اريد حماية قصوة للبرناج حتى لا يتم سرقته 

فهل من حل اعزكم الله

وشكرا جزيلا لكم  

 

 

 

 

[محمود أبوالدهب]

للمتابعة اعزكم الله

 

[محمود أبوالدهب]

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

 

[deebsagheer]

واجهتني نفس المشكله فما هو الحل افادكم الله

[محمود أبوالدهب]

تختلف حل المشكلة على حسب نوع الخطأ بأنمكانك ارفاق الملف الى به الخطأ مع ذكر ما هو اتلخطأ وساحاول معك حل هذا الخطأ .

[deebsagheer]

المشكلة أن الملف على كمبيوتر يستخدم ويندوز اصدار 32 بت و إذا نقلت الملف على كمبيوتر يستخدم ويندوز اصدار 64 بت فإنه يتم حذف الأكواد تلقائيا و لا تظهر شاشة VBA

[محمود أبوالدهب]

قم بفتح موضوع جديد بالمنتدى واكتب فيه الامر  وضع فيه الملف او جزء منه المصحوب بالكود وسيقوم الخبراء بمساعدتك كما ساعدونى

ولكن كمثال بسيط تعلمته من هنا ولم اطبقة بعد مثلا هذا الكود 

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

نقوم بتعديلة الى 

Private Declare ptrsafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Longptr, ByVal nIndex As Longptr) As Long

او هذا التعديل الى يظبط معاك 

Private Declare ptrsafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Longlong, ByVal nIndex As Longlong) As longLong

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

راجع تلك المواقع

https://msdn.microsoft.com/en-us/library/ee691831(office.14).aspx

http://www.jkp-ads.com/articles/apideclarations.asp

https://msdn.microsoft.com/VBA/Language-Reference-VBA/articles/64-bit-visual-basic-for-applications-overview

وبتلك المواقع ستجد ان شاء الله حل لكفية ربط الكودين بحيث ان الملف يعمل على النظامين 32 و 64 عن طريق دالة IF " ملحوظة مجربتش الامر بعد "

اتمنى تصل للحل 

تم تعديل يوليو 31, 2017 بواسطه محمود أبوالدهب

[محمود أبوالدهب]

مثال اخر لكود لنظام 32 بت وتعديله لنظام 64 بت راجع الفروق في الكلمات وتعلم وهذا كود بى if ليعمل على النظاتمين 32 و 64 

#If VBA7 Then
    Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long
    Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hwnd As LongPtr) As Long
#Else
    Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long
#End If

[محمد عبدالسلام]

السلام عليكم ورحمة الله وبركاته

اخي الكريم يمكنك تتبيت اوفيس 2010 .32 bit على نسخة ويندوز 64-bit  وستحول المشكلة ان شاء الله

[محمود أبوالدهب]

اخى محمد اشكرك على ردكم الكريم 

الفكرة ليست عندى فانا عندى جميع اصدارات الاوفس النسختين 64 و 32 بت ولكنى صمت برنامج وعند نشرة سيقوم المستخدمن باستخدامم اصدارات مختلفة وعلليه كنت افكر 

بتجربته بجميع الاصدارات واعرف الاخطاء ولله الحمد حللت معظمها 

واشكرم على النصيحة الغالية استاذ محمد عبدالسلام

 

اسف استاذ محمد ظننت الرد لى ولكنه حل عملى لما يعرضه  الاخ deebsagheer لمشكلتة  اشكرا جزيلا مرة اخرى

تم تعديل يوليو 31, 2017 بواسطه محمود أبوالدهب