ابن بنها قام بنشر أكتوبر 2, 2017 مشاركة قام بنشر أكتوبر 2, 2017 Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect '================== For Each cel In Target.Cells Application.EnableEvents = False If cel.HasFormula Then cel.Locked = True cel.FormulaHidden = True With ActiveSheet .Protect .EnableSelection = xllockedCells End With GoTo 1: Else ActiveSheet.Unprotect End If Next 1: Application.EnableEvents = True End Sub ماهي طريقة تطبيقه على جميع الصفحات ؟ من فضلكم رابط هذا التعليق شارك More sharing options...
صـدّيـق قام بنشر أكتوبر 2, 2017 مشاركة قام بنشر أكتوبر 2, 2017 في حدث thisworkbook SheetSelectionChange رابط هذا التعليق شارك More sharing options...
حليم ناصر قام بنشر أكتوبر 2, 2017 مشاركة قام بنشر أكتوبر 2, 2017 سلام عليكم سادة الاعضاء الله يبارك فيكم ويرزقكم الصحة والعافية ممكن اطلب منكم مثال في ملف على كيفية تطبيق كود حمايه على جميع الصفحات و كذا الاوراق لاني احتاجه ومهم بالنسبة لي وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
صـدّيـق قام بنشر أكتوبر 3, 2017 مشاركة قام بنشر أكتوبر 3, 2017 تفضل، المثال في الملف protectall.rar رابط هذا التعليق شارك More sharing options...
ابن بنها قام بنشر أكتوبر 3, 2017 الكاتب مشاركة قام بنشر أكتوبر 3, 2017 الملف لايتم تحميله ارجو اعاده تحميله مره اخرى رابط هذا التعليق شارك More sharing options...
صـدّيـق قام بنشر أكتوبر 3, 2017 مشاركة قام بنشر أكتوبر 3, 2017 تم رفعه مرة اخرى protectall.rar رابط هذا التعليق شارك More sharing options...
ابن بنها قام بنشر أكتوبر 3, 2017 الكاتب مشاركة قام بنشر أكتوبر 3, 2017 رابط هذا التعليق شارك More sharing options...
صـدّيـق قام بنشر أكتوبر 3, 2017 مشاركة قام بنشر أكتوبر 3, 2017 جرب all.rar رابط هذا التعليق شارك More sharing options...
ابن بنها قام بنشر أكتوبر 3, 2017 الكاتب مشاركة قام بنشر أكتوبر 3, 2017 جزاك الله خيرا .... ولكن عند الوقوف على خليه المعادله تظهر المعادله رابط هذا التعليق شارك 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.