|
Действия ...
|
09.08.2004, 09:05:48
|
|||
|---|---|---|---|
|
|||
Защита листа |
|||
|
1) В Ворде (документ активен):
-задать пароль Sub ПрисвоитьПароль() With ActiveDocument .ReadOnlyRecommended = False .Password = " ТвойПароль " .WritePassword = "ТвойПароль" .RemovePersonalInformation = False End With With Options .WarnBeforeSavingPrintingSendingMarkup = False .StoreRSIDOnSave = True End With ChangeFileOpenDirectory "Путь, где лежит твой файл(C:\.....\) " ActiveDocument.SaveAs FileName:=" Название твоего файла", FileFormat:= _ wdFormatDocument, LockComments:=False, Password:="ТвойПароль", AddToRecentFiles:= _ True, WritePassword:="ТвойПароль", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _ :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False End Sub -снять пароль: Sub СнятьПароль() With ActiveDocument .ReadOnlyRecommended = False .Password = "" .WritePassword = "" .RemovePersonalInformation = False End With With Options .WarnBeforeSavingPrintingSendingMarkup = False .StoreRSIDOnSave = True End With ActiveDocument.SaveAs FileName:=" Название твоего файла", FileFormat:= _ wdFormatDocument, LockComments:=False, Password:="ТвойПароль", AddToRecentFiles:= _ True, WritePassword:="ТвойПароль", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _ :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False End Sub 2) В Экселе (активен): -задать пароль Sub ПрисвоитьПароль() ActiveWorkbook.Password = "ТвойПароль" ActiveWorkbook.WritePassword = "ТвойПароль" End Sub -снять пароль Sub СнятьПароль() ActiveWorkbook.Password = "" ActiveWorkbook.WritePassword = "" End Sub Stepler (щёлк-щёлк!!)  |
|||
|
|
|
09.08.2004, 09:46:55
|
|||
|---|---|---|---|
|
|||
Защита листа |
|||
|
Если тока листа:
поставить пароль: ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="ТвойПароль" аналогично - снятие... Stepler (щёлк-щёлк!!) |
|||
|
|
|
09.08.2004, 10:19:00
|
|||
|---|---|---|---|
|
|||
Защита листа |
|||
|
Могет у тебя какая-нибудь библиотека не установлена ???
У меня всё работает.... Stepler (щёлк-щёлк!!) |
|||
|
|
|
09.08.2004, 10:41:55
|
|||
|---|---|---|---|
|
|||
Защита листа |
|||
|
Ну а с листом :
- запаролить Private Sub Worksheet_Activate() ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="ууу" End Sub - снять пароль Sub Макрос() ActiveSheet.Unprotect Password:="ууу" End Sub хоть работает ??? Stepler (щёлк-щёлк!!) |
|||
|
|
Период между сообщениями больше года.
