2.打开新建的这个Excel,按下alt+F11,打开vb界面,新建一个模块,如图所示: 3.将代码复制到这个模块中,代码如下: PrivateSubVBAPassword()'你要解保护的Excel文件路径Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", ,"VBA破解")IfDir(Filename) =""Th...