تعديل كود للاستاذ / مختار حسين

[صلاح الصغير]

مطلوب تعديل الكود ليقوم بالحفظ قبل الغلق

[إبراهيم ابوليله]

اخى صلاح

اين الكود

ياراجل

على العموم

جرب وضع هذا السطر فى نهاية الكود

ActiveWorkbook.Close SaveChanges:=True

تقبل تحياتى

[صلاح الصغير]

ا / ابراهيم

عذرا اعتقد انى نسيت ارفع الكود

لو حضرتك تفتكر كنت محتاج غلق هذه الشاشة 

[إبراهيم ابوليله]

انت بردو لسه ناسى

ولا افتكرت

ارفع الكود ياراجل

[صلاح الصغير]

معلش يا استاذ ابراهيم العتب على الذاكرة اليك الكود

 

(Private Sub Workbook_BeforeClose(Cancel As Boolean
kh_wVisible False
(ThisWorkbook.Close Not CBool(ThisWorkbook.Saved
End Sub

()Private Sub Workbook_Open
Application.Visible = False
kh_AhlnWShln

 

 

 

End Sub

الملف يعمل فقط فى حالة تفعيل الماكرو تظهر شاشة باسوورد

اما فى حالة تعطيل الماكرو تظهر الشاشة السابقة 

المطلوب عند غلق الملف من علامة × تغلق ايضا هذه الشاشة

و لو امكن فى حالة تعطيل الماكرو ان تظهر رسالة مثلا " لا يمكنك فتح الملف " و يغلق الملف

و هذا هو الملف بعد حذف صفوف لتقليل حجمه

كنت هانسه بردو اليوزر : صلاح     الباس : gs2014

Copy of master salah 2015.rar

تم تعديل مايو 14, 2015 بواسطه صلاح الصغير

[صلاح الصغير]

اسف جدا

 

نسيت باس محرر الاكواد : 24229197

اصله ملف امن قومى

[إبراهيم ابوليله]

اخى صلاح

فيه مشكله

الملف مش بيفتح اساسا

[صلاح الصغير]

ا / ابراهيم

الملف شغال

انا حملت نفس الملف اللى رفعته و شغال معايا

مش عارف حضرتك فى غنى انى اقولك فعل الماكرو لان الملف لا يفتح فى حالة تعطيل الماكرو و تظهر الشاشة 

اللى فى المشاركة 3

[ياسر خليل أبو البراء]

أخي الكريم صلاح

ما المشكلة في الملف المرفق .. الملف يعمل بشكل جيد جداً .. لم افهم المطلوب في حقيقة الأمر ..

ويا ريت ترفع الملف مرة أخرى بدون باسورد أو خلي الباسورد حاجة سهلة 1 مثلاً لسهولة التعامل مع الملف

[صلاح الصغير]

الحمد لله على السلامة ا / ياسر

 

ممكن يكون الموضوع ليس ذو اهمية او شى من هذا القبيل و لكن الموضوع للتعلم او لاثراء الموضوع ان امكن

المطلوب 1 : فى حالة غلق الملف تفضل شاشة موجودة يجب غلقها ايضا (منها صورة فى المشاركة 3) لا اعرف ماذا تسمى ، هل يمكن غلقها مع غلق الملف من ال x

المطلوب 2 : هلى يمكن ظهور رسالة مثلا " لا يمكنك فتح الملف " تغلق اليا و ذلك فى حالة تعطيل الماكرو بدلا من هذه الشاشة

 

اليوزر : صلاح       الباس : 1

محرر الاكواد بدون باس

 

و شكرا           

Copy of master salah 2015.rar

[صلاح الصغير]

شكلك بتبدع يا ابو اليسر

i ' am waiting

[ياسر خليل أبو البراء]

أخي الكريم صلاح

والله بحاول بقالي ربع ساعة ولكن يبدو أنني لم أوفق في الوصول للمشكلة

عموما حاول بهذا السطر .. قد يحل المشكلة

Application.Quit

بدلاً من الأمر Close الخاص بالمصنف !!

الملف معقد إلى حد كبير وفيه إخفاء لنطاق مسمى   بس على مين تخفيه !!

عموماً حماية الملف جيدة جداً ..

إن شاء الله تجد العون من الأخوة الكرام بالمنتدى

[صلاح الصغير]

الف الف شكر على المتابعة

و الدعم الوافر و يكفينى انك قلت ان الملف محمى جيدا

ده كله من خلاصة الاساتذة الافاضل بارك الله فيهم و عليهم

معلش يا ابو ياسر

اخوك no اكواد ممكن بس تقولى السطربدلا من اى سطر

 

وشكراااااااااااااااااااااااا

[ياسر خليل أبو البراء]

افتح الفورم في محرر الأكواد اللي بيظهر أثناء فتح الملف .. هتلاقي زر الأمر خروج نهائي .. شوف السطر اللي فيه Close وضع مكانه السطر اللي أشرت إليه

هتحل جزء بسيط من المشكلة وليس حل للمشكلة بشكل كامل

[صلاح الصغير]

اشكرك استاذ / ياسر على المحاولة

و لكنها لم تنجح هذا الزر كان يغلق فعلا الملف بالكامل

المشكلة فى الغلق من علامة x

[ياسر خليل أبو البراء]

جرب الكود التالي

ThisWorkbook.Saved = True
Application.Quit

في الحدث Worksheet_BeforeClose

[صلاح الصغير]

عارف يا ا / ياسر 

على حد اجتهادى البسيط ان التريكه كلها فى الكود ده اللى انا مش فاهمه طبعا

لان كود حدث الورقة بيقول ده طبعا على مستوى نظرى ايام ما كان عندى نظر 

ان لما افتح الملف شغل الكود و لما اقفل متشغلوش

(Sub kh_wVisible(ibol As Boolean
Dim nBook As String
nBook = ThisWorkbook.Name
(With Windows(nBook
    If .Visible = Not ibol Then .Visible = ibol
End With
End Sub

[صلاح الصغير]

طيب بلاش شوف الملف ده كده

لعله

خلى بالك لو وصلت لحل هتعدلى على ملفى او على الاقل تقولى الطع الكود فين و بدل ايه

اكود non  اكواد

عدم ظهور ناذة لاكسيل فى حالة تعطيل الماكرو.rar

[ياسر خليل أبو البراء]

إليك شرح لأسطر الكود لعله يوصلنا لحل ..

Sub Auto_Open()
'يتم تنفيذ الأسطر بمجرد فتح المصنف
'---------------------------------
'إظهار نافذة المصنف الحالي
    kh_wVisible True
End Sub

Sub Auto_Close()
'يتم تنفيذ الأسطر بمجرد إغلاق المصنف
'---------------------------------
'إخفاء نافذة المصنف الحالي
    kh_wVisible False
'إغلاق المصنف الحالي مع حفظ التغيرات
    ThisWorkbook.Close Not CBool(ThisWorkbook.Saved)
End Sub

Sub kh_wVisible(ibol As Boolean)
'يقوم الكود بإظهار وإخفاء نافذة المصنف
'-------------------------------------
    Dim nBook As String
'تعيين المتغير ليساوي اسم المصنف الحالي
    nBook = ThisWorkbook.Name
'بدء التعامل مع نافذة المصنف الحالي
    With Windows(nBook)
'يقوم بالإظهار [True] قيمته [ibol] إذا كان المتغير المسمى
'يقوم بالإخفاء [False] قيمته [ibol] إذا كان المتغير المسمى
        If .Visible = Not ibol Then .Visible = ibol
    End With
End Sub

أخي الكريم صلاح .. المتغير المنطقي ibol يكون بشكل افتراضي False أي أن الحالة الافتراضية هي إخفاء المصنف .. وفي حالة تعطيل الماكرو لا يتم تنفيذ السطر الخاص بإظهار المصنف ، بالتالي لن يظهر المصنف لأنه لن يأخد القيمة المنطقية True

تقبل تحياتي

[صلاح الصغير]

this is very good

but i'am fasalt

i' am so sorry

my sleeping time

to be continue

thanks

تم تعديل مايو 17, 2015 بواسطه صلاح الصغير

[صلاح الصغير]

ا / ياسر

كده كويس لو جربت الملف هتلاقيه بيحفظ قبل الغلف و ده موجود فى هذا السطر

(ThisWorkbook.Close Not CBool(ThisWorkbook.Saved

فين بقى الامر اللى بيخلى الملف يغلق كاملا و لا يظهر هذا الشاشة

ايه الفرق بين الكودين

 

(Private Sub Workbook_BeforeClose(Cancel As Boolean

kh_wVisible False
(ThisWorkbook.Close Not CBool(ThisWorkbook.Saved

End Sub

 

()sub auto_close

kh_wVisible False
(ThisWorkbook.Close Not CBool(ThisWorkbook.Saved
End Sub

تم تعديل مايو 18, 2015 بواسطه صلاح الصغير

[ياسر خليل أبو البراء]

أخي صلاح

طيب جرب تستخدم الكود الثاني في موديول بدلاً من الأول ..يعني كتجربة

()sub auto_close

kh_wVisible False
(ThisWorkbook.Close Not CBool(ThisWorkbook.Saved
End Sub

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

[صلاح الصغير]

yes yes yes

                 

[ياسر خليل أبو البراء]

الحمد لله أن تم المطلوب على خير

ونتعلم مما قلت درساً هاماً جداً ..

لا تستبعد أبداً أي احتمال في حل المشكلات (حتى ولو بدا لك الاحتمال تافهاً ومستبعداً ...) فلربما كان أتفه الاحتمالات هو الحل الأمثل لأصعب المشكلات ..

تقبل تحياتي