摘要： 有时需要让Excel工作簿中的每个工作表只能查看而不被修改，可以对所有的工作表进行保护，如果工作簿中的工作表数量较多，手动逐一操作十分繁琐。在工作表保护密码相同或不设置密码的情况下，用下面的方法可以快速保护所有工作表。
1.按Alt F11，打开VBA编辑器。单击菜单“视图→立即窗口”，或按Ctrl G打开“立即窗口”。
2.在“立即窗口”中输入下列代码，然后将光标定位到语句最后按回车键运行代码：
excel利用颜色标记包含数组公式的单元格
当工作表中包含大量多单元格数组公式时，有时为了方便编辑这些数组公式，可能希望将工作表中的数组公式单独标记出来，以区分非数组公式，这时可以用下面的VBA代码来实现。 选择包含数组公式的工作表，按Alt F11，打开VBA编辑器，在右侧代码窗口中输入下列代码： Sub ColorArray()Dim rCell As Ra
For Each ws In Worksheets : ws.Protect Password:="123" : Next ws
工作簿中所有的工作表即被保护，本例所设置的密码为“123”。如果要撤消所有工作表的保护，只需在立即窗口中输入下面的代码并回车运行：
For Each ws In Worksheets : ws.Unprotect Password:="123" : Next ws
如何快速将多个excel工作表批量另存为单独的工作簿
有时会遇到这种情况，某个Excel工作簿中包含许多工作表，需要把其中的某个工作表发送给其他用户，或者将某几个工作表发送给不同的用户，通常的做法是将这些工作表移动或复制到新工作簿中，保存后再发送给他们。当工作表的数量较多时，逐一手动操作显得有些繁琐，这时用下面的VBA代码就非常方便了，方法如下： 按Alt F11，打开V
