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

أبسط طريقة لذلك هي

Private Sub Command1_Click()
  If InputBox("Enter password for Open the Form:  ") = "123456" Then Form2.Show 1
End Sub

بفرض ان كلمة المرور هي 123456

والفورم الذي تريد فتحه هو form2

ولكن يمكنك إستخدام طرق عديدة لعمل ذلك منها على سبيل المثال لا الحصر:

عدم إستخدام الدالة inputbox وأستخدم بدلاً عنها فورم أخر تصممه بنفسك وبالشكل الذي يناسبك

وشيئ آخر هو يمكنك حفظ واستدعاء كلمة المرور من ملف أو من قاعدة بيانات حتى تتمكن من تغييرها

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