تصحيح كود

[ابو باسل2016]

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

أستاذتنا الأعزاء عملت شيت مكون من يوزر فوم وشيت اكسل  لشؤون الموظفين على الاكسيل على جهاز لاب توب ولكن عند نقل ملف الاكسيل على جهاز 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

  

 ارجو منكم توجيهي بتصحيح الخطاء كما عهدناكم في هذا المنتدي الاكثر من الرئع 

 

[مهند محسن]

وعليكم السلام نبهنا كثير جداً على هذا الأمر وبما انك جديد بالمنتدى فكان أولى لك ان تقوم بقراءة قوانين وتعليمات المنتدى قبل رفع المشاركة من هنا

قواعد المشاركة بمنتدي أوفيسنا

فلا تنتظر المساعدة من أحد بدون رفع ملف مدعوم بشرح كافى عن المطلوب فكيف لى ان أعرفة مهمة هذا الكود بدون الملف ؟!!!!

كما أنه لا يمكن العمل على التخمين وتجنباً لعدم اهدار وإضاعة وقت كل من يطلع على مشاركتك دون جدوى أو أهمية

[ابو باسل2016]

استاذي القدير مهند 

لحساسية البرنامج وحمايته  لم استطع رفعة على المنتدي 

كونه يخص  بعض المكونات والمعلومات الأمنية