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

[عادل ابوزيد]

استاذى الفاضل عبد الله باقشير

لك منى لك الحب والتقدير على ردك الكريم .. كما ارجو منك ان تكون طويل البال معى .. لاننى من النوع اللى فكره ممكن تجعله يجلس على الجهاز اوقات طويلة جداً للبحث عن حل لها .

وهذا الموضوع اعجبنى جدا جداً جدددددد اً

لانى عارف طالما مستوى امان الماكرو مرتفع فلا يعمل اى كود .. فوجدت مع ارتفاع الماكرو الكود الخاص بسعادتك اشتغل وعمل اقفال لنافذة الملف وطالما الكود اشتغل وانا صراحة مش عارف ديناميكية عمله ( وجاز ده اللى جعلنى اسأل كثير ) فده يجعل عندى رغبه فى توظيفه للحمايه الكاملة .. فكرت فى قفل محرر الاكواد مره ..ثم فكرت فى قفل الملف مره .. ثم فكرت فى جعل وظيفه unhide غير فعاله .. حتى لا يمكن ان نرى الملف

دى الموضوع .. وارجو الا اكون قد اثقلت عليك .. وتقبل اعتذارى .. وتقدير شغفى على التعلم منك ومن امثالك العباقرة فى منتدانا الكبير

[عبدالله باقشير]

السلام عليكم

الاخ ابراهيم

لا استطع تنفيذ الكود على ملفك

لكثرة الاكواد فيه وخاصة المتعلفة بالدخول والخروج

[عبدالله باقشير]

السلام عليكم

الاخ admbrk

لانى عارف طالما مستوى امان الماكرو مرتفع فلا يعمل اى كود .. فوجدت مع ارتفاع الماكرو الكود الخاص بسعادتك اشتغل وعمل اقفال لنافذة الملف

هو لا يشتغل اطلاقا عند تعطيل الماكرو

وانما الاقفال هذا حدث عندما اغلقت الملف آخر مرة والماكرو ممكن

هذه الخاصية للنافذه تبقى ملازمة لنفس الملف ولا تؤثر في الملفات الاخرى

لهذ اذا اردت تامين الملف قدر المستطاع

اعملها وانت خارج من الملف وفي الاشياء التي تتعلق بالملف

مثلا اخفاء الاوراق , الذهاب الى ورقة فاضية واخفاء اعمدتها ....الخ

ان شاء الله وصلت الفكرة

ودمتم

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

الاخ عبد الله

مشكورا على الرد

وفققك الله لما يحبه ويرضاه

[عادل ابوزيد]

استاذى الفاضل عبد الله باقشير

يعجز لسانى عن ايجاد كلمات شكر لسعة صدرك لكثرة اسالتى وتفضلك بالرد

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

[ابو تميم]

تحية طيبة

أستاذنا القدير عبد الله باقشير

بعد تجربتي للملف وتطبيقه على ملفاتي لاحظت ما يلي

الطريقة تم تطبيقها على أكثر من امتداد xlsm , xlsb فوجدتا على امتداد xlsm تعمل بشكل ممتاز كما هو لديكم أما على امتداد xlsb فهو يعمل أيضا ولكن في هذا الامتداد تظهر لدينا أوراق العمل ويمكن العمل عليها قبل تفعيل الماكرو وبعد الضغط على تفعيل الماكرو يختفي الملف ويظهر لدينا فورم كلمة المرور ويعمل باقي الكود بشكل طبيعي

هل يمكن التعديل على الكود بحيث أنه لا يظهر الملف في امتداد xlsb

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

تم تعديل ديسمبر 8, 2012 بواسطه ابو تميم

[عبدالله باقشير]

تحية طيبة

أستاذنا القدير عبد الله باقشير

بعد تجربتي للملف وتطبيقه على ملفاتي لاحظت ما يلي

الطريقة تم تطبيقها على أكثر من امتداد xlsm , xlsb فوجدتا على امتداد xlsm تعمل بشكل ممتاز كما هو لديكم أما على امتداد xlsb فهو يعمل أيضا ولكن في هذا الامتداد تظهر لدينا أوراق العمل ويمكن العمل عليها قبل تفعيل الماكرو وبعد الضغط على تفعيل الماكرو يختفي الملف ويظهر لدينا فورم كلمة المرور ويعمل باقي الكود بشكل طبيعي

هل يمكن التعديل على الكود بحيث أنه لا يظهر الملف في امتداد xlsb

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

الكود عملته لاكسل 2003

الامتداد xls

فانا اعمل عليه بشكل دائم

[dah_med]

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

أستاذنا القدير عبد الله باقشير

بعد تجربتي للملف وتطبيقه لاحظت أنه عند إغلاق الملف لايغلق الإكسل نهائيا

[dah_med]

للرفع

[هاني بدر]

بسم الله الرحمن الرحيم

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

تقبل تحياتي والثناء المحمود على اثرائك الغير منقطع النظير لهذا الصرح العظيم.

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

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

kh_wVisible True

اما من لايستخدم فورم ادخال ففي اعتقادي يمكنه وضع نفس الامر في حدث الفتح على النحو التالي

Private Sub Workbook_Open()

Application.ScreenUpdating = False

kh_wVisible True

End Sub

وللامانة لم اجرب الامر الاخير ولكن في تصوري سينجح بامر الله

بارك الله فيك وذادك من علمه وفضله

تقبلوا تحياتي

هاني بدر

[هاني بدر]

بسم الله الرحمن الرحيم

سؤالي للعلامة الكبير استاذنا خبور

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

تحياتي

[dah_med]

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

أخي عبد الله

لقد قمت إدراج موديل kh_ChngPwd إلى ملف خاص بي لكنه لم يعمل

أرجو منك أن تطلع على الملف وتضع لي الكود إن تكرمت مع الشرح

كلمة المرور:2012

اسم المستخدم:dah

أخوك محمد

واجهة ملف.rar

[dah_med]

للرفع

[عبدالله باقشير]

بسم الله الرحمن الرحيم

سؤالي للعلامة الكبير استاذنا خبور

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

تحياتي

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

Excel.Application

واجهة الاكسل ممكن تبقى مفتوحه

ومحرر الاكواد ايضا

بدون وجود اي ملف اكسل مفتوح

والله اعلم

[عبدالله باقشير]

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

أخي عبد الله

لقد قمت إدراج موديل kh_ChngPwd إلى ملف خاص بي لكنه لم يعمل

أرجو منك أن تطلع على الملف وتضع لي الكود إن تكرمت مع الشرح

كلمة المرور:2012

اسم المستخدم:dah

أخوك محمد

لا يمكنني تطبيق الكود باتقان

بوجود اكواد اخرى للدخول والخروج

وخاصة كود اخفاء الاكسل

في امان الله

[ابو تميم]

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

تم تعديل ديسمبر 17, 2012 بواسطه ابو تميم

[kby]

مشكور أخي الكريم حفظك الله و رعاك

[الشاب يوسف]

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

الكود رائع لكن ينقصة ان يخبرنا ان الماكرو معطل فهل توجد طريقة لذلك

[ريان أحمد]

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

[alredha]

الأخ الفاضل عبدالله باقشير

 

فكرة جميلة ولكن لم أستطع تنفيذها لأنها لا تعمل على أوفيس 2013

 

فهل يوجد طريقة لجعلها تعمل مع أحدث إصدار بشكل جيد

[alredha]

والشكر موصول أيضا للأخ حمادة عمر الذي أثار مثل هذه الأفكار المبدعة

 

وأتمنى التواصل معه لطرح بعض الأفكار والتسائلات

[عمر أبو صهيب]

جزاك الله خيرا أخي عبد الله على الموضوع القيم

و بارك في أخينا حمادة عمر الذي دلني على رابط الموضوع

[عمر أبو صهيب]

أخي الكريم عبد الله

صادفتني مشكلة عند اعتماد الكود في ملفي ...

Option Explicit


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)
    If .Visible = Not ibol Then .Visible = ibol
End With
End Sub

 

عندما أقوم بتغييرات فيه و أغلقه لا تظهر النافذة الاعتيادية التي تقترح حفظ التغييرات أو عدم الحفظ بل يغلق مباشرة و يحفظ التعديلات تلقائيا .

فأين مكمن المشكل يا ترى

و جزاكم الله خيرا و نفع بكم و أثابكم الجنة

[عبدالله باقشير]

السلام عليكم

اخي عمر أبو صهيب ..... حفظك الله

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

 

الكود علشان يغلق النافذة عند الاغلاق

لازم يحفظ التغييرات..

 

في امان الله

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

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

أخي عبد الله

لقد قمت إدراج موديل kh_ChngPwd إلى ملف خاص بي لكنه لم يعمل

أرجو منك أن تطلع على الملف وتضع لي الكود إن تكرمت مع الشرح

كلمة المرور:2012

اسم المستخدم:dah

أخوك محمد

السلام عليكم

لقد قمت باضافة موديل الاخ الحبيب عبد الله لملفك مع اجراء بعض التغييرات و هو يعمل

جربه

واجهة ملف.rar

تم تعديل فبراير 25, 2013 بواسطه أبو حنين