مشكله فى تشغيل اوفيس X64

[ابن الملك]

أساتذتى الكرام

قمت برفع الملف المرفق من قبل ولكن اخبرنى أحد زملائى بأن الملف لايعمل معه وعندما سألته 

أخبرنى بأنه يعمل على أوفيس 2013 X64   وعندما دخلت الكود وجدته كالتالى 

 

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

ف هل كلمه User 32 

لها علاقه بالموضوع أم لا ........؟؟؟

Convert Numbers to Letters By Excel Ver. 3.rar

[ياسر خليل أبو البراء]

أخي الكريم ابن الملك

استبدال الأسطر التي في أول الموديول في قسم الإعلانات العامة بهذه الأسطر بحيث يعمل الملف على كلا النظامين 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
    Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, 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

وإليك الملف المرفق بعد التعديل

 

 

Convert Numbers to Letters By Excel Ver. 3.rar

[ابن الملك]

1 ساعه مضت, ياسر خليل أبو البراء said:

أخي الكريم ابن الملك

استبدال الأسطر التي في أول الموديول في قسم الإعلانات العامة بهذه الأسطر بحيث يعمل الملف على كلا النظامين 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
    Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, 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

وإليك الملف المرفق بعد التعديل

 

 

Convert Numbers to Letters By Excel Ver. 3.rar

استاذى الاستاذ / ياسر خليل

شكرا لمساعده حضرتك ....

هو ليه مفيش كومنت صورة فيها حكمه النهارده ؟؟؟؟؟؟؟

وفى سؤال تانى بس أنا هسأله فى موضوع تانى

هو فى تعريف للمتغيرات لكل نسخ الاوفيس 97 و 2003 و 2007 و 2010 و ........

 

بس أنا هسأل السؤال ده فى موضوع تانى 

[ياسر خليل أبو البراء]

أخي الكريم البرنس (ابن الملك)

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

بالنسبة للسؤال الآخر إنت عارف النظام ..روح للموضوع واطرحه وإن شاء الله تجد إجابات مني أو من غيري