مساعدة : حماية نطاق معين من الخلايا بدون حماية ورقة العمل

[morsy515a]

مساعدة : حماية نطاق معين من الخلايا بدون حماية ورقة العمل مع عد القدرة على اختيارها vba

حماية نطاق من الخلايا.rar

[علي المصري]

جرب الطريقة التالية

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 6 Then
            Cells(Target.Row, Target.Column).Offset(0, 1).Select
    End If
End Sub

 

حماية نطاق من الخلايا.rar

تم تعديل ديسمبر 23, 2017 بواسطه علي المصري

[سليم حاصبيا]

جرب هذا الملف

 

حماية نطاق من الخلايا Salim.rar

[morsy515a]

شكرا جزيلا استاذ على

شكرا جزيلا استاذ سليم

 

من فضلك استاذ على المصرى لو اردت ان اقوم بعمل ذلاك على عمود رقم الجلوس و عمود المجموع

كيف ذلك

و لو كنت اريد ان اقوم بانشاء جدول و جعل هذا الكود يعمل علي هذا الجدول

ما سوف اوقم به

[سليم حاصبيا]

59 دقائق مضت, morsy515a said:

شكرا جزيلا استاذ على

شكرا جزيلا استاذ سليم

 

من فضلك استاذ على المصرى لو اردت ان اقوم بعمل ذلاك على عمود رقم الجلوس و عمود المجموع

كيف ذلك

و لو كنت اريد ان اقوم بانشاء جدول و جعل هذا الكود يعمل علي هذا الجدول

ما سوف اوقم به

رداً على هذا السؤال اليك هذا الملف  ( عمود رقم الجلوس و عمود المجموع و يعمل علي هذا الجدول )

 

 

 

حماية نطاق من الخلايا Salim1.rar

[علي المصري]

59 minutes ago, morsy515a said:

شكرا جزيلا استاذ على

شكرا جزيلا استاذ سليم

 

من فضلك استاذ على المصرى لو اردت ان اقوم بعمل ذلاك على عمود رقم الجلوس و عمود المجموع

كيف ذلك

و لو كنت اريد ان اقوم بانشاء جدول و جعل هذا الكود يعمل علي هذا الجدول

ما سوف اوقم به

أولا شكرا جزيلا استاذ سليم وعلى موضوعاتك التي افادتني كثيرا

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

بالنسب للرد على السؤال : الجواب كالتالي

If Target.Column = 6 Then

الرقم 6 هنا هو رقم العمود

يمكنك العد من اول عمود A برقم 1 إلى ان  تصل للعمود الذي تريده واكتب الرقم بدل الرقم 6

 

يعني استبدل السطر

If  Target.Column = 6 Then

بالسطر

If Target.Column = 3 Or Target.Column = 6 Then