أيهاب ممدوح قام بنشر يوليو 28, 2011 قام بنشر يوليو 28, 2011 السلام عليكم ورحمه الله وبركاته انا عندي مشكله في الاكسل والاكواد الخاصه بيه عند كود خاص بقائمه منسدله لاظهار نطاق معين وبالفعل نجحت لكن المشكله انها تعمل بدون حمايه الملف والمعادلات اريد فقط ان تعمل مع وضع الحمايه علي الشيت الخاص بها واليكم الكود واود ان اعرف هل المشكله في الكود ام في الشيت نفسه 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 ارجوا الافاده مع العلم ان القائمه تعمل في خطوة والثانيه ترفض بداعي الحمايه مختلفه
طارق محمود قام بنشر أغسطس 2, 2011 قام بنشر أغسطس 2, 2011 السلام عليكم أخي العزيز الكود يحتاج الكثير من الوقت لمراجعته مع أنه مكون من عدة أوامر 4 أو 5 فقط ولكنها متكررة علي 33 حالة مما يشكل إحتمالية خطأ كبيرة الأفضل أن ترسل الملف وتوضح ماتريد عليه مع جميع الحالات
أيهاب ممدوح قام بنشر أغسطس 2, 2011 الكاتب قام بنشر أغسطس 2, 2011 السلام عليكم أخي العزيز الكود يحتاج الكثير من الوقت لمراجعته مع أنه مكون من عدة أوامر 4 أو 5 فقط ولكنها متكررة علي 33 حالة مما يشكل إحتمالية خطأ كبيرة الأفضل أن ترسل الملف وتوضح ماتريد عليه مع جميع الحالات اولا اود ان اوجه الشكر لك علي الرد ولكن تم الرد في موضوع احر من قبل الاح ابو احمد والحسامي ولقد وصلنا لمراحل متقدمه جدا ما لم تكن نهائيه الف مليون شكر للجميع
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.