[Pliomera]

Защищаешь лист, в модуле листа пишешь:

Private Sub Worksheet_Activate()
With Sheets("Sheet1")
.Unprotect 'программное снятие защиты
.Cells(3,1).Value = .Cells(3,1).Value + 1
.Protect 'восстановление защиты
End With
End Sub