Управление документами Word и Excel на VBA - eDrive

31
ActiveWindow.ActivePane.View.Type = wdPageView
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
End Sub
Sub Workbook_Open ()
парольДляЧтения = "гость"
парольДляИзменения = "хозяин"
With Лист1
.Activate
пароль = InputBox ("Ваше имя ")
Select Case пароль
Case парольДляЧтения
.Protect (парольДляЧтения)
MsgBox "Только для чтения"
.Visible = True
Case парольДляИзменения
.Unprotect
.Visible = True
MsgBox "Доступ к чтению и записи"
Case Else
MsgBox "Неверный пароль"
.Visible = xlVeryHidden
End Select
End with
End Sub
Sub Workbook_BeforeClose (Cancel As Boolean)
MsgBox "До свидания"
End Sub
Sub Document_New ()
MsgBox "Перед Вами чистый лист электронной бумаги. Творите!"
End Sub
Sub Worksheet_Activate ()
Application.Dialogs (xlDialogOpen).Show
End Sub
Sub Worksheet_Change (ByVal Target As.Range)
MsgBox "В ячейку занесено значение " & Target
End Sub
Sub Worksheet_Deactivate ()
Application.Dialogs (xlDialogSaveAs).Show
End Sub
Sub Workbook_Open ()
ThisWorkbook.OnWindow = "Сообщение"
ThisWorkbook.Windows (1).OnWindow = "Предупреждение"
End Sub