التنقل بين الصفحات بكلمة السر

[حليم ناصر]

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

سادة الاعضاء كبف حالكم  اتمنى ان تكونوا في احسن حال ان شاء الله

لي طلب في كيفية التنقل من الصفحة الى اخرى لكن بكلمة السر

فكل موظفين المصالح الثلاث يقومون  بالدخول الى الصفحة الرئيسية ومنه كل موظف يدخل الى الصفحة الخاصة به

وحتى لا ننداخل المصالح الثلاث    فعندما يريد الموظف الدخول الى صفحته والضغط على  زر الانتقال الى صغحته فانه يطلب منه ادخال كلمة السر قبل فتح صفحته  والا فلا  تفتح الصفحة

مع ان لكل موظف كلمة السر خاص به

اتمنى ان اجد الجواب في اقرب وقت

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

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

الانتقال بين الصفحات بكلمة الشر.xlsm

[سليم حاصبيا]

كود للصفحة الثانية

يمكنك وضع كود مماثل للثالثة

Private Sub CommandButton1_Click()
Feuil2.Visible = 2
Dim My_pass, Inp_box
 My_pass = "ABC"
Inp_box = InputBox("Please Type your Password", _
  "Password")
  If UCase(Inp_box) <> My_pass Then Exit Sub
  Feuil2.Visible = -1
 Feuil2.Select
End Sub

الملف مرفق

Halim.xlsm

[حليم ناصر]

جزاكم الله خيراا وجعلها في ميزان حسناتكم ان شاء الله