(تمت الإجابة) جعل اخفاء واظهار الاعمدة والصفوف مقتصر على الكود فقط

[فضل حسين]

الى اعضاء وخبراء منتداى العزيز والعظيم

تحية طيبة وبعد

برجاء المساعدة بكود يقوم باخفاء واظهار مثلا اى اعمدة وصفوف معينة يتم تحديدها . ولكن عند اظهار هذه الاعمدة والصفوف المخفية لاتظهر الا ايضا بكود .

بمعنى ان لايجوز للمستخدم استخدام قائمة تنسيق واختيار اعمدة او صفوف للاظهار او للاخفاء للاعمدة والصفوف .

ولكن المطلوب يكون الكود هو المتحكم الوحيد فى اظهار واخفاء الاعمدة والصفوف ولايكون هناك اى بدائل اخرى متاحة للمستخدم غير استخدام الكود لاظهار واخفاء الاعمدة والصفوف .

[مجدى يونس]

الاخ / فضل

انظر المرفق رقم السرى فى الحالتين 123 يمكن تغير الاوامر فى حالة الصفوف من Columns الى Row

مجدى يونس

اظهار واخفاء.rar

اظهار واخفاء.rar

[احمد فضيله]

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

بعد اذن اخي العزيز الاستاذ الفاضل / مجدي يونس

الاخ الاستاذ / فضل

تفضل هذا المرفق و كلمة السر هي : 123

و الله المستعان

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

Hide Column HaNcOcK.rar

[فضل حسين]

_{الاخوة الاساتذدة الفضلاء /مجدى يونس والاستاذ / hancock}

كل الاحترام والتقدير والشكر لسيادتكم وجزاكم الله كل خير وانا سعيد جدا بمشاركتكم ومروركم الكريم على المشاركة فكل الحب لسيادتكم .

اما بخصوص الحل للاسف لم يكن هو المطلوب

فبالنسبة لحلكم الاستاذ / مجدى يونس

مفيش الحماية المطلوبة بالكود لاننى بقوم بالتحديد الكامل للورقة بالكامل وبدخل على قائمة تنسيق وبختار مثلا اعمدة ثم اظهار بتظهر جميع الاعمدة المخفية وهذا ليس المطلوب .

وبالنسبة لحل الاستاذ/ hancock

بقف على العمود حتى يتحول مؤشر الماوس الى سهمين مكان الاعمدة المخفية واسحب بتظهر جميع الاعمدة المخفية وليس هذا المطلوب .

المطلوب

كود يقوم باخفاء الاعمدة او الصفوف التى تم تحديدها ولاتظهر هذه الاعمدة ولا الصفوف الا بكود باخر . ولايمكن اظهار هذه الاعمدة والصفوف من قائمة تنسيق واختيار امر اظهار ولاباى طريقة اخرى الا عن طريق الكود فقط لاغير .

تم تعديل نوفمبر 13, 2011 بواسطه فضل 1

[يوسف عطا]

يمكنك إستخدام الكود التالى

Sub إخفاء()


	Sheets("2").Select

	Columns("A:IV").Select

	Selection.EntireColumn.Hidden = True

	Columns("H").Select

	Selection.EntireColumn.Hidden = False

	Columns("CU:CZ").Select

	Selection.EntireColumn.Hidden = False

	Columns("EC").Select

	Selection.EntireColumn.Hidden = False

	Range("H11").Select

End Sub

الذهاب إلى الشيت إللى إسمه 2

إخفاء جميع الأعمدة

إظهار فقط الأعمدة التالية

H

CU:CZ

EC

ثم الوقوف فى الخلية H11

يتم ربط هذا الكود بزر لتشغيل الماكرو

وبالطبع تغيير اسماء الأعمدة وإسم الشيت سهل

أرجو أكون أفدتك

[فضل حسين]

الاساتذة الفضلاء انا شاكر لكم جهودكم ومقدر جدا حلولكم وجزاكم الله كل خير وبارك الله فيكم

ولكن وللاسف المطوب ليس هذا فمثلا فى حل الاستاذ الفاضل / يوسف عطا

تم تنفيذ الكود وقام بالفعل باخفاء الاعمدة ولكن عندما قمت بتحديد الورقة بالكامل وفتحت قائمة تنسيق واخترت امر اعمدة ثم اظهارظهرت جميع الاعمدة . انا مش عايز كدة

انا عايز

زر كود عندما اضغط عليه يقوم باخفاء اعمدة او صفوف تم تحديدها ولااستطيع اظهار هذه الاعمدة من قائمة تنسيق واختيار امر اعمدة ثم اظهار .

ولكن تظهر هذه الاعمدة او الصفوف عن طريق زر كود اخر

يارب اكون وصلت الفكرة

شاكر لكم حلولكم الكريمة والف الف الف شكر

تم تعديل نوفمبر 13, 2011 بواسطه فضل 1

[الحسامي]

السلام عليكم

هنا طريقة لاخفاء واظهار صفوف بزرين وباستخدام حماية الصفحة بالاكواد

ارجو ان تساعد

hide hosami.rar

[فضل حسين]

استاذى الفاضل / فارس الاكسل العربى

الحسامى باشا

هو ده المطلوب اثباته بالضبط

مش عارف والله اقولك ايه غير ياباشا امتياز مع مرتبة الشرف .

وارفع لفارس الاكسل العربى القبعة احتراما واجلالا لحلوله الرائعة

الف شكر يافارسنا وربنا يخليك لنا ويبارك فيك .

[mohamedabosehly]

شكرا

 

[ناصر سعيد]

في 11/14/2011 at 03:02, الحسامي said:

 

 

السلام عليكم

 

 

 

هنا طريقة لاخفاء واظهار صفوف بزرين وباستخدام حماية الصفحة بالاكواد

 

 

 

ارجو ان تساعد

 

 

 

 

hide hosami.rar

 

الله يرحمك ويحسن اليك ..

بحق الله يدخلك فسيح جناته

كنت حقا فارسا للاكسيل وخلوقا

الله يرحمك استاذ الحسامي

لم تغلق اعمالك

وتركتها لنا  مفتوحه

لنتعلم وندعو لك

Sub Macro1()
SpreadsheetPassword = 123
ActiveSheet.Unprotect Password:=SpreadsheetPassword
Rows("10:15").EntireRow.Hidden = True
    
ActiveSheet.Protect Password:=SpreadsheetPassword, UserInterfaceOnly:=True
ActiveSheet.EnableOutlining = True
End Sub
Sub Macro2()
SpreadsheetPassword = 123
ActiveSheet.Unprotect Password:=SpreadsheetPassword
 Rows("10:15").EntireRow.Hidden = False
    
ActiveSheet.Protect Password:=SpreadsheetPassword, UserInterfaceOnly:=True
ActiveSheet.EnableOutlining = True
    
End Sub

كود الحسامي رحمة الله عليه