خطأ بكود اليوزر فورم عند بداية التشغيل

[محمد خليل السيد]

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

مرفق ملف اكسيل به يوزر فورم المفترض انه يظهر فى بداية التشغيل لاختيار المستخدم المصرح له بالدخول على الشيتات المخصصة له ،ولكن عند حماية الشيتات لم يعمل اليوزر فورم وتظهر رسالة تفيد بان بعض الشيتات محمية ،وجربت اضع كود لفك حماية الشيتات عند الفتح ولكن لم اصل لحل ،فوضعت الملف بين ايديكم لايجاد الحل واثقا تماما انها مشكلة بسيطة بالنسبة لكم فانا فى بدايات تعلمى للـ VBA .فأرجو ان تتحملونى فى اسئلتى الكثيرة.

سؤال آخر : كيف ادمج هذا الكود 

Private Sub Workbook_Open()
shoFrm1
End Sub

بهذاالكود

Dim ws As Worksheet
Sub UnProtectAll()
    For Each ws In Worksheets
        ws.Unprotect Password:="mkh"
    Next
End Sub

اليوزر والباسورد فى حالة فتح اليوزر فورم : admin

شكرا مقدما

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

MCI_SALES_3.rar

تم تعديل يونيو 22, 2016 بواسطه محمد خليل السيد
تعديل رابط الملف

[محمد خليل السيد]

للرفع

وتم رفع الملف على المنتدى بدل الميديا فير

MCI_SALES_3.rar

تم تعديل يونيو 22, 2016 بواسطه محمد خليل السيد

[محمد خليل السيد]

للرفع

[محمد خليل السيد]

للرفع