Excel~ 如何破解 xlam 加密文件(格式转换)

  最近这两天有小伙伴问我 xlam 格式的文件该如何破解。首先我们要知道 xlam 是作为 Excel 加载宏而存在的一种文件格式,如果要直接去破解它确实有一定的难度,不过我们可以转换一下思路,既然无法直接破解,则可以先将其转换为我们方便操作的文件格式再进行破解。下面这段代码即可将 xlam 文件转换为 xls 文件,转换完之后即可进行破解。

Sub FormatTransform() Dim strFile, wb As Workbook strFile = Application.GetOpenFilename(FileFilter:="Micrsoft Excel文件(*.xlam), *.xlam") If strFile = False Then Exit Sub With Workbooks.Open(strFile) .IsAddin = False .SaveAs Filename:=Replace(strFile, "xlam", "xls"), FileFormat:=xlExcel8 .Close End With End Sub
发表评论

评论已关闭。

相关文章