صلاح الدين الجزائري قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 السلام عليكم و رحمة الله و بركاته... اما بعدد... شباب ارجوكم أريد كيفية __: وضع قفل لورقة واحدة من الاكسل ... يعني لو اعمل الارتباط التشعبي بتلك الصفحة ما تدخل لازم تضع الباسوورد [ كلمة المرور ] ... وشــكرا ... وأريدَ فقط كيفية َ عمل = لجدول او نص مرة واحد [ اي بدون ما اعمل = لكل خلية اعملها مرة واحدة تيجي = لكي الجدول او النص ] وشــكرا ... آنآ أنتضر ... رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 اخى الكريم بخصوص طلبك الاول انظر المرفق به المطلوب عند الدخول للورقة 2 سيتطلب باسورد وهو الرقم السرى 123 بخصوص الطلب الثانى الرجاء توضيح ما تريد تقبل تحياتى حمايه ورقة عمل.zip 1 رابط هذا التعليق شارك More sharing options...
محمد الريفى قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 بجد رائع جدا يااستاذ حسام جزاكم الله خيرا تقبل خالص تحياتى رابط هذا التعليق شارك More sharing options...
صلاح الدين الجزائري قام بنشر ديسمبر 6, 2014 الكاتب مشاركة قام بنشر ديسمبر 6, 2014 (معدل) اخى الكريم بخصوص طلبك الاول انظر المرفق به المطلوب عند الدخول للورقة 2 سيتطلب باسورد وهو الرقم السرى 123 بخصوص الطلب الثانى الرجاء توضيح ما تريد تقبل تحياتى ارجووووكـ اخي اشرح لي الطريقة الله يخليك وشكرا دي الي احتاجها ....... وإذا تعرف كيفية تفعيل الماكرو تلقائيا يعني ما يقدر... احد يدخل ورا ضهري ........ وملاحظة: لما اكتب كلمة المرور خاطئة يقولي سوف يتم نقلك الى الصفحة الرئيسية لكن لما اضغط OK ما يروح للصفحة الرئيسية قول لي ليش واذا تعرفها ضيفها في الشرح كيف لما اكتب كلمة المرور خطأ يرجع للصفحة الرئيسية وشكرا ... ......... و ارجوكـ اعطيني سكايب بتاعك اذا تملك وشكرا لكـ تم تعديل ديسمبر 6, 2014 بواسطه MoChekEs رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 6, 2014 مشاركة قام بنشر ديسمبر 6, 2014 بارك الله فيك أخي وحبيبي حسام ايه التألق ده يا كبير الكود ناقص شوية بهارات .. اللمسة الأخيرة .. Private Sub Worksheet_Activate() xx: Dim x x = InputBox("الوصول لهذه الصفحة يتطلب كلمة مرور" & Chr(13) & "الرجاء ادخال كلمة المرور", "كلمة مرور") If IsNull(x) Or x = "" Then GoTo xx If x = "123" Then MsgBox "دخول ناجح" Else MsgBox "كلمة مرور غير صحيحة" & Chr(13) & " سوف يتم نقلك للصفحةالرئيسية ", vbOKOnly 'اللمسة الأخيرة Sheets("Sheet1").Activate End If End Sub رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر ديسمبر 7, 2014 مشاركة قام بنشر ديسمبر 7, 2014 بالفعل يا استاذ ياسر هذا الجزء كان ناقص Sheets("Sheet1").Activate وكنت ناوى اكتبه النهارده افتكرت بعد ما رفعته شكرا لاهتمامك وملاحظتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.