عليكم السلام
اخى الكريم يجب ان ترفع ملف مرفق موضح به طلبك ليتمكن الاخوه من مساعدتك

وعليكم السلام أخي الكريم
لا يمكن إغلاق شيت محدد دون إغلاق المصنف بالكامل .. يمكن إخفاء الشيت لكن لا يغلق

السلام عليكم ورحمة الله وبركاته
كما ذكر أخونا الكريم نور الدين هي مشكلة نرجو أن يكون لها حل ما.
تقبلوا تحياتي العطرة أحبتي الكرام

السلام عليكم و رحمة الله و بركاته
معذرة على الخطأ الذي وقع مني في طرح السؤال انا قصدي الملف و ليس الشيت
و اعطي مثالا على ذلك:
انا فاتح ملف اسمه A
فعندما افتح ملف اخر اسمه B والذي فيه اليوزرفورم عندما اريد غلق اليوزرفورم ينغلق الملف A معه فانا اريد ان ينغلق B فقط
و كذلك عند فتح B أريد من اليوزرفورم ان يقرا من الملف B و لا يقرأ من الملف A
و جزاكم الله خيرا
اظن ان هذا السؤال لا يتطلب رفع ملف بارك الله فيكم
مفيش مشاركة لا تتطلب رفع ملف ... والا ستتجاهل من قبل الأساتذة ولا يتم الرد عليها ولا الإستجابة لها

جرب حضرتك هذا الكود

 &nbsp; &nbsp; &nbsp; &nbsp;<br />
Sub close_sheet()<br />
&nbsp; On Error Resume Next<br />
Dim Mybook As String<br />
Set Mybook_close = ActiveWorkbook<br />
&nbsp; &nbsp; Application.ScreenUpdating = False<br />
&nbsp; &nbsp; Application.DisplayAlerts = False<br />
&nbsp; &nbsp; Mybook_close.Close SaveChanges:=True<br />
&nbsp; &nbsp;On Error GoTo 0<br />
&nbsp;End Sub<br />
<br />
<br />
<br />

أحسنت أخي العزيز خالد ومشكور على المشاركات الفعالة.

بارك الله فيكم و جزاكم الله خيرا
لقد حلت المشكلة
الحمد لله رب العالمين و الشكر موصول لكم جميعا