أيهاب ممدوح

ارجوا التوضيح اكثر بمعني كتابه بدايه الكود ونهايه الكود لاني حاولت ولم تنجح وشكرا لتعبك معي

شكرا للجميع الذين قامو بالدخول ومحاوله المساعدة وخاصه الاستاذ عبد الله واكرر شكرا وبالفعل قمت بكل ذلك ونجحت الفكرة ولكن ظهرت مشكله اخري انه يوجد حمايه علي خلايا معينه وبالعمل عليها ااجد انها غير محميه واذا قمت بعمل حمايه يعمل الماكرو مرة ثم المرة الثاني لا يعمل بحجه ان الخليه محميه ماذا افعل وانا اريد حمايه الخلايا المحددة وهي بها معادلات واريد عمل الماكرو وهذا موجود في المرفق مبيعات فرع -.rar

السلام عليكم ورحمه الله وبركاته انا عندي مشكله في الاكسل والاكواد الخاصه بيه عند كود خاص بقائمه منسدله لاظهار نطاق معين وبالفعل نجحت لكن المشكله انها تعمل بدون حمايه الملف والمعادلات اريد فقط ان تعمل مع وضع الحمايه علي الشيت الخاص بها واليكم الكود واود ان اعرف هل المشكله في الكود ام في الشيت نفسه Sub Macro2() ' ' Macro2 Macro ' ' ActiveSheet.Unprotect Password:="haitham29181" Range("it1").Select If ActiveCell.FormulaR1C1 = "1" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("l:iq").Select Selection.EntireColumn.Hidden = True Range("d6").Select ActiveSheet.Unprotect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "2" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:k").Select Selection.EntireColumn.Hidden = True Columns("t:iq").Select Selection.EntireColumn.Hidden = True Range("l6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "3" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:s").Select Selection.EntireColumn.Hidden = True Columns("ab:iq").Select Selection.EntireColumn.Hidden = True Range("t6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "4" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:aa").Select Selection.EntireColumn.Hidden = True Columns("aj:iq").Select Selection.EntireColumn.Hidden = True Range("ab6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "5" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:ai").Select Selection.EntireColumn.Hidden = True Columns("ar:iq").Select Selection.EntireColumn.Hidden = True Range("aj6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "6" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:aq").Select Selection.EntireColumn.Hidden = True Columns("az:iq").Select Selection.EntireColumn.Hidden = True Range("ar6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "7" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:ay").Select Selection.EntireColumn.Hidden = True Columns("bh:iq").Select Selection.EntireColumn.Hidden = True Range("az6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "8" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:bg").Select Selection.EntireColumn.Hidden = True Columns("bp:iq").Select Selection.EntireColumn.Hidden = True Range("bh6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "9" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:bo").Select Selection.EntireColumn.Hidden = True Columns("bx:iq").Select Selection.EntireColumn.Hidden = True Range("bp6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "10" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:bw").Select Selection.EntireColumn.Hidden = True Columns("cf:iq").Select Selection.EntireColumn.Hidden = True Range("bx6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "11" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:ce").Select Selection.EntireColumn.Hidden = True Columns("cn:iq").Select Selection.EntireColumn.Hidden = True Range("cf6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "12" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:cm").Select Selection.EntireColumn.Hidden = True Columns("cv:iq").Select Selection.EntireColumn.Hidden = True Range("cn6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "13" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:cu").Select Selection.EntireColumn.Hidden = True Columns("dd:iq").Select Selection.EntireColumn.Hidden = True Range("cv6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "14" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:dc").Select Selection.EntireColumn.Hidden = True Columns("dl:iq").Select Selection.EntireColumn.Hidden = True Range("dd6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "15" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:dk").Select Selection.EntireColumn.Hidden = True Columns("dt:iq").Select Selection.EntireColumn.Hidden = True Range("dl6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "16" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:ds").Select Selection.EntireColumn.Hidden = True Columns("eb:iq").Select Selection.EntireColumn.Hidden = True Range("dt6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "17" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:ea").Select Selection.EntireColumn.Hidden = True Columns("ej:iq").Select Selection.EntireColumn.Hidden = True Range("eb6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "18" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:ei").Select Selection.EntireColumn.Hidden = True Columns("er:iq").Select Selection.EntireColumn.Hidden = True Range("ej6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "19" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:eq").Select Selection.EntireColumn.Hidden = True Columns("ez:iq").Select Selection.EntireColumn.Hidden = True Range("er6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "20" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:ey").Select Selection.EntireColumn.Hidden = True Columns("fh:iq").Select Selection.EntireColumn.Hidden = True Range("ez6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "21" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:fg").Select Selection.EntireColumn.Hidden = True Columns("fp:iq").Select Selection.EntireColumn.Hidden = True Range("fh6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "22" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:fo").Select Selection.EntireColumn.Hidden = True Columns("fx:iq").Select Selection.EntireColumn.Hidden = True Range("fp6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "23" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:fw").Select Selection.EntireColumn.Hidden = True Columns("gf:iq").Select Selection.EntireColumn.Hidden = True Range("fx6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "24" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:ge").Select Selection.EntireColumn.Hidden = True Columns("gn:iq").Select Selection.EntireColumn.Hidden = True Range("df6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "25" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:gm").Select Selection.EntireColumn.Hidden = True Columns("gv:iq").Select Selection.EntireColumn.Hidden = True Range("gn6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "26" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:gu").Select Selection.EntireColumn.Hidden = True Columns("hd:iq").Select Selection.EntireColumn.Hidden = True Range("gv6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "27" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:hc").Select Selection.EntireColumn.Hidden = True Columns("hl:iq").Select Selection.EntireColumn.Hidden = True Range("hd6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "28" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:hk").Select Selection.EntireColumn.Hidden = True Columns("ht:iq").Select Selection.EntireColumn.Hidden = True Range("hl6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "29" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:hs").Select Selection.EntireColumn.Hidden = True Columns("ib:iq").Select Selection.EntireColumn.Hidden = True Range("ht6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "30" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:ia").Select Selection.EntireColumn.Hidden = True Columns("ij:iq").Select Selection.EntireColumn.Hidden = True Range("ib6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "31" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:ii").Select Selection.EntireColumn.Hidden = True Range("ij6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "32" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False ActiveSheet.Outline.ShowLevels ColumnLevels:=1 Range("k6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "33" Then Columns("a:ir").Select Selection.EntireColumn.Hidden = False ActiveSheet.Outline.ShowLevels ColumnLevels:=2 Range("e6").Select ActiveSheet.Protect Password:="haitham29181" End If End Sub ارجوا الافاده مع العلم ان القائمه تعمل في خطوة والثانيه ترفض بداعي الحمايه مختلفه

كل المشكله اني اريد التعديل علي الماكرو الذي يجعل القائمه المنسدله تعرض ما يطلب منها ولكن اريد عند اختيار التاريخ يظهر لي الاعمده وليس الصفوف كما في الملف المرفق اريد التعديل فقط وشكرا علي التعاون مبيعات فرع.rar