VBA - 取消隐藏所有工作表

Sub UnhideAll()
Dim WS As Worksheet
    For Each WS In Worksheets
        WS.Visible = True
    Next
End Sub

alt+f11打开宏界面，执行For Each ws In Sheets:ws.Visible=True:Next即可。
它循环遍历文档中的所有工作表并设置为可见

olevba

excel4.0宏会执行散布在多个工作簿中的多个单元格，手工查找很困难。
使用oletools的工具olevba收集不同单元格的信息，获取到一些敏感字符串信息
全局搜索这些字符串，例如rundll32.exe，=RUN(等，在合适的位置添加HALT()函数推出宏的执行，随后搜索是否有敏感的字符串，如http，去寻找下一阶段的载荷下载链接。