telboo66

جزاك الله كل خير

جزاك الله كل خير

جرب المرفق شكرا ياباشا على الرد وجزاك الله خير زادك الله من فضله

السلام عليكم ياريت لو تم دمج الكود التالى وهو كود لعدم ظهور نافذة ملف الأكسل فى حالة تعطيل هذا الماكرو والكود هو : 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 أرجو أن تكون وصلت فكرتى لدمج هذه الأكواد وعدم وجود تعارض بينها والسلام عليكم