اضافه هذه الجمله للكود بدون خطأ

[abuhanen10]

هل يمكن اضافه هذه الجمله للكود بدون خطأ

Sub ÍãÇíå()
   Dim a As Worksheet
      For Each a In Worksheets
          If a.ProtectScenarios = False Then
                 a.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True
        ActiveSheet.EnableSelection = xlNoRestrictions
                 End If
                Next a
End Sub

اضافه Allowdatavalidation:=True,
وجعل الكود على الخلايا التى بها معادلات فقط
دمتم بكل خير

[abuhanen10]

بإنتظار احد الافاضل