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

Код: 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
Защита паролем Excelевского файла
    #32405043
firevor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
После возни, кажется, обнаружил, что ругается на "FileFormat:=xlNormal".
Хотя в Excelе этот кусок является вроде бы optional, Access без него не идет.
Вместо "FileFormat:=xlNormal" вставил 1 (Excel files), пошло.
Правда, ругается на перезапись, сейчас попробую, как было предложено.

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


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