VBA và VSTO cho excel2003

[huongdakdoa]

câu lệnh này trong VBA, còn trong VSTO thì sao
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Cells.Locked = False
Cells.SpecialCells(xlCellTypeConstants, 23).Locked = True
Cells.SpecialCells(xlCellTypeFormulas, 23).Locked = True
ActiveSheet.Protect
End Sub