عدم الانتهاء التلقائي لواجهة الدخول

[محمود الطحاوي]

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

في الملف المرفق تظهر واجهة الدخول تلقائياً ولكن لا تختفي إلا بالضغط على زر الإغلاق ويظهر لي خطأ ان ماكرو ال endsplash لا يعمل بسبب عدم التمكين أو عدم توافر الماكرو ، مع العلم انني قمت بتمكين الماكرو

كلمة المرور a010b010

endsplash error.xlsm

[a.kawkab]

السلام عليكم 

اضف 

userform1.show

unload me

فى نهاية الكود فى حدث activate ليصبح الكود كالتالى

Private Sub UserForm_Activate()
Dim dTime As Date
Dim i As Integer
For i = 1 To 100 Step 100 / 8
dTime = Now + TimeValue("0:00:01")
Application.Wait TimeValue(dTime)
ProgressBar1.Value = i
Next i
UserForm1.Show
Unload Me
End Sub

مرفق الملف

endsplash error.xlsm

[محمود الطحاوي]

مشكور .. يعمل جيدا 

لكن عند النقر على زر الدخول للملف يظهر نفس الخطأ الخاص بعدم تمكين الماكرو

 

كما أنه يظهر الشيت خلفية للواجهة قبل فتح اليوزرفورم

جزاك الله خيراً 

[a.kawkab]

السلام عليكم

تفضل تم المطلوب

endsplash error.xlsm

[محمود الطحاوي]

بارك الله فيك

يعمل بشكل جيد

شكراً جزيلاً لمجهودك ووقتك