كيف أخفي أوراق معينة من ملف xlsm عن المستعمل.وشكرا

[hicham2610]

السلام عليكم

من فضلكم

عندي ملف مبرمج إسمه:

A.xlsm به 5 أوراق أريد إخفاء 3 أوراق أسماؤها:

على التوالي: 1 و 2 و OB

بحيث الأوراق 1 و 2 مبرمجة للنسخ من أوراق خارجية و 0B بها معادلات وسيتم نسخ عمود منها ولصقه في ورقة خارجية

المهم ينقصني فقط كيفية : إخفاء 1 و 2 و OB عن المستعمل دون خروج رسائل الخطأ

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

[ياسر خليل أبو البراء]

يمكن في الكود الخاص بالنسخ إظهار ورقة العمل قبل النسخ ثم بعد النسخ يمكن إخفاء ورقة العمل

راجع الرابط التالي لمعرفة كيفية إخفاء وإظهار أوراق العمل

الرابط من هنا

[hicham2610]

السلام عليكم

للأسف أخي الكريم

لم ينجح معي الأمر

أرفقت لك الملف لعمل اللازم

بحيث أريد إخفاء الأوراق عن المستعملين:1-2-3-4-observations  من الملف المبرمج PIS 

لكن عند تنفيذ الأمرين في ورقة: البرنامج لاتخرج رسالة الخطأ

الرقم السري لإخفاء الأكواد:(الضغط على المسطرة 3 مرات)

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

3.rar

[ياسر خليل أبو البراء]

وعليكم السلام

هل أنت متأكد أنك اطلعت على الدرس بشكل جيد ...!!

عموماً جرب الكود التالي

Sub Test()
    Dim ws As Worksheet
    
    For Each ws In Sheets(Array("1", "2", "3", "4", "Observations"))
        ws.Visible = False
    Next ws
End Sub

وللإظهار قم بتغيير القيمة False إلى القيمة True

[hicham2610]

السلام عليكم

للأسف أخي الكريم

جربت أكثر من مرة ولم أفلح

الأخ الكريم ربما لم نتفاهم في المطلوب

فالمطلوب:أن المستعمل لما يفتح الملف: PIS لاتظهر له 1 -2-3-4-observations  

تظهر له فقط:"تقديم "و"البرنامج"

وعند الضغط على الزرين في ورقة :"البرنامج" يعملان بدون مشاكل

أرفقت لك الملف في المشاركة السابقة ضع لي الكود فيه جزاك الله خيرا

الرقم السري الذي وضعت لإخفاء الأكواد:(الضغط على المسطرة 3 مرات)

جزاك الله خيرا أستاذنا الفاضل

تم تعديل فبراير 20, 2017 بواسطه hicham2610

[ياسر خليل أبو البراء]

ضع أسطر الكود بدون العنوان وبدون النهاية داخل الكود الخاص بحدث المصنف ..

>> من نافذة المشروع >> اعمل دبل كليك على الكائن ThisWorkbook ، ثم اختر من القوائم المنسدلة الكائن Workbook من الجهة اليسرى والحدث Open من الجهة اليمنى ثم ضع أسطر الكود بداخله كما بالصورة التالية

[hicham2610]

السلام عليكم

للأسف أخي الكريم

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

لاحظ الفيديو المرفق أخي الكريم

http://up.top4top.net/downloadf-416ficat1-rar.html

والملف أرسلته سابقا إسمه:.rar3 يمكن التجريب عليه 

 

[ياسر خليل أبو البراء]

قم باستخدام كلمة xlVeryHidden بدلاً من القيمة False

 

أما الخطأ فسببه أنك تقوم بتنشيط ورقة مخفية ولذا قبل الأسطر التي فيها تنشيط ورقة عمل مخفية يجب إظهار الورقة أولاً ...

لمعرفة الأسطر التي بها الخطأ قم بالنقر على كلمة Debug للوصول لمحل الخطأ وقبل السطر الذي به الخطأ قم بإضافة سطر لإظهار ورقة العمل أو الغي السطر لو كان ليس له فائدة ...

[hicham2610]

السلام عليكم

الأخ الكريم:

ياسر خليل أبو البراء

جزاك الله خيرا واتابك الجنة

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