بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'وداعا لفورم ادراج رقم سري للدخول الى الملف'.
تم العثور علي 1 نتيجه
-
السلام على جميع الاخوة الافاضل اما بعد : بعد المعلومات الكثيرة التي استفدت منها من خلال هذا الموقع الذي اصبحت مدمنا عليه ولا استطيع مفارقته افادني الاساتذة الى ضرورة عدم الاكثار من ادراج يوزرفورم في الملف حتى لا يأخذ حجم كبير و يكون خفيف نوعا ما لذلك هناك العديد من الاخوة و انا واحد منهم من يفضل عمل فورم واحدة لتقوم بمختلف العمليات وحتى استغني عن فورم ادراج رقم سري للدخول الى الملف وجدت العديد من الملفات التي حملتها من بعض المواقع الاجنبية يفضلون استعمال 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
