Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Защита паролем Excelевского файла / 7 сообщений из 7, страница 1 из 1
10.02.2004, 19:43
    #32404800
firevor
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Защита паролем Excelевского файла
Необходимо из А установить защиту на Е-файлик - пароль на открытие.
Просто файлик октрыть и сохранить получается, а если приписать хвостик (FileFormat, Password и пр., что Excel сам макросом записывает), то А ругается.
Please, help!
...
Рейтинг: 0 / 0
10.02.2004, 19:54
    #32404807
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Защита паролем Excelевского файла
Каким образом ругается? Что написано в программе? Нам это все можно самим придумывать?
...
Рейтинг: 0 / 0
11.02.2004, 08:48
    #32405001
firevor
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Защита паролем Excelевского файла
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, записав там макросом сохранение запароленного файла. Без хвоста работает.
...
Рейтинг: 0 / 0
11.02.2004, 08:58
    #32405014
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Защита паролем Excelевского файла
Проблема может быть в том, что Эксель при перезаписи файла под тем же именем запрашивает подтверждение.
Нужно попробовать вот так:

Код: plaintext
1.
2.
3.
4.
Application.DisplayAlerts = False
.Workbooks.Open FileName:=Attachment 
.ActiveWorkbook.SaveAs FileName:=Attachment, FileFormat _ 
:=xlNormal, Password:= "abc" 
Application.DisplayAlerts = True
...
Рейтинг: 0 / 0
11.02.2004, 09:25
    #32405043
firevor
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Защита паролем Excelевского файла
После возни, кажется, обнаружил, что ругается на "FileFormat:=xlNormal".
Хотя в Excelе этот кусок является вроде бы optional, Access без него не идет.
Вместо "FileFormat:=xlNormal" вставил 1 (Excel files), пошло.
Правда, ругается на перезапись, сейчас попробую, как было предложено.

Кто-нибудь не подскажет, а как из А обратно закрыть открывшийся Excel?
...
Рейтинг: 0 / 0
11.02.2004, 09:40
    #32405066
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Защита паролем Excelевского файла
Excel_Obj.Quit
...
Рейтинг: 0 / 0
11.02.2004, 09:50
    #32405080
firevor
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Защита паролем Excelевского файла
Большое вам мерси
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Защита паролем Excelевского файла / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]