معلومة رقم (1) ... كيف تخفي ال sheet نهائياً

[emadoo]

أخواني الكرام

هذه طريقة لإخفاء صفحة من ملف اكسل نهائياً ولا يمكن استردادها الا بكود اخر

طريقة سهلة وبسيطة

اخفاء ال sheet نهائياً.rar

[دغيدى]

الأخ / emadoo

سلام الله عليكم

=================

أرجو تطبيق الكود باسماء شيتات بالعربى

** جمال دغيدى **

[emadoo]

من أجل عيون الدغيدي

الصفحات بالعربي

اخفاء ال sheet نهائياً--بالعربي.rar

[يوسف عطا]

طيب كيف نعيد إظهار الشيت مرة أخرى كلما أردنا وإعادة إخفاؤه مرة أخرى وهكذا ؟؟

هل توجد طريقة اسرع من إعادة كتابة الأكواد عدة مرات

[emadoo]

يتم استخدام هذا الكود في البرامج ذات الصفحات الكثيرة ويتم استخدامه كالتالي :

يتم عمل برنامج فرعي يتم فيه أخفاء جميع الصفحات في البرنامج : اي بأستخدام الكود السابق "

ثم يتم أستدعاء البرنامج الفرعي في جميع اكواد الذهاب للصفحات ويتم وضعه في نهاية الاكواد

""" مع ملاحظة انه يجب أن تطون صفحة واحدة غير مخفية لان الاكسل لا يسمح بأخفاء جميع الصفحات "

ثم عند تفعيل الصفحة التي تريد أضهارها تكتب كود الأظهار في بداية الكود

اي مثل طريقة حماية الصفحات --عند الدخول فك الحماية --وعند الخروج وضع الحماية --

يا اخوان استخدامها ليس معقد -- اسهل مما تتصورون

وبالتوفيق

[احمدزمان]

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

اخي عماد جزاك الله كل خير

وضعت الشرح المناسب في الوقت المناسب

بارك الله فيك

= = = = = =

وهذه هي الفكرة المستخدمة في الموضوع على الرابط

حماية الملف من داخل الملف

[دغيدى]

الأخ / emadoo

سلام الله عليكم

=================

أرجو أن تتقبل شكرى وامتنانى لشخصكم الكريم وأشكركم على دعابتكم

أرجو أن تتوالى بسلسلة المعلومات حتى تصل للمعلومة رقم (1000)

** جمال دغيدى **

تم تعديل أبريل 26, 2010 بواسطه دغيدى

[يوسف عطا]

مشكور على الشرح والمعلومات القيمة

[الشاب يوسف]

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

[الـعيدروس]

السلام عليكم

الاخ يوسف

تفضل

Private Sub CommandButton2_Click()

Dim Pas As Integer

Pas = InputBox(" إدخل رمز المرور للإظهار ", " منتدى أوفسينا ")

If Pas = False Or Pas = Cancel Then Exit Sub

If Pas = "123" Then Worksheets("ورقة2").Visible = True: Exit Sub

MsgBox " رمز المرور غير صحيح  ", vbCritical, " تنبية !!! "

End Sub

[حمادة عمر]

السلام عليكم

الاستاذ الكبير / عماد الحسامي

حمدالله علي سلامتك لنا وللمنتدي

طالت غيبتك كثيرا

طريقة جميلة ورائعة

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

[الشاب يوسف]

أخى ابو نصار دائما سباق الى الخير جزاك الله خيرا وزادك من علمه لك كل التحية والتقدير والكود يعمل بكفاءه أشكرك

تم تعديل يناير 13, 2013 بواسطه دغيدى