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

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

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

افتقدتكم كثيرا

لمعرفة ما اريده من هذا الملف قم بالتالي:

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

ثم قم بفتح الملف في حالة التمكين واضغط الزر

kh_ChngPwd
لتفعيل شاشة دخول باسم مستخدم وكلمة مرور
ثم اغلق الملف

ثم قم بفتح الملف في حالة التمكين والتعطيل
وشاهد النتيجة

قمت بتجربة هذا الكود على اكسل 2003و2007
وهما ما في المرفق

واريدكم ان تجربوه على 2010
===================================
ممكن استخدام هذا الكود في اي ملف
باستيراد الفورمين
FormAhlnWShln
FormChngPwd
والموديل
ModChngPwd
ونسخ الاكواد الموجوده في حدث
ThisWorkbook
===================================
كلمة السر للاكواد : 1
===================================
ودمتم في حفظ الله
فورم حماية الملف.rar

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

 

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

المرفق 2003 2007
th1.rar

[بوحماد]

بارك الله فيك الاستاذ عبدالله وجعلة الله فى ميزان حسناتك ولاكن لى سؤال كيف نقوم بتعديل الاسم والباس وارد مثلا ان وضعت الاسم b والباس وارد 2 ولاكن بعد فترة نريد تغير الاسم او الباص وارد تم التجربة على الوفس 2010 ويعمل تمام مشكور على هذة الاكواد والفورم تحياتى

تم تعديل يونيو 2, 2012 بواسطه bast

[عبدالله المجرب]

السلام عليكم

ما هذا الابداع يا ابا علي

ما شاء الله سلمت الايادي

احتراف واضح لا تخطئه العين

بارك الله فيك

=============

اخي الفاضل bast لتعديل كلمة المرور ادخل الاسم وكلمة المرور القديمة وستظهر لك فورم التعديل

تم تعديل يونيو 3, 2012 بواسطه دغيدى

[بوحماد]

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

[رجب جاويش]

سلمت يداك أستاذ / عبد الله باقشير

وسلمت لنا ابداعاتك الدائمة

[جمال عبد السميع]

ماشاء الله علي العلماء سلمت يمينك أستاذ عبدالله وادامك الله للمنتدي معلما وأستاذا يستفيد من علمة الجميع

[خالد الشاعر]

• استاذى عبد الله
  

وحشتنا لية الغيبة الطويلة دى

مبدع و ابدعك فاق العقل و الحدود

لى سؤال اين تحفظ كلمة السر فى الملف

جزاك الله كل خير و دائماً فى تقدم انشاء الله

تم تعديل يونيو 2, 2012 بواسطه khhanna

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

السلام عليكم اخي عبد الله باقشير

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

اللهم ارزقنا معرفة مقدارها خمس ما يملك اخونا عبد الله باقشير فقط

[أبو ردينة]

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

عودا حميدا

و إبداعا جديدا من إبداعات الغالي أستاذنا / عبد الله

سلمت يمناك

تم تعديل يونيو 2, 2012 بواسطه أبو ردينة

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

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

الاخ الفاضل / bast__________ حفظه الله

الاخ الفاضل / عبدالله المجرب__________ حفظه الله

الاخ الفاضل / رجب جاويش__________ حفظه الله

الاخ الفاضل / mahmoud-lee__________ حفظه الله

الاخ الفاضل / khhanna__________ حفظه الله

الاخ الفاضل / ابو حنين__________ حفظه الله

الاخ الفاضل / ابو ردينة__________ حفظه الله

جزاكم الله خيرا وبارك الله فيكم

واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة

تقبلوا تحياتي وشكري

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

لى سؤال اين تحفظ كلمة السر فى الملف

جزاك الله كل خير و دائماً فى تقدم انشاء الله

تحفظ في الاسم "MyPwd"

المخفي

With ThisWorkbook

        .Names.Add "MyPwd", sp, False


    End With

ودمتم في حفظ الله

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

السلام عليكم اخي عبد الله باقشير

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

اللهم ارزقنا معرفة مقدارها خمس ما يملك اخونا عبد الله باقشير فقط

هذا تواضع منك اخي ابو حنين

فانت اعمالك تدل عليك

المهم اي شي غامض عندك في الكود

اخبرني به وانا تحت امرك

تقبل تحياتي وشكري

[saad abed]

اخى عبدالله باقشير

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

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

بارك الله فيك

سعد عابد

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

الاخ عبد الله

بارك الله فيك

كود رائع جدا

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

بارك الله فيك

ودائما نحن ننتظر من الابداعات

[الـعيدروس]

السلام عليكم

سلمت يمناك استاذ عبدالله ( حبور خير )

ملف قمة الإبداع

تقبل مروري

[abouelhassan]

استاذنا خبور الخير عبدالله

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

رائعة

احترامى اخيك

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

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

الاخ الفاضل / سعد عابد __________ حفظه الله

الاخ الفاضل / ابراهيم ابو ليلة __________ حفظه الله

الاخ الفاضل / ابو انصارابو ليلة __________ حفظه الله

الاخ الفاضل / ابو الحسن__________ حفظه الله

جزاكم الله خيرا وبارك الله فيكم

واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة

تقبلوا تحياتي وشكري

[القومي]

استاذنا | خبور خير عبدالله

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

ابداع ودائما تقدم ابداعاتك وتملئ جعبتنا من ابداعاتك

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

[الشهابي]

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

بصراحة ولا أروع

أكثر ما استوقفني في الكود هو المدى ( "MyPwd" )

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

ثم حاولت مرة أخرى ولك دون فائدة

في استفسار حول كيفية إنشاء مدى في ThisWorkbook ؟

وكيفية إخفائه من معرف الأسماء

اطلعت على ملف لأحد الأخوة وهو عند فتح صفحة الـ ( vba ) يتم إغلاق الملف مباشرة

كيف يمكن عمل ذلك ؟

وعلى فكرة هناك كود باسبورد لك في ملف ( برنامج خبور المدرسي تجربة خاصة23)

وقد طبقته على ملفي المدرسي وهو شغال

جزاك الله خير أستاذ عبد الله على ما تقدمه من معلومات

قل من يعطيها هذه الأيام مجاناً إلا في مثل هذا المنتدى الرائع

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

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

الاخ الفاضل / القومي __________ حفظه الله

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

تقبل تحياتي وشكري

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

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

الاخ الفاضل / الشهابي __________ حفظه الله

الاسم : ممكن يكون مدى - معادلة - نص - رقم

يمكنك اظهار الاسماء في الملف بالكود التالي:

Sub Kh_tName()

Dim WN As Name

For Each WN In ThisWorkbook.Names

	WN.Visible = True

Next WN

End Sub

ويمكنك اخفائها

Sub Kh_fName()

Dim WN As Name

For Each WN In ThisWorkbook.Names

	WN.Visible = False

Next WN

End Sub

وبامكانك اظهار او اخفاء اسم لحالة

ThisWorkbook.Names("xx").Visible=True

للاخفاء False

اطلعت على ملف لأحد الأخوة وهو عند فتح صفحة الـ ( vba ) يتم إغلاق الملف مباشرة

كيف يمكن عمل ذلك ؟

لم اطلع عليه

ارسل الملف لنراه

تقبل تحياتي وشكري

[الشهابي]

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

للأسف الملف ليس عندي ولم يرفع في المنتدى

وانما تم عرضه علي لأنه برنامج مدرسي للإطلاع فقط

وهو كذلك محمي ومحول إلى امتداد exe

بس أعجبتني الفكرة

فقلت لعلكم تفيدونا في ذلك

جزاكم الله خير على ما قدمتموه لنا من معلومات قيمة

جعل الله ذلك في ميزان حسناتكم

[احمدزمان]

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

اعمال رائعة دوما

جزاك الله كل خير استاذنا الكبير بعطائه الدائم

[الزير]

بارك الله فيك أستاذ عبدالله

[ريان أحمد]

السلام عليكم في حالة تعطيل الماكرو في حالة إختيار كلمة السر ضهرت رسالة لم أفهمها وهي في المرفق

test.rar

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