يمكنك التخلي عن يوزر فورم للدخول الى الملف برقم سري و الاستعانة ب inputbox

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

السلام على جميع الاخوة الافاضل اما بعد :

بعد المعلومات الكثيرة التي استفدت منها من خلال هذا الموقع الذي اصبحت مدمنا عليه ولا استطيع مفارقته  افادني الاساتذة الى ضرورة عدم الاكثار من ادراج يوزرفورم في الملف حتى لا يأخذ حجم كبير و يكون خفيف نوعا ما لذلك هناك العديد من الاخوة و انا واحد منهم من يفضل عمل فورم واحدة لتقوم بمختلف العمليات وحتى استغني عن فورم ادراج رقم سري للدخول الى الملف وجدت العديد من الملفات التي حملتها من بعض المواقع الاجنبية يفضلون استعمال input box بدلا من استعمال فورم .

بدون اطالة اليكم اخوتي الكود التالي ربما يفيد بعض المبتدئين امثالي ولكم مني خالص عبارات الشكر.

'يوضع هذا الكود في this workbook
Sub Auto_Open()
Application.Visible = False
Dim UserName As String
UserName = InputBox("Please Enter Your USER NAME.")
If UserName = "123456" Then ' اكتب هناالرقم السري للدخول
MsgBox "Correct"
UserForm1.Show 'هنا اذا كان لديك يوزر فورم اما اذا لم يكن لديك فورم يمكن مسح هذا السطر 
Exit Sub
Else
MsgBox "Incorrect"
End If
   ActiveWorkbook.Save
 Application.Quit
End Sub

 

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

بارك الله فيك أخي العزيز زيادة

فكرة جميلة وبسيطة وأفضل من وجهة نظري من الفورم إذ أن المهم الأداء العملي والفعلي للملف ..لا مجرد جماليات وفارغ من المضمون

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

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

[علي فاهم]

جزيتم خيرا .. هل يمكن وضع ملفا لتكتمل الفائده

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

4 دقائق مضت, علي فاهم said:

جزيتم خيرا .. هل يمكن وضع ملفا لتكتمل الفائده

أخي الكريم علي .. 

الموضوع بسيط ولا يحتاج لملف مرفق على الإطلاق وسأعطيك الخطوات لتتعلم بنفسك .. فتعلم الصيد خير من تناول سمكة كل يوم

قم بفتح برنامج الإكسيل

اضغط Alt+F11 وضع الكود المقدم من قبل أخونا زياد في موديول عادي عن طريق قائمة Insert ثم اختر Module

من نفس القائمة Insert قم بإدراج فورم UserForm1

احفظ الملف وستظهر رسالة اختر منها No وحدد صيغة الحفظ بـ Macro-Enabled Workbook أو ما يعرف بـ xlsm ... 

الآن أغلق الملف وأعد فتحه وأدخل كلمة السر الموجودة في الكود

تقبل تحياتي

[علي فاهم]

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

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

نعم هذا صحيح لأن في الكود سطر يقوم بإخفاء التطبيق ..

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

في هذا السطر الذي يخفي التطبيق

Application.Visible = False

القيمة هنا False . ضع القيمة True لإظهار التطبيق

 

خلاصة القول ضع سطر لإظهار التطبيق في زر الأمر الذي ستقوم برسمه على الفورم

[علي فاهم]

منذ ساعه, ياسر خليل أبو البراء said:

نعم هذا صحيح لأن في الكود سطر يقوم بإخفاء التطبيق ..

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

في هذا السطر الذي يخفي التطبيق

Application.Visible = False

القيمة هنا False . ضع القيمة True لإظهار التطبيق

 

خلاصة القول ضع سطر لإظهار التطبيق في زر الأمر الذي ستقوم برسمه على الفورم

مش فاهم ارجو ارفاق ملف

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

إزاي مش فاهم وإنت اسمك علي فاهم (إني أمزح معك)

ايه اللي مش مفهوم حاول توضح المشكلة بالنسبة لك فين .. واسأل ولا تخجل من السؤال

هل قمت بإدراج فورم؟

إذا كان الأمر كذلك قم بإظهار الـ ToolBox أي صندوق الأدوات من قائمة View (إذا لم يكن ظاهر)

ثم من صندوق الأدوات اسم زرر أمر CommandButton وانقر عليه دبل كليك .. هيفتح معاك موديول الفورم ضع فيه هذا السطر

Application.Visible = True

 

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

الاستاذ ياسر اخي علي لديه طريقة وهي ان لا يعطيك كل شئ جاهز ولكن يعطيك 99%من الحل و الباقي هو ان تتعلم بنفسك قراءة الاكواد و كيفية ادراجها و هذه طريق اعتقد انها فعالة للمبتدئين امثالنا ...اليك ملف مرفق فيه الكود

'اذا كان لديك يوزرفورم تظهر بمجرد فتح الملف اضف  التالي
MsgBox "Correct"
userform1.show

 

mot de passe.rar

[علي فاهم]

1 ساعه مضت, زياد عبد الجليل said:

 و هذه طريق اعتقد انها فعالة للمبتدئين امثالنا ...اليك ملف مرفق فيه الكود

ليست فعاله بكل المعايير .. انت نزلت كود فقط ولم تنزل مرفق

انا حبيت اجرب كودك اللي انت كاتب فيه يوضع في

'يوضع هذا الكود في this workbook

ولم يعمل جيدا اصبح يختفي الملف بعد وضع الرقم السري

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

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

من و ضع سطر لإظهار التطبيق في زر الأمر الذي ستقوم برسمه على الفورم

فلم افهم هذه الجمله السهله جدا بالنسبه له ولك

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

........... اللهم امدنا الفهم لكي نفهم الاخرين

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

أخي الكريم علي

الرجاء الصبر فإنما العلم بالتصبر .. فنحن لم نولد من بطون أمهاتنا نعلم شئياً

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

أنا أتكلم في أساسيات وليس في أمور متقدمة ... وإذا كنت لا تفهم الأساسيات فأنصحك بمشاهدة بعض الفيديوهات التي تتناول هذا الخصوص لأنها أمور لابد من تعلمها .. ومنها هذا الفيديو على سبيل المثال

 

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

منذ ساعه, علي فاهم said:

ليست فعاله بكل المعايير .. انت نزلت كود فقط ولم تنزل مرفق

انا حبيت اجرب كودك اللي انت كاتب فيه يوضع في

'يوضع هذا الكود في this workbook

ولم يعمل جيدا اصبح يختفي الملف بعد وضع الرقم السري

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

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

من و ضع سطر لإظهار التطبيق في زر الأمر الذي ستقوم برسمه على الفورم

فلم افهم هذه الجمله السهله جدا بالنسبه له ولك

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

........... اللهم امدنا الفهم لكي نفهم الاخرين

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

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

يبدو أن الأخ علي ليس من هواة تعلم الصيد .. إنما يريد أن يتناول سمكة وانتهى الأمر .. وأنا لست من يعطي السمكة .. :)

[علي فاهم]

9 دقائق مضت, ياسر خليل أبو البراء said:

يبدو أن الأخ علي ليس من هواة تعلم الصيد .. إنما يريد أن يتناول سمكة وانتهى الأمر .. وأنا لست من يعطي السمكة .. :)

مشاركتك التي تسبق هذه عكس هذه المشاركه الغير موفقه ..

لانك اتهمتني بانني لست من هواه الصيد واتهمتني ايضا انني من هواه الاكل وخاصه سمكه

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

السمك الذي نريده هو التعلم مرحله مرحله جزء جزء

ارسل زيادا ملفا وقال واصر انه يعمل معه ممتاز وانت ذكرت انه ناقص جمله كان المفروض ان تكون به . ما التعليق ؟

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

جزيتم خيرا

 

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

اقتباس

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

ولم تعتبر ذلك فضل من الله عليك ... !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

أنا لله وإنا إليه راجعون ... من أين اقتبست كلامك هذا

ما قصدته يا أستاذي الفاضل أنني أعلم الصيد ولا أعطي السمك وهذا ليس بخل كما تعتقد أو تظن .. بل هو منتهى الكرم .. فقد كان من الممكن من البداية أن أعطي لك ملف وانتهى الأمر

لكن يبدو أنني ضيعت وقتي مع شخص لا يحاول أن يفهم ما أقصده وهذه آخر مشاركة لي معك .. وفقك الله ورعاك وحفظك

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

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

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

[علي فاهم]

اذا كنت ت

3 ساعات مضت, ياسر خليل أبو البراء said:

 يبدو أنني ضيعت وقتي مع شخص لا يحاول أن يفهم ما أقصده وهذه آخر مشاركة لي معك .. وفقك الله ورعاك وحفظك

اذا كنت تضيع الوقت لله اولا واخرا فاهلا لك وبعملك اما اذا كنت تعمل العمل عشان اي هدف دنيوي اخر ..ف....

وفقك الله ورعاك وحفظك

[قصي]

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

 

[قصي]

وجدت لك جمله يا استاذ ياسر مفيده جدا وجه وقتها معاك

المسامح كريم