إظهار مربعات مخفية

[ابن المبارك]

السلام عليكم

لدي أوراق عمل بها الكثير من المربعات المخفية إذ أنها صغيرة جدا وبدون إطارات وغير مملوءة لذلك لايمكنني رؤيتها

فأقوم بالبحث عنها بالماوس فقد قمت بمسح المئات ومازال يوجد الكثير منها في كل ورقة من ال WORKBOOK

وعلى سبيل المثال قمت بإظهار البعض منها

والمطلوب كيفية إظهارها كلها ومسحها بطريقة سريعة

ولكم جزيل الشكر

EMPLOYEESN_LIST_W43.rar

[omar elhosseini]

الاخ ابن المبارك

نفذ هذا الكود مرة واحدة سيلغى كل المربعات والازرار من كل اوراق الملف

Sub DelAllShapes()
For Each MySh In ActiveWorkbook.Sheets
    MySh.Select
    MySh.Shapes.SelectAll
    Selection.Delete
Next
End Sub

[عادل حنفي]

السلام عليكم

نشكرك استاذنا ابو تامر

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

انا حاولت لكن عرفت الطريقه منك

تحياتي