اذهب الي المحتوي
أوفيسنا

قائمه منسدله لاظهار نطاق معين

أيهاب ممدوح

بواسطه أيهاب ممدوح
في منتدى الاكسيل Excel

 مشاركة

الردود الموصى بها

أيهاب ممدوح

أيهاب ممدوح

قام بنشر
قام بنشر

السلام عليكم ورحمه الله وبركاته

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

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

ارجوا الافاده مع العلم ان القائمه تعمل في خطوة والثانيه ترفض بداعي الحمايه مختلفه

رابط هذا التعليق
شارك
طارق محمود

طارق محمود

قام بنشر
قام بنشر

السلام عليكم

أخي العزيز

الكود يحتاج الكثير من الوقت لمراجعته

مع أنه مكون من عدة أوامر 4 أو 5 فقط ولكنها متكررة علي 33 حالة مما يشكل إحتمالية خطأ كبيرة

الأفضل أن ترسل الملف وتوضح ماتريد عليه مع جميع الحالات

رابط هذا التعليق
شارك
أيهاب ممدوح

أيهاب ممدوح

قام بنشر
  • الكاتب
قام بنشر

السلام عليكم

أخي العزيز

الكود يحتاج الكثير من الوقت لمراجعته

مع أنه مكون من عدة أوامر 4 أو 5 فقط ولكنها متكررة علي 33 حالة مما يشكل إحتمالية خطأ كبيرة

الأفضل أن ترسل الملف وتوضح ماتريد عليه مع جميع الحالات

اولا اود ان اوجه الشكر لك علي الرد ولكن تم الرد في موضوع احر من قبل الاح ابو احمد والحسامي ولقد وصلنا لمراحل متقدمه جدا ما لم تكن نهائيه الف مليون شكر للجميع

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept