المحافظة على مرونة جدول (لا نطاق ) في ورقة محمية فنزيد صفوفه

[محمد حسن المحمد]

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

إخوتي الكرام:عمالقة وعباقرة المنتدى الكريم

تساءلت عن مرونة جدول في ورقة محمية ...لنزيد صفوفه حسب الحاجة وتداولت موضوعه مع بعض الأصدقاء

لأنه وكما تعلمون أنه عند نهاية الجدول في ورقة غير محمية نقوم بالمفتاح Tab بفتح صف جديد ...فهو هنا مرن وجميل وخصوصاً أن استخدامات الجداول أكثر لياقة في مجالات الفرز والتصفية والبحث ...إلخ.

وبعد البحث والاستعانة بالخبرات توصلت إلى الكودين التاليين :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Integer
n = Cells(Rows.Count, 3).End(xlUp).Row
If Target.Column = 5 And Target.Row = n Then
With ActiveSheet
.Unprotect "1"
.ListObjects(1).Resize Range("$C$4:$E$" & n + 1)
.Protect "1"
End With
End If

End Sub

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n As Integer
n = Cells(Rows.Count, 3).End(xlUp).Row + 1
If Target.Column = 3 And Target.Row = n Then
With ActiveSheet
.Unprotect "1"
.ListObjects("Table1").Resize Range("$C$4:$E$" & n)
.Protect "1"
End With
End If
End Sub

حيث تتم زيادة الصفوف بالمفتاح Tab عندما تكون الصفوف أسفله لم يتم تأمينها...أما إن كانت الخلايا مؤمنة فإنه يتم نقر الماوس تحت أول عمود من الجدول ليفتح صفاً جديداً...

ورغبة مني بإثرائكم للموضوع من ناحية مرونة الجدول بإضافة أعمدة أو صفوف حال الحماية فإنني أضعه بين أيديكم الكريمة

لينال حقه الوافي من الدراسة....والسلام عليكم ورحمة الله وبركاته.

ملاحظة:للأمانة العلمية..الأكواد والملف المرفق منقولة .

وبما أن العمل على ورقة محمية رمز الحماية:1

 

Add row to table.rar

تم تعديل أبريل 6, 2016 بواسطه محمد حسن المحمد
تم تصحيح الكود1 وفقاً لتوجيهات أخونا أبو البراء...

[ياسر خليل أبو البراء]

أخي الحبيب أبو يوسف

جزاكم الله خيراً على هذه الموضوعات الجديدة والمتميزة والرائعة بحق

بارك الله فيك وجزاك الله كل خير ..

 

انتظرت في الرد حتى أقوم بتجربة الأكواد المقدمة .. الكود الثاني يعمل بشكل جيد تماماً

الكود الأول سليم ولا عيب به سوى شيء بسيط جداً جداً .. وهو أنه لا يقوم بإدراج صف جديد إلا بعد الضغط على TAB من لوحة المفاتيح .. وبهذا ليس له فائدة حيث أن الضغط على TAB يفعل الكود الثاني وليس الأول ..أي الإدراج في هذه الحالة يكون مرتبط بالكود الثاني

المطلوب عمله لتصحيح الكود الأول وجعله يقوم بعملية الإدراج هو أن تضيف للمتغير N الرقم 1 .. بحيث يصبح السطر بهذا الشكل

.ListObjects(1).Resize Range("$C$4:$E$" & n + 1)

وأخيراً تقبل وافر تقديري واحترامي

 

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته أخي الحبيب أبو البراء ...

جزاكم الله خيراً على أولى المشاركات التي افتتحتها بهذا الكلام الطيب وأرجو الله تعالى أن يجعلني محلّ رضاكم وثقتكم

حقيقة ...لم أطرح الموضوع إلا لأستفيد من بحركم الزاخر وعلمكم الواسع..الذي أتشرف بكوني طالباً من طلابه

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

[ياسر خليل أبو البراء]

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

أبي الغالي أبو يوسف

ما قدمته ليس نقداً للكود الرائع الذي قدمته إنما هو نوع من التفاعل ، وصدقني أنا مثلي مثلكم تماماً مجرد طويلب علم لا أكثر ، وليس البحر زاخر كما تعتقد إنما هو بحر في منتهى الضحالة

أفضل الكود الثاني في الأكواد المقدمة حيث أنه يفي بالغرض ..

تقبل تحياتي

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته أخي الحبيب أبو البراء ...

من تواضع لله رفعه الله ...تواضعٌ نقدّره ...ونعلم حقاً أنكم أستاذ تستحق التكريم ولنا مثال راقٍ في ولديّ هارون الرشيد الذي اتسع ملكه ليبلغ الآفاق فما كان منهما إلا أن حمل كل منهما فردة حذاء أستاذهما ....تقديراً لعلمه وتعليمه وتأديبه فالمعلم أبٌ ثانٍ ليس بإمكان كل أبٍ أداء دوره...ولذلك وجب تقدير المعلم وإعطاءه المكانة التي يستحقها في المجتمع وفي قلوب تلامذته...

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

[عبدالسلام ابوالعوافي]

شكرا استاذ محمد

[محمد حسن المحمد]

1 دقيقه مضت, عبدالسلام ابوالعوافي said:

شكرا استاذ محمد

السلام عليكم ورحمة الله وبركاته أخي الكريم عبد السلام أبو العوافي..

مرحباً بك بين إخوتك في منتدى أوفيسنا...نتشرف بوجودك بيننا ...أخاً كريماً ...ستجد في هذا المنتدى الكريم

إخوة متحابين متعاونين ...يتبادلون الأفكار ...ويعطي كل منهم أفضل ما عنده خدمة لهذه الأمة الإسلامية التي أشرق مجدها وأضاء نورها أقاصي الدنيا وعم أرجاءها في القرون الوسطى ...ولا يمكننا إعادتها إلى سابق عهدها إلا بالتسابق لرفعة شأنها بالعلم أولاً امتثالاً لقول الله تعالى :علّم بالقلم *علّم الإنسان ما لم يعلم).

أشكرك على مساعدتي بإنجاز الملف المذكور أعلاه..

أكرر ترحيبي بك ..على الرحب والسعة ...والسلام عليكم ورحمة الله وبركاته...أخوكم أبو يوسف.

[عبدالسلام ابوالعوافي]

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

[جلال الجمال_ابو أدهم]

ما شاء الله عليك
و بارك الله فيك

[محمد حسن المحمد]

السلام عليكم إخوتي الكرام

أخي الكريم عبد السلام أبو العوافي وأخي الكريم أبو أدهم... 

أشكركم على مروركم العطر على موضوعي المتواضع...تشرفت بمروركم وبكلامكم الطيب...

والسلام عليكم.

تم تعديل أبريل 7, 2016 بواسطه محمد حسن المحمد

[saad abed]

اخى محمد ابويوسف

لباقة في الكلمات والاكواد ما شاء الله

جزاك الله خيرا

[محمد حسن المحمد]

الان, سعد عابد said:

اخى محمد ابويوسف

لباقة في الكلمات والاكواد ما شاء الله

جزاك الله خيرا

السلام عليكم أخي الكريم سعد ..جعلك الله تعالى من سعداء الدارين..

مروركم العطر وكلماتكم الطيبة ...وسام شرف لي أضعه على صدري...من أخ كريم.

تقبل تحياتي العطرة..والسلام عليكم.