الغاء الحماية عند الترحيل وإعادتها بعده

[الجزيرة]

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

يوجد عندي ملف مكون من ورقتين الورقة الاولى فيها بيانات أرغب في ترحيلها للورقة الثانية

كود الترحيل يعمل بشكل ممتاز

المشكلة :

عندما أضع حماية لأحد الاوراق أو كلاهما ( وهذا أفضل ) لا يعمل الكود ، مالحل أحبتي في الله ؟

[أبوعبد الله]

أخي العزيز / أبو عبدالله

الترحيل عادة لايؤثر على مصدر البيانات المراد ترحيلها المحمي ولا تعوق الحماية عملية الترحيل ولكن الورقة المرحل إليها هي التي تحتاج لفك الحماية قبل الترحيل ثم إعادتها بعده وذلك بوضع السطر الآتي في بداية كود الترحيل وبفرض أن الورقة المرحل لها إسمها database وبفرض أنها محمية بكلمة سر 123

Sheets("Database").Unprotect Password:="123"

وفي نهاية كود الترحيل ضع هذا السطر :

Sheets("Database").Protect Password:="123"

تحياتي

أبو عبدالله

تم تعديل فبراير 18, 2010 بواسطه أبو عبد الله

[الجزيرة]

مشكور أخي الكريم أبو عبدالله

من ضمن خيارات الحماية ( السماح بالتصفية التلقائية ) في الورقة المرحل اليهاوأسمها ( ترحيل )

ولكنها لاتعمل أي أن علامة (صح) المجاورة لها تحذف ! !

والمقصد أن الورقة تكون محمية بالكامل عدا التصفية التلقائية

مع خالص الشكر لك أخي العزيز ولكل من يدلي بدلوه في موضوعي هذا : )

[خالد القدس]

السلام عليكم أفادك الله أستاذ عبدالله كود مفيد ومفهوم تمام متعك الله بالصحة والعافية

[الجزيرة]

شكرا لك أخي خالد

فأنت النور الذي يضئ المنتدى بمشاركاتك الطيبة وردودك المهذبة : )

[أبوعبد الله]

أخي العزيز / أبو عبدالله

أرجو إرفاق ملف حتى يتم التطبيق عليه حيث أنني لم افهم بشكل دقيق طلبك الأخير .

تقبل تحياتي

أبو عبدالله

[الجزيرة]

أخي العزيز أبو عبدالله

تسلم يالغالي ، تم وضع الحماية على الورقة بالكامل كما في طريقتك : )

مشكور على المتابعة