Excel~ 如何破解 xlam 加密文件（格式转换）

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

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

更多 Excel 格式请查阅>>>https://docs.microsoft.com/zh-CN/office/vba/api/Excel.XlFileFormat