تطبيق كود حمايه لجميع الصفحات

[ابن بنها]

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

ماهي طريقة تطبيقه على جميع الصفحات ؟

من فضلكم

 

 

[صـدّيـق]

في حدث thisworkbook

SheetSelectionChange
                                                                     

[حليم ناصر]

سلام عليكم

سادة الاعضاء 

الله يبارك فيكم ويرزقكم الصحة والعافية

ممكن  اطلب  منكم مثال في ملف  على كيفية تطبيق كود حمايه على جميع الصفحات و كذا الاوراق لاني احتاجه  ومهم بالنسبة لي

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

 

[صـدّيـق]

تفضل، المثال في الملف

protectall.rar

[ابن بنها]

الملف لايتم تحميله ارجو اعاده تحميله مره اخرى

[صـدّيـق]

تم رفعه مرة اخرى 

protectall.rar

[ابن بنها]

[صـدّيـق]

جرب 

all.rar

[ابن بنها]

جزاك الله خيرا .... ولكن عند الوقوف على خليه المعادله تظهر المعادله