ما الخطأ فى هذا الكود

[Ebadelhady]

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

فضلا ما الخطأ فى هذا الكود

Sub AUTO_OPEN()

ShowWelcome

End Sub

Sub ShowWelcome()

Prompt = "åá ÊÑÛÈ Ýì ÇáÏÎæá Çáì ÇáÈÑäÇãÌ"

Commands_Buttons = vbYesNo + vbMsgBoxRtlReading

Title = "ÊÍÐ íÑ"

Project = MsgBox(Prompt, Commands_Buttons, Titels)

If Project = vbYes Then

Sheets("Welcome").Select

Worksheets("Welcome").ScrollArea = "a1:a1"

Workbooks(ThisWorkbook.MacroLesson.xls).Close

End If

End Sub

Sub Save()

ActiveWorkbook.Save

End Sub

Sub AUTO_CLOSE()

Workbooks("ComleteMacro.xls").Close

End Sub

Sub GotoNextSheet()

ActiveSheet.Next.Select

Range("A1").Select

End Sub

Sub GotoPreviousSheet()

ActiveSheet.Previous.Select

Range("A1").Select

End Sub

السطر الثالث من لا يتم تنفيذه

الكتابة بحروف غير مفهومة فى الطر الثانى من الكود هى "هل ترغب فى الدخول الى البرنامج"

MacroLesson.rar

[بن علية حاجي]

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

أخي الكريم، أعتقد أن الخلل في الكود هو في الجزء التالي:

If Project = vbYes Then

Sheets("Welcome").Select

Worksheets("Welcome").ScrollArea = "a1:a1"

Workbooks(ThisWorkbook.MacroLesson.xls).Close

End If

End Sub

وتصحيحه حسب رأيي يكون كما يلي

If Project = vbYes Then

Sheets("Welcome").Select

Worksheets("Welcome").ScrollArea = "a1:a1"

Else

Workbooks("MacroLesson.xls").Close

End If

End Sub

أنظر السطرين الرابع والخامس من هذا الجزء...

والله أعلم

تم تعديل أكتوبر 7, 2010 بواسطه hben

[Ebadelhady]

الأخ الكريم hben

نسخت الكود بعد التعديل وظهر لى رسالة الخطأ المرفقة

[بن علية حاجي]

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

أخي الكريم، إن هذا الخطأ حصل لأن الكود يقوم بغلق الملف ComleteMacro.xls وهو غير موجود (غير مفتوح)... إحذف هذا الجزء من الكود (ثلاثة أسطر) وإن شاء الله سيعمل الكود جيدا...

أخوك بن علية

[Ebadelhady]

أخى الكريم بن علية

لك الشكر عل مساعدتك ولو أمكن تنسخ لى الكود حيث أنه لم يعمل معى

جعله الله فى ميزانك

[بن علية حاجي]

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

أخى الكريم بن علية

لك الشكر عل مساعدتك ولو أمكن تنسخ لى الكود حيث أنه لم يعمل معى

جعله الله فى ميزانك

أخي الكريم أبعث لك الكود في الملف وهو يعنل جيدا بالتغييرات التي قمت بها...

أخوك بن علية

MacroLesson.rar

[Ebadelhady]

أخى الكريم بن علية

الشكر والتقدير لشخصكم المحترم وضبطت معى الآن