有时候，我们需要对一个工作簿中的多个工作表执行相同的操作。
比如批量打印N个工作表、批量打印预览多个工作表等。
这个时候可以使用Sheets集合对象。
比如以下两句代码可以分别批量打印所有工作表和打印预览所有工作表
|
1 2 |
Sheets.PrintOut Sheets.PrintPreview |
[……]
-
如何在vba中批量对多个工作表执行相同的操作？
-
如何在忘记密码的情况下撤销保护excel工作簿密码？
如下图所示，可以通过保护工作簿来限制移动工作表的位置和窗口的结构。
当忘记了这个保护密码后，可以通过以下的vba代码来另类破解。
123456789Sub QQ1722187970()'撤销工作簿保护Dim oWb As WorkbookSet oWb = ActiveWorkbookoWb.Sheets.CopyFor Each oWK In oWb.SheetsoWK.Visible = TrueNextEnd Sub -
如何在忘记密码的情况下撤销excel工作表保护？
excel可以通过设置密码来保护工作表，防止他人修改工作表单元格的内容。
当工作表保护密码忘记时，可以通过以下的vba代码来解除excel工作表的保护密码。
12345678910Sub QQ1722187970()'撤销工作表保护密码Dim oWK As WorksheetDim oWB As WorkbookSet oWB = ActiveWorkbookFor Each oWK In oWB.WorksheetsoWK.Protect AllowFiltering:=TrueoWK.UnprotectNextEnd Sub