工作表保护后，显示运行错误1004

玖1辈子

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Dim arr
If Selection.Count > 1 Then Exit Sub
r = Target.Row: j = Target.Column
If r < 3 Then Exit Sub
If IsEmpty(Cells(r, 3)) = True Or IsEmpty(Cells(r, 6)) = True Then Exit Sub
Set d = CreateObject("Scripting.Dictionary")
xrow = Sheets("数据").Range("F65536").End(xlUp).Row
arr = Sheets("数据").Range("A1:H" & xrow)
For i = 2 To xrow
    d(arr(i, 6) & arr(i, 7) & "") = arr(i, 8)
Next i

Cells(r, 9) = d(Cells(r, 3) & Cells(r, 6) & "")


Application.ScreenUpdating = True

End Sub

网海遨游

运行开始时，加一句工作表解保护。
运行结束了，再加一句工作表保护。

玖1辈子

网海遨游 发表于 2020-3-17 13:59
运行开始时，加一句工作表解保护。
运行结束了，再加一句工作表保护。

ActiveSheet.Protect Password:=123    ' 保护工作表并设置密码

是这个么？加在哪儿句前后啊

网海遨游

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sheet1.unprotect "123"' 取消工作表保护
Application.ScreenUpdating = False
'......'
Application.ScreenUpdating = True
sheet1.protect "123"'工作表保护
End Sub

玖1辈子

网海遨游 发表于 2020-3-17 15:14
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sheet1.unprotect "123"' 取消工作表保 ...

谢谢，已经运行，可以了