Tip Printed from ExcelTip.com
Cell protection only for formulas using VBA in Microsoft Excel


Question:
Only cells with formulas are to be protected. New entries are recognized and also protected.


Answer:
Insert the following code in This Workbook module.











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