Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Программно подтвердить открытие файла readonly - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Программно подтвердить открытие файла readonly (Макросы/Sub)
Программно подтвердить открытие файла readonly
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]

При открытии файла выскакивает сообщение, которое сообщает, что файл открывается только для чтения, либо просит ввести пароль для разрешения записи. Можно ли убрать это сообщение и принудительно открывать без пароля как бы нажав кнопку [Только для чтения]? При этом файл можно редактировать, но сохранить придется с другим именем файла.
 
Ответить
СообщениеЕсть файл.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]

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

Автор - Stork4ever
Дата добавления - 26.01.2016 в 13:11
Kuzmich Дата: Вторник, 26.01.2016, 15:25 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 308
Репутация: 57 ±
Замечаний: 0% ±

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

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

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

Автор - Kuzmich
Дата добавления - 26.01.2016 в 15:25
Stork4ever Дата: Среда, 27.01.2016, 10:19 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 82
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Stork4ever
Дата добавления - 27.01.2016 в 10:19
neyandex Дата: Четверг, 28.01.2016, 11:07 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Нажимать ничего не надо. Достаточно перед открытием поставить
Код
  Application.DisplayAlerts = False
 
Ответить
СообщениеНажимать ничего не надо. Достаточно перед открытием поставить
Код
  Application.DisplayAlerts = False

Автор - neyandex
Дата добавления - 28.01.2016 в 11:07
_Boroda_ Дата: Четверг, 28.01.2016, 12:12 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11545
Репутация: 4754 ±
Замечаний: 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
 
Ответить
СообщениеТолько не забудьте после исполнения кода поставить, а то Вы так и отключите у 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_
Дата добавления - 28.01.2016 в 12:12
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Программно подтвердить открытие файла readonly (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!