اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

أيهاب ممدوح

بواسطه أيهاب ممدوح
في منتدى الاكسيل 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 حالة مما يشكل إحتمالية خطأ كبيرة

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

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

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

Important Information

  I accept