批量保护所有打开工作簿中的可见工作表

作者：绿色风分类：时间：2022-08-18 浏览：79

楼主
水星钓鱼

工作中需要每个月给客户发账单。有些客户是同属于一个品牌的供应商。这时候账单可以根据供应商名称分别导出。
为了不让客户修改账单的内容需要逐个保护，手动操作繁琐，编写以下代码来替代手工操作。

Sub xyfProtect()
Dim oWk As Workbook
Dim oWs As Worksheet
Application.DisplayAlerts = False
For Each oWk In Application.Workbooks
For Each oWs In oWk.Worksheets
If oWs.Visible = False Then
oWs.Delete
Else
oWs.Protect ("xyf8339ffib")
End If
Next oWs
oWk.SaveAs Filename:="d:\" & oWk.Name
oWk.Close
Application.DisplayAlerts = True
Next oWk
End Sub

2楼
biaotiger1

1、删除隐藏工作表，并设置工作表保护密码。
2、保存文件至D盘根目录下。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表