hoodahooda قام بنشر مارس 21, 2004 قام بنشر مارس 21, 2004 اريد ان اعرف طريقة عمل باس ورد لصفحة في الأكسيل ولا يتم فتح والعمل خلالها الا بعد كتابة الباس ورد مثل الصفحة التي عن طريقها يتم مسح البيانات لبرنامج المصاريف (y) وشكرا
mosexcel قام بنشر أبريل 17, 2004 قام بنشر أبريل 17, 2004 (معدل) [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 وربنا يوفقك وان شاء الله هيشتغل معاك آسف على الاطالة تم تعديل أبريل 28, 2004 بواسطه محمد طاهر
الردود الموصى بها