1、打开设置工作表保护的工作薄,选择有密码保护的工作表,如Sheet1,右键\查看代码
2、然后,EXCEL自动弹出VBA 窗口
3、将下列代码复制到代码窗口,按F5运行,即可解除密码Sub 破解()ActiveSheet.Protect AllowFiltering:=TrueActiveSheet.UnprotectEnd Sub
4、如果此工作薄的每个工作表都设有工作表保护,可以稍微修改一下程序,加一个循环就可以了!Sub 破解增强版()dim ws as worksheetFor Each ws In WorksheetsWith ws.Protect AllowFiltering:=True.UnprotectEnd WithNextEnd Sub