|
|
|
Защита паролем Excelевского файла
|
|||
|---|---|---|---|
|
#18+
Необходимо из А установить защиту на Е-файлик - пароль на открытие. Просто файлик октрыть и сохранить получается, а если приписать хвостик (FileFormat, Password и пр., что Excel сам макросом записывает), то А ругается. Please, help! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.02.2004, 19:43 |
|
||
|
Защита паролем Excelевского файла
|
|||
|---|---|---|---|
|
#18+
Каким образом ругается? Что написано в программе? Нам это все можно самим придумывать? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.02.2004, 19:54 |
|
||
|
Защита паролем Excelевского файла
|
|||
|---|---|---|---|
|
#18+
Sub вот такой: Public Sub Reports_Set_Password(Attachment) On Error GoTo Err_Exit If IsNull(Attachment) Then Exit Sub Set Excel_Obj = CreateObject("Excel.Application") With Excel_Obj .Visible = True .Workbooks.Open FileName:=Attachment .ActiveWorkbook.SaveAs FileName:=Attachment, FileFormat _ :=xlNormal, Password:="abc", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False .ActiveWindow.Close End With Set Excel_Obj = Nothing End If Exit_Sub: DoCmd.Hourglass False SysCmd acSysCmdClearStatus Exit Sub Err_Exit: MsgBox Err.Description Resume Exit_Sub End Sub Ругается вот так: Run-time error '1004' Метод SaveAs из класса Workbook завершен неверно Хвост за SaveAs скопировал из Excel, записав там макросом сохранение запароленного файла. Без хвоста работает. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.02.2004, 08:48 |
|
||
|
Защита паролем Excelевского файла
|
|||
|---|---|---|---|
|
#18+
Проблема может быть в том, что Эксель при перезаписи файла под тем же именем запрашивает подтверждение. Нужно попробовать вот так: Код: plaintext 1. 2. 3. 4. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.02.2004, 08:58 |
|
||
|
Защита паролем Excelевского файла
|
|||
|---|---|---|---|
|
#18+
После возни, кажется, обнаружил, что ругается на "FileFormat:=xlNormal". Хотя в Excelе этот кусок является вроде бы optional, Access без него не идет. Вместо "FileFormat:=xlNormal" вставил 1 (Excel files), пошло. Правда, ругается на перезапись, сейчас попробую, как было предложено. Кто-нибудь не подскажет, а как из А обратно закрыть открывшийся Excel? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.02.2004, 09:25 |
|
||
|
Защита паролем Excelевского файла
|
|||
|---|---|---|---|
|
#18+
Excel_Obj.Quit ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.02.2004, 09:40 |
|
||
|
|

start [/forum/topic.php?fid=45&msg=32405014&tid=1676725]: |
0ms |
get settings: |
6ms |
get forum list: |
11ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
165ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
39ms |
get tp. blocked users: |
1ms |
| others: | 245ms |
| total: | 483ms |

| 0 / 0 |
