السماح بالفرز التلقائي في ورقة محمية

[عبد الرحمن الحمصي]

أخوتي الأفاضل

 

لدي الكود التالي يقوم بعمل فرز لجدول موجود في ورقة عمل

 

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

 

هل لديكم حل لهذه المشكلة

 

الكود :

Private Sub Worksheet_Change(ByVal Target As Range)


    ActiveWorkbook.Worksheets("Data Entry").ListObjects("Table1").Sort.SortFields _
        .Clear
    ActiveWorkbook.Worksheets("Data Entry").ListObjects("Table1").Sort.SortFields _
        .Add Key:=Range("Table1[Customer Name]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Data Entry").ListObjects("Table1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    

شكرا وبارك الله بكم

[عبد الرحمن الحمصي]

up

[رجب جاويش]

أخى الفاضل

ضع السطر التالى فى بداية الكود ( على اعتبار مثلا أن كلمة المرور 123 )

Worksheets("Data Entry").Unprotect "123"

والسطر التالى فى نهاية الكود

Worksheets("Data Entry").Protect "123"

[عبد الرحمن الحمصي]

 

أخى الفاضل

ضع السطر التالى فى بداية الكود ( على اعتبار مثلا أن كلمة المرور 123 )

Worksheets("Data Entry").Unprotect "123"

والسطر التالى فى نهاية الكود

Worksheets("Data Entry").Protect "123"

 

شكرا جزيلا على جهدك

المشكلة أنني عندما أضيف اسم جديد بعد آخر صف من الجدول 

في الحالة العادية يقوم بإضافة الإسم الجديد إلى الجدول أما في حالة الورقة المحمية لا يقوم بإضافته مع أني جعلت العمود الذي به الجدول غير محمي ويمكن إضافة أسماء جديدة عليه

 

لا أعلم إذا كان مر عليك شيء ممائل

ولك جزيل الشكر أخي المحترم رجب

[رجب جاويش]

أخى الفاضل / عبد الرحمن

أرفق ملف به مثال لما تقول

حتى يمكن التجربة عليه

[عبد الرحمن الحمصي]

أخى الفاضل / عبد الرحمن

أرفق ملف به مثال لما تقول

حتى يمكن التجربة عليه

 

تفضل أخي الكريم رجب

الفرز التلقائي في ورقة محمية.rar

[عبد الرحمن الحمصي]

سبحان الله وبحمده سبحان الله العظيم

[رجب جاويش]

أخى الفاضل / عبد الرحمن

جرب المرفق

 

الفرز التلقائي في ورقة محمية.rar

[عبد الرحمن الحمصي]

أخي رجب الغالي حماك الله من كل مكروه و بارك بجهدك الطيب

 

هل يمكن اضافة جدول آخر بنفس الورقة وبنفس الطريقة ؟

 

بانتظار ردك

وأعذرني على طمعي بكرمك

 

شكرا جزيلا

[عبد الرحمن الحمصي]

up

[رجب جاويش]

أخى / عبد الرحمن

تفضل ما تريد

 

الفرز التلقائي في ورقة محمية.rar

[عبد الرحمن الحمصي]

أخي رجب جاويش

كل الشكر و التقدير و الإحترام لك أيها المبدع

حماك الله و سدد خطاك ورفع قدرك في الدنيا و الآخرة

[رجب جاويش]

أخى / عبد الرحمن

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