طلب تعديل بزر أمر للخروج

[عبد العزيز البسكري]

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

إخواني الأفاضل و أساتذتي الكرام بهذا الصرح التعليمي الكبير .. لو تكرمتم فضلاً لا أمرًا بالمساعدة بضبط الكود اللازم لزر أمر الخروج للفورم 2 و الفورم 5 ..

حاولت و حاولت لغاية الملل ولم أتمكن من إيجاد الحل أبدًا للزّر المشار إليه بالسّهم الأحمر فعند الضغط عليه يعيد إظهار الفورم 4 و نفس المشكله بزر أمر الخروج 2 بالفورم 2 ..

قمت بتعطيل الكود مصدر الخلل .. كما تلاحظون .. لأنّه ممكن يسبّب الازعاج كإعادة تشغيل الجهاز مثلاً ..

كلمات المرور على التّوالي : 111 - 222 - 333 ....

بارك الله فيكم و لكم مسبّقًا

فائق إحتراماتي للجميع

 

 

صلاحيات المستخدمين.rar

[أبو حنــــين]

السلام عليكم

اخي عبد العزيز

عندما نضع Cancel = True  في الحدث  Workbook_BeforeClose  فإنه لا يمكن الخروج

 

[عبد العزيز البسكري]

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

أخي الكريم " أبو محمد الأمين " .. بارك الله فيك و لك على التّجاوب الطيّب و نيّة المساعدة .. هل من الممكن سيّدي الكريم أن تضع ما ذكرته داخل الملف

لا تقلق ..الملف لن يسبب لك أي تلف " لا قدّر الله " بجهازك ..

بارك الله فيك و جزاك خير الجزاء مقدّمًا

خالص تحيّاتي

[أبو حنــــين]

السلام عليكم

قمت بإجراء ما يلي

إيقاف الكودين

Private Sub UserForm_Activate()
Me.Repaint
'Application.OnTime Now + TimeValue("00:00:05"), "VanishForm"
End Sub

'--------------------------------------------------------------------

Sub Demarrer()
'Application.OnTime Now + TimeValue("0:0:01"), "MiseAJour"
End Sub

ثم كتابة الكود التالي في زر الخروج

Private Sub CommandButton2_Click()
ThisWorkbook.Save
With Application
.DisplayAlerts = False
.Quit
End With
Unload Me

End Sub

 

[عبد العزيز البسكري]

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

ألف شكر و بارك الله فيك و لك أخي الكريم " أبو محمّد الأمين "

جزاك الله خير الجزاء و زادها بموازين حسناتك

تم عمل المطلوب و الحمد لله

فائق إحتراماتي لشخصك القدير