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

人已赞赏
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
有新消息 消息中心
搜索