作者：乔山办公网日期：
返回目录：excel表格制作
如取消sheet1的深度隐藏，可以这样
Sheet1.Visible = xlSheetVisible
excel单元格，工作表隐藏和取消隐藏的方法，让你的excel隐身
显示隐藏工作表的宏操作：按ALT+F11，点百击插入菜单中的模块，在右边的代码输入框中输入如下代码，再按F5键即可度全部显示。
Sub KDK()
For Each AA In Sheets
AA.Visible = True
Next
End Sub
至于批量设置及取消工作表保护的问知题，在下实在见识浅薄，不能解答，因为工作表取道消保护必须解决密码的问题，在下试了几次也不能解决，但是如果你的工作表如果没有设置密码保护，只是一般的保护则可按如下解决，也期望有高手能版在此解决此问题，见笑。
Sub KDK()
For Each AA In Sheets
aa.Unprotect
End Sub
稍过一会儿，我再查找一下其他的资料，看能不能解决。权
Private Sub Workbook_Open()
For I = 1 To Sheets.Count
Sheets(I).ShowAllData
Next
End Sub