首先打开要操作的Excel文件，在“开发工具”选项卡中点击“Visual Basic”，进入VBA编辑器。在“项目资源管理器”中选择要操作的工作表，右键点击“工作表对象”，选择“查看代码”。

以下是可在保护工作表中自动插入新行并添加下拉列表和自动编号的示例代码：

Private Sub Worksheet_Change(ByVal Target As Range)

Dim iRow As Long
Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("Sheet1") '设置要操作的工作表名

If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub '如果变更的不是第一列，退出程序

Application.EnableEvents = False '关闭程序事件，以便程序不触发其他更改

iRow = Target.Row '获取当前行的行号

ws.Unprotect "password" '需要输入密码才能编辑

With ws

.Range("B" & iRow).Value = iRow - 1 '在第二列上添加行编号

.Range("C" & iRow).DataValidation.Delete '删除已存在的下拉列表

.Range("C" & iRow).Value = "" '重置第三列的值为空

.Range("C" & iRow).DataValidation.Add Type:=xlValidateList, Formula1:="Option1,Option2,Option3" '为第三列添加新的下拉列表，选项需要根据实际情况更改

End With

ws.Protect "password" '重新保护工作表

Application.EnableEvents = True '重新打开程序事件

End Sub

需要注意的是，这里通过给第三列添加了一个下拉列表来实现选择。若需要显示为可输入文本框，则需要另外的代码实现。