كيف يمكن عمل زر حفظ للملف .. مع وجود حواجز في اكواد اخري ؟؟

[حسام مصطفي]

السلام عليكم

الاساتذة الكرام

في موضوع لي وطلب بعنوان (  احتاج تعديل في الكود الخاص باخفاء اعمدة حسب الشهور  )

علي الرابط  http://www.officena.net/ib/index.php?showtopic=47648

اجاب علي بكل ابداع القدير / طارق محمود

 

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

الموجودة بالملف واخبرني بها اجمالا

Private Sub Workbook_BeforeClose(Cancel As Boolean)
...
..
End Sub

وحيث ان الموضوع اكبر من قدراتي ومعلوماتي فحصلت علي هذه المعلومة الاجماليه واعتقد انها السبب

وراء عدم تمكني من عمل زر ( حفظ ) في اي صفحة من صفحات الملف

 

المطلوب ....

هو ما هو الكود المناسب لعمل زر حفظ في اي صفحة من صفحات هذا الملف في ظل وجود الاكواد الموجودة به حاليا

في انتظار ردوكم الراائعة

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

 

 

 

Copy of sssssss.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / حسام مصطفي

بارك الله فيك

اليك اخي هذا الحل ... بالتحايل علي الحواجز وعلي الكود الموجود في ملفك ليمكن تصميم زر حفظ

في انتظار رأيك فقد تم تنفيذه ع السريع .........

ارجو ان يفي بطلبك

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

 

 

Copy of sssss+s+s.rar

[حسام مصطفي]

الف مليون شكر

هذا هو المطلوب بالفعل وكما اريد تماما

انت بجد شخص راااائع وتدخل في الاوقات المناسبة

لا اجد ما اشكرك به استاذنا

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

[حمادة عمر]

الاخ الكريم / حسام

بارك الله فيك

تقبل خالص تحياتي ...

وجزيل شكري علي كلماتك الطيبة الرقيقة

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

[حسام مصطفي]

هل يمكن عمل زر خروج لهذا الملف

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / حسام

بارك الله فيك

قم بعمل زر في صفحة الاكسيل او اي شكل

وقم بربطه مع الكود التالي

Sub SAMA()
Dim c
c = MsgBox("هل تريد الخروج من البرنامج .. مع تحياتي / حمادة عمر ", 36, "تحذير!!")
    If c = vbYes Then
             Application.Quit
    Else
    Cancel = True
    End If
End Sub

وسوف تظهر رسالة بعد الضغط علي نعم تطلب منك هل تريد الحفظ ام لا

ثم يتم الخروج من البرنامج

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

[حمادة عمر]

اخي الكريم

ان لم يمكنك تنفيذ ذلك ابلغني وسوف ارسل لك ملف به الزر المطلوب

تقبل تحياتي

[حمادة عمر]

رمضـــان كـــريـــم