对工作表批量保护/撤销保护

郭浩
郭浩
郭浩
186
文章
2
评论
2016年3月30日14:09:16 评论 252 448字阅读1分29秒
Sub 保护工作表()
 Dim sht As Worksheet
 Dim mySheet As String
 On Error Resume Next
 Application.ScreenUpdating = False
 For Each sht In Worksheets
 mySheet = sht.Name
 Sheets(mySheet).Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
 Next sht
 Application.ScreenUpdating = True
 End Sub
Sub 撤销工资表保护()
 Dim sht As Worksheet
 Dim mySheet As String
 On Error Resume Next
 Application.ScreenUpdating = False
 For Each sht In Worksheets
 sht.Unprotect "1234"
 Next sht
 Application.ScreenUpdating = True
 End Sub
郭浩
  • 本文由 发表于 2016年3月30日14:09:16
  • 除非特殊声明,本站文章均为原创,转载请务必保留本文链接
又一个宏,这次是关于查询的 办公软件

又一个宏,这次是关于查询的

马上春节了,事情不多,今天上午又帮人做了一个查询的宏。 源文件是个极其不规范的表格,里面在数据源中存在很多合并单元格,数据也并非都在一列中,好在每个数据区域还算比较有规律(有固定的行、列数量),索引关...
匿名

发表评论

匿名网友 填写信息

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: