اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


emadoo

الردود الموصى بها

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

وبالتوفيق

رابط هذا التعليق
شارك

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

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

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

بارك الله فيك

= = = = = =

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

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

رابط هذا التعليق
شارك

الأخ / emadoo

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

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

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

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

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

تم تعديل بواسطه دغيدى
رابط هذا التعليق
شارك

  • 2 years later...

السلام عليكم

الاخ يوسف

تفضل


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

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information