مشكلة فى زر الحفظ

[احمد حبيبه]

الاخوه الاعزاء

ارجو مساعدتكم....هذا كود رائع لاخفاء جميع الصفحات فى حالة عدم تفعيل الماكرو  وظهور فقط صفحة اسمها   macros  وهو يعمل بكفاءة ولكن بة مشكلة بسيطة وهو ...... وهو ان زر الحفظ لا يعمل مع هذا الكود .... والمطلوب ضبط الكود ليسمح بالحفظ عن طريق زر الحفظ ... ولكم الشكر والتحية

ماكرو.rar

[محمود_الشريف]

أخى الكريم

الأستاذ / أحمد

على حسب فهمى من طلبك 

أنكم تريدون تفعيل زر حفظ الموجود بورقة 1

وأن الكود الموجود بالملف يمنع ذلك 

وعليه قمت بعمل تفعيل للزر 

مع تعديل الكود

نسأل الله أن يكون هو المطلوب

وتقبلوا منى وافر الإحترام والتقدير

m_elshrief_macro.rar

[محمود_الشريف]

الشرح 

الملف الأصلى كان بالكود خاصية منع الحفظ العادى والسماح بالحفظ بإسم

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.EnableEvents = False
    Call CustomSave(SaveAsUI)
    Cancel = True
    Application.EnableEvents = True
    ThisWorkbook.Saved = True
If Me.Saved = False Then Me.save
End Sub

قمت بحذف هذه الجزئية السابقة

[محمود_الشريف]

وإذا اردت السماح فقط بعمل خاصية للحفظ فقط ومنع الحفظ بإسم 

أضف هذا الجزء للكود

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then Cancel = True
End Sub

وإذا أردت السماح فقط بعمل خاصية للحفظ بإسم وتعطيل أى منع الحفظ العادى

أضف هذا الجزء للكود

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
If SaveAsUI = True Then Cancel = False
End Sub

 

[أبو محمد عباس]

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

الاستاذ والاخ الحبيب محمود الشريف

ما شاء الله مشاركات رائعة وعمل مميز

زادك الله من فضله علما وشرفا

تقبل فائق احترامي وتقديري

[محمود_الشريف]

أخى فى الله

الأستاذ القدير / أبو محمد عباس

بارك الله فيكم

ولقد أسعدنى مروركم وكم أسعدتنى كلماتكم الطيبة العطرة 

جزاكم رب العالمين عنا خير الجزاء

وتقبلوا منى وافر الإحترام والتقدير

[۩◊۩ أبو حنين ۩◊۩]

أخى العزيز محمود_الشريف

بارك الله فيك ولك

دوما مقدم للحلول التى نحتاجها

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

وتقبل منى وافر الإحترام والتقدير

[محمود_الشريف]

أخى فى الله

الأستاذ الكريم / أحمد غانم

بارك الله فيكم

ولقد أسعدنى مروركم ودعاؤكم

نسأل الله أن يكون لكم نصيب منه 

جزاكم رب العالمين عنا خير الجزاء

وتقبلوا منى وافر الإحترام والتقدير

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب

هلى يمكن عمل كود يقوم بحفظ الملف save as

فى \d:\ ahmed

وذلك فى وقت محدد وفى تاريخ محدد بمعنى  الساعه 10 ص يوم 1/3/2014  .. يقوم بعمليه النسح . دون اظهار دلااله على الحفظ

ثم يقوم بمسح نفسه دون اشعار المستخدم ..... او يظهر الاشعار وذلك بعد مسح الملف نهائيا

 

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

واذا امكن ذلك برجاء شرح الكود ....

جزاك الله كل الخير.... وجعله الله فى ميزان حسناتك

[احمد حبيبه]

الاخ العزيز

محمود_الشريف

جزاك الله كل الخير وبارك لك وعليك

المشكله في  التالى .... في الملف الاصلى في المشاركه رقم 1 ... قبل تعديل الكود فان زر الحفظ لا يعمل ... لكن الكود يعمل بكفاءة في التالى  :عند عدم تفعيل الماكرو تختفى كل الصفحات وتظهر فقط صفحة macros  وعند تفعيل الماكرو يحدث العكس ..... اما اذا تم تعديل الكود كما تفضلت حضرتك  فان زر الحفظ يعمل بالفعل ولكن الكود لم يعد يعمل ..... فعند عدم تفعيل الماكرو لا يحدث شيئ  ... والمطلوب اخى العزيز انه عند عدم تفعيل الماكرو  تختفى جميع الصفحات وتظهر ورقة  macros  فقط وعند تفعيل الماكرو تختفى صفحة macros  وتظهر جميع الصفحات ... وهذا يحدث بالفعل في الملف الموجود في المشاركه رقم 1 و....وما اريده ان نحافظ على وجود هذه الخاصية وفى نفس الوقت زر لحفظ يعمل ........ واسف على الاطاله ولسيادتكم وافر التحية  والامتنان على مساعدتك الغالية

[احمد حبيبه]

للرفع ........ جزاكم الله خيرا

[احمد حبيبه]

لقد اتعبنى هذا الكود...... الا يوجد له حل .....وللجميع  كل التقدير والاحترام

[احمد حبيبه]

برجاء من الاخوه الافاضل ..... المساعده ان امكن وسمح وقت حضراتكم .... اثابكم الله وزادكم من علمه .... اخوكم في الله احمد