السلام عليكم ورحمة الله وبركاته
أستاذتنا الأعزاء عملت شيت مكون من يوزر فوم وشيت اكسل لشؤون الموظفين على الاكسيل على جهاز لاب توب ولكن عند نقل ملف الاكسيل على جهاز pc يعطيني أخطاء في الاكواد التالية :
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
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 Const WS_MINIMIZEBOX As Long = &H20000
Private Const GWL_STYLE As Long = (-16)
Private Const WS_SYSMENU As Long = &H80000
Private Const SW_SHOWMAXIMIZED = 3
ارجو منكم توجيهي بتصحيح الخطاء كما عهدناكم في هذا المنتدي الاكثر من الرئع
