excel2007一张工作簿里有多张（100来张）工作表，如何对全部工作表进行保护，如何进行批量

发布网友 发布时间：2022-04-25 15:15

我来回答

共4个回答

热心网友 时间：2023-11-02 20:50

简单~

随便画个按钮，双击，开始编辑

Private Sub CommandButton1_Click()

Dim a, b

a = Sheets.Count

For b = 1 To a

Sheets(b).Protect AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True

Next

End Sub

按一下那个小三角，或者按一下F5，就全部都保护了~

之后把代码和那个按钮都删除了就成了

热心网友 时间：2023-11-02 20:50

将这个工作薄设为“只读”即可。别人可以打开，不能更改。

热心网友 时间：2023-11-02 20:51

银烛秋光冷画屏,轻罗小扇扑流萤.

热心网友 时间：2023-11-02 20:51

写个VBA程序吧