Программно подтвердить открытие файла readonly

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Программно подтвердить открытие файла readonly (Макросы/Sub)

Stork4ever

Дата: Вторник, 26.01.2016, 13:11 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 82

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Есть файл.xlsb который сохранен с атрибутом readonly.
Процесс сохранения производиться так:
[vba]

Код

    If SaveAsUI Then
    Dim sFileName As String
    Application.EnableEvents = False
    sFileName = Application.GetSaveAsFilename
    ThisWorkbook.SaveAs sFileName & IIf(Right(ThisWorkbook.Path & "\" & sFileName, 3) <> "xlsb", "xlsb", ""), xlExcel12, , vbReadOnly
    Cancel = True: SaveAsUI = False: Application.EnableEvents = True
    End If

[/vba]

При открытии файла выскакивает сообщение, которое сообщает, что файл открывается только для чтения, либо просит ввести пароль для разрешения записи. Можно ли убрать это сообщение и принудительно открывать без пароля как бы нажав кнопку [Только для чтения]? При этом файл можно редактировать, но сохранить придется с другим именем файла.

Ответить

Kuzmich

Дата: Вторник, 26.01.2016, 15:25 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 711

Репутация: 156 ±

Замечаний: 0% ±

Excel 2003

Цитата

При этом файл можно редактировать

Если файл нужно редактировать, то заранее измените ему атрибут readonly на архивный

Ответить

Stork4ever

Дата: Среда, 27.01.2016, 10:19 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 82

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Я всего лишь спрашиваю, как нажать автоматически кнопку, что бы не вносить смуту в умы пользователей. А штатная встроенная в Excel галочка "Рекомендовать доступ только для чтения" позволяет документ редактировать после открытия, но сохранить под другим именем.

Ответить

neyandex

Дата: Четверг, 28.01.2016, 11:07 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Нажимать ничего не надо. Достаточно перед открытием поставить

Код

Application.DisplayAlerts = False

Ответить

_Boroda_

Дата: Четверг, 28.01.2016, 12:12 | Сообщение № 5

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Только не забудьте после исполнения кода поставить, а то Вы так и отключите у Excelя все появляющиеся окошки
[vba]

Код

Application.DisplayAlerts = True

[/vba]
И если предусмотрите исполнение этой строки при выходе по ошибке (если нужно) типа
[vba]

Код

On Error resume next
какой-то код
If Err.Number Then
    Application.DisplayAlerts = True
    MsgBox "Ошибка ..."
    Exit Sub
End If

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Программно подтвердить открытие файла readonly (Макросы/Sub)

Страница 1 из 1
1