كود اخفاء شيت

[a12]

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

[حسين العصلوجى]

الامر لا يتطلب كود كل ما عليك كليك يمين علي الورقة واختر اخفاء

ان كنت تريد اكثر من هذا قم بارفاق مثال لتوضيح المطلوب

[a12]

شـــــــــــــــــــــــــــــــكراً

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

للاخفاء استخد الكود التالى

Sub Hid()
    Sheets("Sheet2").Visible = False
End Sub

و للاظهار استخدم الكود التالى

Sub UnHid()
    Sheets("Sheet2").Visible = True
End Sub

و يمكنك تغيير اسم ورقه العمل

 

مرفق ملف

السلام عليكم

Hid.rar

[a12]

بارك الله فيك