الصقر الحر قام بنشر أغسطس 18, 2016 مشاركة قام بنشر أغسطس 18, 2016 السلام عليكم ورحمة الله وبركاته أرغب فى تعديل هذا الكود ليقوم بحماية ورقه العمل بشرط عدم أمكانية تحديد الخلايا المؤمنة Sub pro_sheet() Dim a As Worksheet For Each a In Worksheets If a.ProtectScenarios = False Then a.Protect "aaaa" End If Next a End Sub رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 18, 2016 مشاركة قام بنشر أغسطس 18, 2016 أخي الكريم هاني يرجى وضع الأكواد بين أقواس الكود ليظهر بشكل منضبط جرب الكود التالي عله يفي بالغرض .. قبل تنفيذ الكود حدد الخلايا المراد حمايتها ثم كليك يمين ثم Format Cells ثم انتقل للتبويب Protection ثم علم علامة صح بحوار الخيار Locked Sub Protect_All_Sheets() Dim Sh As Worksheet For Each Sh In Worksheets If Sh.ProtectScenarios = False Then Sh.Protect "aaaa" Sh.EnableSelection = xlUnlockedCells End If Next Sh End Sub تقبل تحياتي 3 رابط هذا التعليق شارك More sharing options...
الصقر الحر قام بنشر أغسطس 18, 2016 الكاتب مشاركة قام بنشر أغسطس 18, 2016 الأخ الفاضل والأستاذ الجليل / ياسر خليل سلمت يداك .. الف شكر هذا هو ما أريده تقبل تحياتى 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 19, 2016 مشاركة قام بنشر أغسطس 19, 2016 سلمت من كل سوء أخي الكريم هاني الحمد لله أن تم المطلوب على خير تقبل وافر تقديري واحترامي 1 رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أكتوبر 22, 2016 مشاركة قام بنشر أكتوبر 22, 2016 اخي ابو البراء جزاك الله خيرا اليوم تعلمت منك ProtectScenarios و استفدت منها 2 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 22, 2016 مشاركة قام بنشر أكتوبر 22, 2016 وجزيت خيراً معلمي بمثل ما دعوت لي .. ويبقى لك الفضل بعد الله عزوجل في أني أحببت هذا المجال تقبل وافر تقديري واحترامي 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.