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

أرجو أن تكون وصلت فكرتى لدمج هذه الأكواد وعدم وجود تعارض بينها

والسلام عليكم