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

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

قام بنشر

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

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

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