اخفاء اوراق العمل واضافة رقم سري لها - شبــاب ارجوكمم مساعدة ... وينكم يا خبراء

[صلاح الدين الجزائري]

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

 

اما بعد

 

شباب ارجوكم اريد كيفية اخفاء الاوراق وعمل لهم

 

باسوورد يعني مافي احد يقدر يظهرهم و يكتب بيهم الا انا بـ الباسوورد بتاعي

 

 

يا رب ************** ...

 

وشكرا

تم تعديل ديسمبر 6, 2014 بواسطه حمادة عمر
حذف كلمة

[احمدزمان]

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

اخي الكريم 

 

آمل مراعات التالي لاحقا

 

 

el منتدى الاكسيل

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة
و بصفة خاصة نؤكدعلى ما يلي
1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف

 

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / MoChekEs

بارك الله فيك

استخدم الكود التالي لتنفيذ طلبك

الرقم السري لاظهار الاوراق هو ( 333 ) كما في الكود

Sub hide_all_sheets()
x = InputBox("ادخل كلمة السر.... ??")
If x <> "333" Then GoTo 10
If [U1] <> False Then [U1] = False: GoTo 10
[U1] = True
10
For i = 2 To Sheets.Count
    Sheets(i).Visible = [U1].Value
Next i
End Sub

تقبل خالص تحياتي

 

اخفاء واظهار كل اوراق العمل.rar

اخفاء واظهار كل اوراق العمل.rar

[حمادة عمر]

وبرجاء الاطلاع علي الرابط التالي

لتغيير الاسم الي العربية ( طبقا لسياسة وشروط المنتدي ) ولزيادة التواصل .... برجاء الاطلاع علي الموضوع

http://www.officena....showtopic=41520

==============
الادارة
==============

[صلاح الدين الجزائري]

أخ مو هذي الي اريدها

 

اخي انت لم تفهمني جيدا

 

ادخل هنا تفهم كل شيء ان شاء الله

 

http://www.officena.net/ib/index.php?showtopic=57350

تم تعديل ديسمبر 7, 2014 بواسطه MoChekEs