كود بسيط ورائع

[amir501]

كود بسيط وهو عبارة عن اخفاء الصفحة رقم 2 عند اغلاق الملف واظهارها عند تشغيل الملف ..والاكثر روعة هو انه عند تشغيل الملف مع عدم تمكين خفض مستوى الماكرو فلن تظهر لك الصفحة رقم 2 (المشار اليها بالكود طبعا) ولن تظهر ايظا عنن طرق اظهار الصفحات المخفية...

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Sheets("Sheet2").Visible = xlVeryHidden

End Sub


Private Sub Workbook_Open()

Sheets("Sheet2").Visible = True

End Sub

[عبد الفتاح كيرة]

ممتاز

لكن ما فائدة أن يختفى شيت قبل الغلق

كل الملف سيختفى بالغلق

[احمد حمور-ابوعبدالله]

شكرا لك اخي امير

واضم صوتي مع الاخ كيماس

لانه لو وضع الكود بالعكس لكان افضل ويحقق الهدف المرجو منه

حياك الله اخي امير