مساعدة لاعداد واجهة

[يونس م]

السلام عليكم اخوتي الكرام

 

لدي ملف اكسل افتحه من خلال واجهة تجميعية الاتوبلاي

اي ان هناك ضمن الاسطوانة زر لفتح الملف

 

اريد تصميم واجهة تظهر في البداية لادخل كلمة المرور واسم المستخدم

في برنامج الاتوبلاي تظهر عند فتح الاسطوانة وبالتالي الوصول الى زر فتح الملف

 

[أبوبلقيس]

السلام عليكم  

حتى و إن كان الرد متأخر   لا باس أن نضع  أبسط  الطرق

 

واجهة الدخول ضمنها :

 01 -  أنبوت    Input   و قم بتسميته  مثلا : Input1

ازرع في هذا الأنبوت  في الحدث   on key

الكود التالي  و لاحظ  أنه يدعم الدخول من لوح المفاتيح بالمفتاح entree

اذا كانت كلمة المرور صحيحة

if e_Key == 13 then
	
	ProjectPass = "**********"
	userPassword = Input.GetText('Input1')
	if userPassword == ProjectPass then
		Page.Jump('Page2')
	else
		Dialog.Message("السلام عليكم", "كلمة المرور  خاطئة ")
	end
end

02 - ضع بجا نبه في نفس شاشة الدخول زر ازرع فيه  الكود التالي :

ProjectPass = "**********"

userPassword = Input.GetText('Input1')

if userPassword == ProjectPass then

	Page.Jump('Page2')
else
	Dialog.Message("السلام عليكم", "رقم المرور  خاطيء")
end

  ملاحظة :    استبدل  النجوم  بكلمة مرورك الخاصة   و تكون نفسها في الانبوت و الزر 

أما ملفاتك  فاستعمل صفحة ثانية Page2

ليتم المرور إليها  اذا تحقق الشرط    و السلام عليكم ورحمة الله