Excel 数据输入后保护单元格，需要输入重量，以特定格式记录输入时间，比较数值，并设置计数器 Private子工作表\u更改（ByVal目标作为范围） ActiveSheet.Unprotect密码：=“123” Target.Locked=True 将任务单调整为工作表 作为整数的Dim i 将T2设置为整数 设置任务表=此工作簿.Sheets（“Sheet1”） Lr=任务单.Cells（Rows.Count，1）.End（xlUp）.Row 对于i=2至Lr 如果tasksheet.Cells（i，“A”）.Value“”和tasksheet.Cells（i，“B”）.Value=”“，则 任务单。单元格（i，“B”）。值=时间 任务单.单元格（i，“B”）.NumberFormat=“hh:mm” tasksheet.Cells（i，“A”）.Font.ColorIndex=5 如果结束 如果任务单单元格（i，“A”）

我一直收到错误：

运行时错误1004:无法将数字格式属性设置为超出类的范围

请您帮忙，我有一点VB知识。

---

提前感谢您

哪一行出现错误？任务表。单元格（i，“B”）.NumberFormat=“hh:mm”您确定该工作表已取消保护吗？输入后，非空白单元格受到保护，但VB错误显示为错误1004如果我取消工作表保护，代码将无错误运行。哪一行出现错误？任务表。单元格（i，“B”）.NumberFormat=“hh:mm”您确定工作表已取消保护吗？输入后，非空白单元格受到保护，但VB错误出现，错误为1004如果我取消工作表保护，代码将无错误运行

   Private Sub Worksheet_Change(ByVal Target As Range)

 ActiveSheet.Unprotect Password:="123"

 Target.Locked = True
Dim tasksheet As Worksheet

Dim i As Integer

Dim T2 As Integer
Set tasksheet = ThisWorkbook.Sheets("Sheet1")

Lr = tasksheet.Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To Lr

If tasksheet.Cells(i, "A").Value <> "" And tasksheet.Cells(i, "B").Value = "" Then
tasksheet.Cells(i, "B").Value = Time

tasksheet.Cells(i, "B").NumberFormat = "hh:mm"

tasksheet.Cells(i, "A").Font.ColorIndex = 5

End If

 If tasksheet.Cells(i, "A") < 18.9 Then

                   T2 = T2 + 1

            tasksheet.Cells(i, "A").Font.ColorIndex = 3

        End If
Next

 Cells(5, 10).Value = T2

ActiveSheet.Protect Password:="123"

End Sub