单元格输入一次数值都被保护功能，但是在此vb代码下无法输入数值，错误13，类型不匹配，怎么修改？
PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)ActiveSheet.UnprotectPassword:...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect Password:="111"
If Target <> "" Then
Target.Locked = 1
ActiveSheet.Protect Password:="111"
End If
End Sub 展开
ActiveSheet.Unprotect Password:="111"
If Target <> "" Then
Target.Locked = 1
ActiveSheet.Protect Password:="111"
End If
End Sub 展开
2个回答
展开全部
Excel怎样设置单元格输入次数限制
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
我测试是正常的，空白单元格可以输入，有值即被保护，另外为方便后期输入事件改为CHANGE
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="111"
If Target <> "" Then
Target.Locked = 1
ActiveSheet.Protect Password:="111"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="111"
If Target <> "" Then
Target.Locked = 1
ActiveSheet.Protect Password:="111"
End If
End Sub
更多追问追答
追问
我发现这串代码只能针对单个单元格进行设置，合并的单元格会出现这问题，怎么修改好？
追答
那实际是区域，需要在单元格区域内循环设置一遍.locked
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
