محمد قدومي قام بنشر نوفمبر 29, 2013 قام بنشر نوفمبر 29, 2013 السلام عليكم شاهدت هذا الملف ولكن كيف اخفي الاوراق اصلاً قبل ارجاعها بالكود وشكراً تعديل نهائي علي كلمة السر غير المكشوفة.rar
حمادة عمر قام بنشر نوفمبر 29, 2013 قام بنشر نوفمبر 29, 2013 السلام عليكم الاخ الكريم / محمد قدومي بارك الله فيك بالنسبة للملف المرفق منك وبخصوص انه كيف يتم اخفاء الشيتات في هذا الملف يوجد بالملف كود في حدث ThisWorkbook والخاص بتنفيذ الاكواد عند فتح الملف من خلال الكود Private Sub Workbook_Open() حيث ان بالملف في الحدث المذكور الكود التالي Private Sub Workbook_Open() Dim oWs As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> "الرئيسية" Then ws.Visible = xlSheetVeryHidden Next ws End Sub حيث ان الكود السابق يبحث بالنسبة لجميع اوراق العمل الموجودة في الملف ويقوم باخفاء جميع الشيتات او الاوراق التي اسمها لا يكون باسم ( الرئيسية ) كما في السطر If ws.Name <> "الرئيسية" Then ws.Visible = xlSheetVeryHidden وبالتالي فانه عند فتح الملف يقوم الكود باخفاء جميع الشيتات ما عدا الشيت المسمي ( الرئيسية ) ارجو ان يكون هذا هو طلبك ويفي بالغرض واي استفسار معك دائما باذن الله تقبل خالص تحياتي
الردود الموصى بها