ما سبب الخطأ فى هذا الماكرو أو الكود

[يوسف عطا]

 

Sub 1()

    Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    Columns("A:E").Select
    Selection.EntireColumn.Hidden = False
    Columns("AD:AF").Select
    Selection.EntireColumn.Hidden = True
    Columns("P:AB").Select
    Selection.EntireColumn.Hidden = False
    Columns("AJ:AR").Select
    Selection.EntireColumn.Hidden = True
    Range("A10:A12").Select
    Application.ScreenUpdating = True
    ActiveSheet.Protect
End Sub

 

[حسين مامون]

ارفع صورة الخطأ  او جرب الماكرو هكذا

Sub Test1()
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    Columns("A:E").Select
    Selection.EntireColumn.Hidden = False
    Columns("AD:AF").Select
    Selection.EntireColumn.Hidden = True
    Columns("P:AB").Select
    Selection.EntireColumn.Hidden = False
    Columns("AJ:AR").Select
    Selection.EntireColumn.Hidden = True
    Range("A10:A12").Select
    Application.ScreenUpdating = True
    ActiveSheet.Protect
end sub

 

[سليم حاصبيا]

أولاً - الخطأ في هذه العبارة

Range("A10:A12").Select  لأنك أخفيت العامود  A  فكبف تريد ان تحدد خلايا منه؟؟؟؟

ثانباً -  لا داعي لهذه الكمية من الأوامر  Select التي لا حاجة لها 

ضع النطاق الدي تريده في المريع الأحمر فقط ونفذ الكود (الصورة) 

ولك الحيار في  Protect و  Unprotect

 

[يوسف عطا]

أشكركم و جارى تجربة أقتراحاتكم

الأخ الغالى سليم بك
العمود A ليس مخفيا فى الأمر
لو أردت إستخدام كود سيادتكم فى إظهار بعض الأعمدة و إخفاء أخرى كيف أقوم بصياغته
أشكرك