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