VB怎么取消选定锁定单元格
SubMyprotect()DimiAsLongApplication.ScreenUpdating=FalseFori=39To50Sheets(i).SelectAc...
Sub Myprotect()
Dim i As Long
Application.ScreenUpdating = False
For i = 39 To 50
Sheets(i).Select
ActiveSheet.protect Password:="123", DrawingObjects:=False, Contents:=True
Next i
Application.ScreenUpdating = True
MsgBox "密码设置完毕!", , "protect"
End Sub
用这个运行，还是能选中锁定的单元格，我要的是只选定未锁定的单元格。
用VB程序取消第一个，只选中第二个 展开
Dim i As Long
Application.ScreenUpdating = False
For i = 39 To 50
Sheets(i).Select
ActiveSheet.protect Password:="123", DrawingObjects:=False, Contents:=True
Next i
Application.ScreenUpdating = True
MsgBox "密码设置完毕!", , "protect"
End Sub
用这个运行，还是能选中锁定的单元格，我要的是只选定未锁定的单元格。
用VB程序取消第一个，只选中第二个 展开
1个回答
展开全部
ActiveSheet.Protect Password:="123", DrawingObjects:=False, Contents:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.EnableSelection = xlUnlockedCells
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
