Private Sub Workbook_Open()
ActiveSheet.Unprotect ("ABC")
End Sub
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Protect Password:="ABC"
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
ActiveSheet.Protect Password:="ABC"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Range("A1:Z65535").SpecialCells(xlCellTypeConstants, 23).Select
Selection.Locked = True
Target.Select
End Sub
Private Sub Workbook_Open()
ActiveSheet.Unprotect ("ABC")
End Sub
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Protect Password:="ABC"
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
ActiveSheet.Protect Password:="ABC"
End Sub
excel 这几句代码是什么意思?
答案:2 悬赏:40 手机版
解决时间 2021-03-05 15:18
- 提问者网友:骑士
- 2021-03-05 00:42
最佳答案
- 五星知识达人网友:一把行者刀
- 2021-03-05 01:44
每个Excel文件都是以Workbook方式打开的。在Workbook里面会有不同的Sheet.
你的这个代码有几个不同的marco.以这个写起来的方式判断,应该是认为录制的,而不是自己写的(MS有录制功能,能把别人一次性的操作录下来,然后转换成VBA)
这个代码的主要功能就是在打开当前选定页面进行修改的时候取消保护模式,密码为“ABC”.单后党完成编辑推出的时候,重新吧当前页面的所有范围都都修改回保护模式,密码是“ABC”
你的这个代码有几个不同的marco.以这个写起来的方式判断,应该是认为录制的,而不是自己写的(MS有录制功能,能把别人一次性的操作录下来,然后转换成VBA)
这个代码的主要功能就是在打开当前选定页面进行修改的时候取消保护模式,密码为“ABC”.单后党完成编辑推出的时候,重新吧当前页面的所有范围都都修改回保护模式,密码是“ABC”
全部回答
- 1楼网友:独钓一江月
- 2021-03-05 03:16
行
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯