کد قفل سلول های حاوی فرمول اکسل

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim rng As Range   
   For Each rng In Target.Cells   
           If rng.HasFormula Then      
          ActiveSheet.Protect         
         Exit Sub         
   Else      
         ActiveSheet.Unprotect         
      End If      
   Next rng   
End Sub