حذف أكواد فيجوال بيسيك عند فتح ملف اكسيل على ويندوز10

[deebsagheer]

لدي ملف به أكواد فيجوال بيسيك يعمل على ويندوز 8 بشكل ممتاز و عند فتحه على جهاز به ويندوز 10 يتم حذف مشروع فيجوال بيسيك الموجود و يظهر أسماء الأوراق المكتوبه بلغة عربيه كرموز غير مفهومه و يعطي عند الفتح رسالة name conflicts with existing module ,project, or object library

ثم اذا وافقت تظهر رسالة عثر اكسيل على محتوى غير قابل للقراءة في الملف هل تريد استرداد محتويات هذا المصنف؟ اذا كنت تثق بمصدر المصنف انقر نعم.

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

[mooon984]

كانت واجهتنى مثل هذه المشكله حيث قمت بتسطيب الاكسيل فقط من مجموعه الاوفيس فكانت تظهر مثل هذه المشكله فقمت بالغاء تسطيب الاكسيل واعاده تشغيل الجهاز  وقمت بتسطيب مجموعه الاوفيس كامله فاشتغل بدون ادنى مشكله حاول تعمل كده وان شاء الله المشكله ستحل

[deebsagheer]

اتفضل

فقط كان الملف كبير و لا يمكن تحميله فقمت بتصغير مساحته بحذف بعض اوراق العمل

rent.xls

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

أولا الملف المرفق ينقصه الكثير من أوزراق العمل المطلوبة في الكود

ثانيا ربما تكون نسخة تظامك الجديد 64 بت والكود مجهز ليعمل على 32 بت فقط

لذلك يرجى تغيير الكود في بداية userform3 إلى

#If Win64 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 Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) 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
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
#End If

لاحظ كلمة ptrsafe بين كلمة declare و function

إن شاء الله يعمل جيدا بعد هذه التعديلات

[deebsagheer]

شكرا جزيلا لاهتمامك

لكن انا الحمد لله حليت المشكله و كانت متمثلة في اعدادات لغة الكمبيوتر التي لم تكن تدعم اللغة العربية

هل هذا الكود يوضع في بداية أكواد كل اليوزر فورم ام مرة واحده