记录成长
分享快乐

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

赞(0) 我要打赏
蝈蝈提醒:转载请注明出处哦>>>蝈蝈要安静 » Excel~ 如何破解 xlam 加密文件(格式转换)
分享到: 更多 (0)

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

博客文章有用,赏博主一包辣条~~~

支付宝扫一扫打赏

微信扫一扫打赏