مثال جيد لعمل كلمة مرور في علامة جدولة

مثال جميل اخى

بارك الله فيك

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

بارك الله فيك أخي حسان

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

جميل باستخدام دالة Input و الValue التابعه للـ Tab

If TabCtl0.Value = 1 Then
 	strInput = InputBox("Please enter a password to access this tab" & vbNewLine & vbNewLine & "PASSWORD = password", _
 	"Restricted Access")

 	' Check if value is entered into InputBox
 	' If no value entered display MsgBox
 	If strInput = "" Or strInput = Empty Then
 	MsgBox "No Input Provided", , "Required Data"
 	TabCtl0.Pages.Item(0).SetFocus
 	Exit Sub

بسم الله الرحمن الرحيم

يارك الله فيكم جميعا اخواني

شكرا على مروركم الطيب

جزاك الله خير الجزاء أخي الكريم وبارك الله بك..

تقبل تحياتي...