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

[klma7lwa]

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

اخوانى الكرام اتمنى من الله ان تكونو جميعكم بخير ان شاء الله

مشكلتى هى عند قيامى بفتح ملف اكسل به فورم باسورد للدخول على الفورم الرئيسى يقوم بأخفاء جميع ملفات الاكسل المفتوحه وكذالك لا يفتح اى ملف اكسل اخر وهذا يسبب لي المشاكل

حولت كثير لحلها لكن دون جدوى برجاء المساعدة فى حل المشكلة

الملف مرفق

تعديل:: وايضاً عند الضغط على زر الخروج يقوم بغلق جميع نوافذ الاكسل المفتوحة التى لا علاقة لها بالملف

تعديل على الفورم.rar

تم تعديل ديسمبر 18, 2012 بواسطه klma7lwa

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

السلام عليكم

السبب وجود اوامر في الكود تقوم بذلك

تفضل المرفق 2003

بع تعطيل اسطر الاوامر

مع تعديل طفيف

اضغط انتر لان كلمة المرور موجودة على التاكست

وهي الرقم 1

قم بمسح التاكست اثناء التصميم بعد الفتح

تعديل على الفورم.rar

[klma7lwa]

اخى الكريم عبدالله باقشير

شكرا على سرعة الرد والمساعدة

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

[klma7lwa]

For ..................UP

[klma7lwa]

للرفع مرة اخرى 

يمكن يكون هناك حل

[klma7lwa]

up

[klma7lwa]

الحمدلله وجت ضلتى ولحل المشكلة التى ذكرتها بالاعلى يرجى اتباع التالى 

فى خصائص اليوزر فورم عدل قيمة ShowModal من True الى False

وفى احداث ملف الاكسل ThisWorkbook

Private Sub Workbook_Open()
Windows("ExcelFileName.xlsm").Visible = False 'ExcelfileName اسم ملف الاكسل الذى يحتوى على اليوزر فورم 

UserForm1.Show
End Sub

وحل مشكلة ما اذا تم تعديل اسم الملف عن قصد او بالخطاء استخدمة الكود التالى

Private Sub Workbook_Open()
Dim MyFlName As String
  MyFlName = "ExcelFileName.xlsm"

    If ThisWorkbook.Name <> MyFlName Then
    MsgBox "ExcelFileName تم اغلاق الملف يرجى عادة تسمية الملف الى ", vbOKOnly + vbMsgBoxRight + vbCritical, "خطاء فى اسم الملف"
    If vbOK Then
    Application.DisplayAlerts = False
    ThisWorkbook.Close
  End If: End If
Application.ShowStartupDialog = False
Application.DisplayAlerts = False
Windows("ExcelFileName.xlsm").Visible = False 
UserForm1.Show
End Sub

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