مشكلة في فتح الملف

[mohamedyousef]

السلام عليكم

السادة الافاضل

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

مشكلة.xlsm

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركاته

الطريقة الاولى

اجعل الفورم في وضع التصميم

• من نافذة الخصائص (Properties) على اليسار، ابحث عن خاصية ShowModal.

• قم بتغيير قيمتها من True إلى False

• 

• الطريقة الثانية بالكود كما بالمرفق

• حل المشكلة1.xlsm

تم تعديل منذ 22 ساعات بواسطه عبدالله بشير عبدالله

[mohamedyousef]

السلام عليكم

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

وشكرا 

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركاته

الطريقة الاولى حسب علمى ليس هناك حل الا بعمل كلمة مرور لملف العمل

والطريقة الثانية يتم فتح ملف احر بدون فتح ملف العمل

فاعتقد الثانية تناسبك اكثر من الحل الاول

ربما   الافاضل يالمنتدى لديهم ما بفيد 

تحياتي

[Foksh]

مشاركة مع الأستاذ @عبدالله بشير عبدالله ، هذه تجربتي ..

استخدمت الحدثين التاليين في ThisWorkbook :-

Private Sub Workbook_Open()
    Application.IgnoreRemoteRequests = True
    Application.Visible = False
    UserForm6.Show vbModeless
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Response As VbMsgBoxResult
    Dim MsgText As String
    MsgText = "سيتم اغلاق جميع أوراق العمل ومشاريع آكسل المفتوحة ، هل ترغب بالاغلاق؟"
    Response = MsgBox(MsgText, _
                      vbCritical + vbYesNo + vbMsgBoxRight + vbRtlReading, _
                      "تنبيه هام - إغلاق النظام")
    If Response = vbNo Then
        Cancel = True
        Exit Sub
    End If
    Application.IgnoreRemoteRequests = False
    ThisWorkbook.Saved = True
    Application.Quit
End Sub

 

وقمت بتعديل بسيط على الحدث UserForm_Activate :-

Private Sub UserForm_Activate()
    ThisWorkbook.Application.Visible = False
    Load UserForm6
End Sub

 

 

مشكلة.xlsm

[عبدالله بشير عبدالله]

احسنت جزاك الله كل خير

تمت التجربة  ينجاح