Freeze one cell after data is entered

[mana]

you can use the event procedures in sheet module.

Option Explicit

Private Sub Worksheet_Activate()


    Application.Calculation = xlCalculationManual
    
End Sub


Private Sub Worksheet_Deactivate()


    Application.Calculation = xlCalculationAutomatic
    
End Sub