[ALIGN=center]السلام عليكم ورحمة الله وبركاته
لكي تتمكن من عمل باسورد لصفحة معينة يجب أن يتم ذلك عن طريق فيجوال بيسك ايديتور وهذا عن طريق events عامة الموضوع بسيط افتح الفيجوال بيسك ومن نافذة (project) اختار الورقة التي تريد عمل باسور عليها وبعد ذلك من نافذة الكود التي ستظهر ستجد فيها من الاعلى قائمتين أحدهما general وهذا ما ستبدأ به افتحها واختار منها worksheet ثم من القائمة الاخرى اختار Activate ستجد ان ماكرو قد بدأ في نافذة الكود أدخل فيها الكود التالي:(من اول هنا)
x = 1
Do
strPassword = InputBox("Enter your password", "password", "By Mosexc")
x = x + 1
If strPassword = "ضع الباسورد هنا" Then GoTo 10
Loop While x < 4
GoTo 20
10 MsgBox "sucess"
Range("a1").Select
GoTo 40
20 MsgBox "failed"
30 Sheets("ضع هنا اسم ورقة اخرى غير التي تريد ان تنفذ الكود عليها").Select
40
الى هنا
ملحوظةانسخ الكود من هنا والصقه في الايديتور فان هناك بعض الاخطاء في العرض مع العلم ان الرقم 40 عبارة عن سطر في الكود وان حدثت مشاكل معك راسلني على الايميل mos_abada@hotmail.com وربنا يوفقك وان شاء الله هيشتغل معاك
آسف على الاطالة