عدم فتح المستند عند إغلاق الماكرو

[الشاب يوسف]

الأخوة الكرام اريد الكود الذى لا يسمح بفتح المستند فى حالة إغلاق الماكرو وتظر رساله تخبرنى بضرورة تفعيل الماكرو ولكم جزيل الشكر

[الشاب يوسف]

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

[يوسف السيد]

هذ الكود من انجازت الاستاذ خبور خير .. ضعه فى موديول

Option Explicit


Sub Auto_Open()

kh_wVisible True

End Sub

Sub Auto_Close()

kh_wVisible False

ThisWorkbook.Close Not CBool(ThisWorkbook.Saved)

End Sub


Sub kh_wVisible(ibol As Boolean)

Dim nBook As String

nBook = ThisWorkbook.Name

With Windows(nBook)

	    If .Visible = Not ibol Then .Visible = ibol

End With

End Sub

[ابو تميم]

هذا هو رابط الموضوع المقصود

http://www.officena.net/ib/index.php?showtopic=42107&st=0

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

بارك الله فيك أخي يوسف وفي معلمنا الكبير الذي دائماً نستقي من علمه

[الشاب يوسف]

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

[عادل ابوزيد]

للرفع