以下代码可以破解WPS工作簿的保护密码,运行代码时会弹出密码输入框,取消或ESC掉即可
ActiveSheet.Protect(undefined,DrawingObjects=true, Contents=true, Scenarios=true,AllowFiltering=true, AllowUsingPivotTables=true)
ActiveSheet.Protect(undefined,DrawingObjects=false, Contents=true, Scenarios=false, AllowFiltering=true, AllowUsingPivotTables=true)
ActiveSheet.Protect(undefined,DrawingObjects=true, Contents=true, Scenarios=false, AllowFiltering=true, AllowUsingPivotTables=true)
ActiveSheet.Protect(undefined,DrawingObjects=false, Contents=true, Scenarios=true, AllowFiltering=true, AllowUsingPivotTables=true)
ActiveSheet.Unprotect()