|
Защита листа
|
||
|---|---|---|
Участник
Откуда: Северная столица!? (Питер)
Сообщения: 1 385 |
||
|
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:05:48 |
|
|
|
Защита листа
|
||
|---|---|---|
Участник
Откуда: Северная столица!? (Питер)
Сообщения: 1 385 |
||
|
Если тока листа:
поставить пароль: ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="ТвойПароль" аналогично - снятие... Stepler (щёлк-щёлк!!) |
||
| 09.08.2004, 09:46:55 |
|
|
|
Защита листа
|
||
|---|---|---|
Участник
Откуда: Северная столица!? (Питер)
Сообщения: 1 385 |
||
|
Могет у тебя какая-нибудь библиотека не установлена ???
У меня всё работает.... Stepler (щёлк-щёлк!!) |
||
| 09.08.2004, 10:19:00 |
|
|
|
Защита листа
|
||
|---|---|---|
Участник
Откуда: Северная столица!? (Питер)
Сообщения: 1 385 |
||
|
Ну а с листом :
- запаролить Private Sub Worksheet_Activate() ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="ууу" End Sub - снять пароль Sub Макрос() ActiveSheet.Unprotect Password:="ууу" End Sub хоть работает ??? Stepler (щёлк-щёлк!!) |
||
| 09.08.2004, 10:41:55 |
|
|
Период между сообщениями больше года.
