148 / 35 / 6 Регистрация: 01.11.2013 Сообщений: 779 |
|
1 |
|
Открыть только для чтения08.07.2020, 22:05. Показов 11744. Ответов 14
При открытии Excel — евского файла появляется диалоговое окно с просьбой ввести пароль или открыть только для чтения.
0 |
amd48 779 / 461 / 79 Регистрация: 18.05.2016 Сообщений: 1,242 Записей в блоге: 4 |
||||
09.07.2020, 09:38 |
2 |
|||
Решениенагуглил на другом форуме
1 |
1813 / 1135 / 346 Регистрация: 11.07.2014 Сообщений: 4,002 |
|
09.07.2020, 11:41 |
3 |
govorun, а у вас в этом файле макросы, нужные вам, есть или нужно только содержимое листов?
0 |
148 / 35 / 6 Регистрация: 01.11.2013 Сообщений: 779 |
|
09.07.2020, 22:29 [ТС] |
4 |
Из VBA открываю Excel-евский файл что бы взять содержимое листов и закрыть его. Не показывая на экране. И все бы ничего, только вот при открытии файла вылазит запрос на пароль. Портит всю картину. По умолчанию стоит «Только для чтения», в принципе мне только это и нужно. Надо как-то что-то сделать, что бы это окно на экране не появлялось. Миниатюры
0 |
1813 / 1135 / 346 Регистрация: 11.07.2014 Сообщений: 4,002 |
|
10.07.2020, 05:52 |
5 |
govorun, ну тогда может просто один раз открыть с запросом, создать новый файл и все листы скопировать в него. Этот новый сохранить под неким именем (в нем уже запроса не будет) и в дальнейшем работать только с ним. А макросы этого файла вы увидеть можете?
0 |
148 / 35 / 6 Регистрация: 01.11.2013 Сообщений: 779 |
|
10.07.2020, 06:50 [ТС] |
6 |
Burk, В нем нет макросов. Даже если они там есть, они мне не нужны. Мне нужно периодически брать данные с листов. Эти данные меняются. По-этому в копировании листов нет смысла
0 |
1813 / 1135 / 346 Регистрация: 11.07.2014 Сообщений: 4,002 |
|
10.07.2020, 07:02 |
7 |
govorun, я хотел узнать, если возможно, откуда приходит этот запрос. Если из модуля Эта книга, то изменить (удалить) этот запрос. Поэтому и хотелось посмотреть есть ли что-то в проекте ВБА. Ведь если выставить Защитить книгу, то такого запроса нет. Файл, по-видимому, не из вашей фирмы?
0 |
148 / 35 / 6 Регистрация: 01.11.2013 Сообщений: 779 |
|
10.07.2020, 07:09 [ТС] |
8 |
не из вашей фирмы Возможно, не знаю.
0 |
1813 / 1135 / 346 Регистрация: 11.07.2014 Сообщений: 4,002 |
|
10.07.2020, 09:03 |
9 |
govorun, что значит возможно? Ведь если автор файла ваш, то он легко уберет этот запрос. А прислать этот файл вы не можете потому, что он шибко секретный?
0 |
2632 / 1637 / 745 Регистрация: 23.03.2015 Сообщений: 5,147 |
|
10.07.2020, 09:11 |
10 |
govorun,
0 |
КостяФедореев Часто онлайн 792 / 530 / 238 Регистрация: 09.01.2017 Сообщений: 1,820 |
||||
10.07.2020, 09:27 |
11 |
|||
Решениеgovorun, Опробуйте у меня сработало.
1 |
1813 / 1135 / 346 Регистрация: 11.07.2014 Сообщений: 4,002 |
|
10.07.2020, 09:39 |
12 |
КостяФедореев, это сработает не только у вас, но и у любого другого. Но здесь другой случай, при открытии не своего файла выскакивает этот запрос и, как я подозреваю, доступа к его макросам нет. По-видимому этот запрос в Эта книга открываемого (чужого) файла. А автор — партизан и приходится из него выдавливать информацию.
0 |
Часто онлайн 792 / 530 / 238 Регистрация: 09.01.2017 Сообщений: 1,820 |
|
10.07.2020, 09:48 |
13 |
Burk, Я защитил книгу на другом компе с другим пользователем также, как и у govorun, и переслал себе. Своим макросом открыл эту книгу и запроса не было.
0 |
1813 / 1135 / 346 Регистрация: 11.07.2014 Сообщений: 4,002 |
|
10.07.2020, 09:57 |
14 |
КостяФедореев, надо было ещё любой запрос поставить в Эта книга в файле на другом компе (a=Msgbox….) и посмотреть будет ли этот запрос.
0 |
148 / 35 / 6 Регистрация: 01.11.2013 Сообщений: 779 |
|
10.07.2020, 19:18 [ТС] |
15 |
amd48, КостяФедореев, ReadOnly сработало. Спасибо
0 |
Содержание
- Метод OpenTextFile
- Синтаксис
- Settings
- Замечания
- См. также
- Поддержка и обратная связь
- Метод Workbooks.Open (Excel)
- Синтаксис
- Параметры
- Возвращаемое значение
- Замечания
- Пример
- Поддержка и обратная связь
Метод OpenTextFile
Открывает указанный файл и возвращает объект TextStream , который можно использовать для чтения, записи в файл или добавления к нему.
Синтаксис
object. OpenTextFile (filename, [ iomode, [ create, [ format ]]])
Синтаксис метода OpenTextFile состоит из следующих элементов.
Part | Описание |
---|---|
object | Обязательно. Всегда имя объекта FileSystemObject. |
Имени файла | Обязательно. Строковое выражение, определяющее файл, который будет открыт. |
iomode | Необязательный параметр. Указывает режим ввода-вывода. Может соответствовать одной из трех констант: ForReading, ForWriting или ForAppending. |
создать | Необязательный параметр. Значение типа Boolean, которое указывает, можно ли создать новый файл, если файл, указанный параметром filename, не существует. Значение True позволяет создать новый файл, а значение False — нет. По умолчанию используется значение False. |
format | Необязательный параметр. Одно из трех значений Tristate, используемых, чтобы указать формат открытого файла. Если отсутствует, открытый файл имеет формат ASCII. |
Settings
Аргумент iomode может иметь любой из следующих параметров:
Константа | Значение | Описание |
---|---|---|
ForReading | 1 | Открытие файла только для чтения. Запись в этот файл невозможна. |
ForWriting | 2 | Откройте файл только для записи. Используйте этот режим для замены существующего файла новыми данными. Невозможно выполнить чтение из этого файла. |
ForAppending | 8 | Открытие файла и запись в конец файла. Невозможно выполнить чтение из этого файла. |
Аргумент format может иметь одно из следующих значений.
Константа | Значение | Описание |
---|---|---|
TristateUseDefault | –2 | Открывает файл с помощью системного значения по умолчанию. |
TristateTrue | –1 | Открывает файл в формате Юникод. |
TristateFalse | 0 | Открывает файл в формате ASCII. |
Замечания
В следующем коде показано использование метода OpenTextFile для открытия файла для добавления текста.
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Источник
Метод Workbooks.Open (Excel)
Хотите создавать решения, которые расширяют возможности Office на разнообразных платформах? Ознакомьтесь с новой моделью надстроек Office. Надстройки Office занимают меньше места по сравнению с надстройками и решениями VSTO, и вы можете создавать их, используя практически любую технологию веб-программирования, например HTML5, JavaScript, CSS3 и XML.
Синтаксис
expression. Открыть (FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Разделитель, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)
Выражение Переменная, представляющая объект Workbooks .
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
FileName | Необязательный | Variant | Строка. Имя файла открываемой книги. |
UpdateLinks | Необязательный | Variant | Указывает способ обновления внешних ссылок (ссылок) в файле, например ссылки на диапазон в книге Budget.xls в следующей формуле =SUM([Budget.xls]Annual!C10:C25) . Если этот аргумент опущен, пользователю будет предложено указать, как будут обновляться ссылки. Дополнительные сведения о значениях, используемых этим параметром, см. в разделе Примечания. |
Если Microsoft Excel открывает файл в формате WKS, WK1 или WK3 и аргумент UpdateLinks имеет значение 0, диаграммы не создаются; В противном случае Microsoft Excel создает диаграммы из диаграмм, присоединенных к файлу. ReadOnly Необязательно устанавливать. Variant Значение true, чтобы открыть книгу в режиме только для чтения. Format Необязательный Variant Если Microsoft Excel открывает текстовый файл, этот аргумент задает символ разделителя. Если этот аргумент опущен, используется текущий разделитель. Дополнительные сведения о значениях, используемых этим параметром, см. в разделе Примечания. Password Необязательный Variant Строка, содержащая пароль, необходимый для открытия защищенной книги. Если этот аргумент опущен, а для книги требуется пароль, пользователю будет предложено ввести пароль. WriteResPassword Необязательный Variant Строка, содержащая пароль, необходимый для записи в книгу, зарезервированную для записи. Если этот аргумент опущен, а книге требуется пароль, пользователю будет предложено ввести пароль. IgnoreReadOnlyRecommended Необязательный Variant Значение true , чтобы Microsoft Excel не отображал рекомендуемое сообщение только для чтения (если книга была сохранена с параметром «Только для чтения рекомендуется «). Происхождения Необязательный Variant Если файл является текстовым файлом, этот аргумент указывает, где он возник, чтобы кодовые страницы и возврат/строка каретки (CR/LF) можно было правильно сопоставить. Может быть одной из следующих констант XlPlatform : xlMacintosh, xlWindows или xlMSDOS. Если этот аргумент опущен, используется текущая операционная система. Разделитель Необязательный Variant Если файл является текстовым файлом, а аргумент Format равен 6, этот аргумент представляет собой строку, указывающую символ, который будет использоваться в качестве разделителя. Например, используйте Chr(9) для вкладок, «,» для запятых, «;» для точки с запятой или используйте пользовательский символ. Используется только первый символ строки. Изменяемость Необязательный Variant Если файл является надстройкой Microsoft Excel 4.0, этот аргумент имеет значение True , чтобы открыть надстройку, чтобы она была видимым окном. Если этот аргумент имеет значение False или опущен, надстройка открывается как скрытая и не может быть раскрыта. Этот параметр не применяется к надстройкам, созданным в Microsoft Excel 5.0 или более поздней версии.
Если файл является шаблоном Excel, значение True , чтобы открыть указанный шаблон для редактирования. Значение false , чтобы открыть новую книгу на основе указанного шаблона. Значение по умолчанию — False. Уведомить Необязательный Variant Если файл не удается открыть в режиме чтения и записи, этот аргумент имеет значение True , чтобы добавить файл в список уведомлений о файлах. Microsoft Excel откроет файл как доступный только для чтения, опрашивает список уведомлений о файлах, а затем уведомляет пользователя, когда файл станет доступен. Если этот аргумент имеет значение False или опущен, уведомление не запрашивается, и любые попытки открыть недоступный файл завершатся ошибкой. Конвертер Необязательный Variant Индекс первого преобразователя файлов, который следует попробовать при открытии файла. Сначала выполняется попытка указанного преобразователя файлов; Если этот преобразователь не распознает файл, все остальные преобразователи будут испытаны. Индекс преобразователя состоит из номеров строк преобразователей, возвращаемых свойством FileConverters . AddToMru Необязательный Variant Значение true , чтобы добавить эту книгу в список недавно использовавшихся файлов. Значение по умолчанию — False. Local Необязательный Variant Значение True сохраняет файлы на языке Microsoft Excel (включая параметры панели управления). Значение False (по умолчанию) сохраняет файлы на языке Visual Basic для приложений (VBA) (который обычно США английском языке, если проект VBA, из которого выполняется Workbooks.Open, не является старым проектом VBA с международной версией XL5/95). Поврежденная загрузка Необязательный XlCorruptLoad Может быть одной из следующих констант: xlNormalLoad, xlRepairFile и xlExtractData. Поведение по умолчанию, если значение не указано, — xlNormalLoad и не пытается выполнить восстановление при инициировании с помощью OM.
Возвращаемое значение
Объект Workbook , представляющий открытую книгу.
Замечания
По умолчанию макросы включены при открытии файлов программным способом. Используйте свойство AutomationSecurity , чтобы задать режим безопасности макросов, используемый при программном открытии файлов.
Можно указать одно из следующих значений в параметре UpdateLinks , чтобы определить, обновляются ли внешние ссылки (ссылки) при открытии книги.
Значение | Описание |
---|---|
0 | Внешние ссылки (ссылки) не будут обновляться при открытии книги. |
3 | Внешние ссылки (ссылки) будут обновлены при открытии книги. |
Можно указать одно из следующих значений в параметре Format , чтобы определить символ разделителя для файла.
Значение | Разделитель |
---|---|
1 | Вкладки |
2 | Запятыми |
3 | Пробелы |
4 | Точка с запятой |
5 | Отсутствует |
6 | Пользовательский символ (см. аргумент Разделитель ) |
Пример
В следующем примере кода открывается книга Analysis.xls, а затем выполняется ее макрос Auto_Open.
Следующий пример кода импортирует лист из другой книги на новый лист в текущей книге. Лист 1 в текущей книге должен содержать имя пути к книге для импорта в ячейку D3, имя файла в ячейке D4 и имя листа в ячейке D5. Импортированный лист вставляется после Листа1 в текущую книгу.
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Источник
Установка и отмены состояния «только для чтения»
Смотрите также дополнительном — откроется 18:57, в сообщении записи в персональнуюSLAVICKc:Users своими логином и4. В меню: Вадя, у ВасОбщие параметры кликните по ним. «Только для чтения»и нажмите приводим ссылку наВо всплывающем меню. для чтения». ДляПримечание: только книга в № 1200?’200px’:»+(this.scrollHeight+5)+’px’);»>ПРЯМОЙ доступ книгу макросов макрос
: Рано благодаритеПОЛЬЗОВАТЕЛЬ паролем- выскакивает ошибка, Файл выберите команду не работает справка?
(General Options) немногоЕсли нужной папки там
Блокировка книги в режиме «только для чтения»
Если Вы открываете документкнопку ОК оригинал (на английскомдействиеПримечание: более надежной защиты Мы стараемся как можно основном каталоге. И к серверу - записывается в PERSONAL.XLSB. это папка
-
AppDataRoamingMicrosoftExcelXLSTART сообщающая о невозможности Свойства .
-
Скопирую специально для отличается, но параметр нет, то нажмите для совместного доступа.
-
языке) ._з0з_нажмите кнопку Если у вас есть затребовать пароль для оперативнее обеспечивать вас
Очистка состояния «только для чтения» в книге
выдаст ошибку, что ИМЕЕТСЯ у программиста, откуда бы эта для шаблонов…а назначить подключения к тому
-
5. Откройте вкладку Вас: остаётся тот же.
-
кнопку и при этомЗакройте книгу.Если вы хотите Напомнитеполучить информацию
-
доступ к книге, сохранения изменений. актуальными справочными материалами нельзя открывать книги которого в любое
Блокировка книги в режиме «только для чтения»
книга не былаА папка дляможно любую папку: сеансу, и создаётся Общие.1. В менюТеперь каждый, кто откроетОбзор хотите избежать егоВ следующую производимую при только изменения книги
-
. все пользователи, уОткройте Finder и выберите
-
на вашем языке. с одинаковым именем. время, кроме ночи, открыта. автозагрузки:
-
Параметры — сохранение новый сеанс. А6. Установите флажок Файл выберите команду данный файл в
Очистка состояния «только для чтения» в книге
(Browse). изменения, то можете открытии книги, сообщение при необходимости, можетНа панели
-
которых есть права книгу, которую вы Эта страница переведенаВ Вашем случае можно напрячь.
-
Я не пользуюсьПараметры — дополнительно— — «расположение личных в новом сеансе Только чтение.
-
Сохранить как. Word (или вВ диалоговом окне сделать так, чтобы с вопросом, нужно
См. также
рекомендовать, что открытьОбщие на запись, смогут
хотите защитить. автоматически, поэтому ее нужно либо удалить
support.office.com
Запрос на открытие книги в режиме только для чтения
Удалить старую книгу стандартной «PERSONAL.XLSB» - общие — каталог шаблонов по умолчанию» файл личной книгиВадя2. Выберите в Excel), получит предложениеСохранение документа пользователям предлагалось открыть открыть только для книгу только дляснимите флажок очистить состояние «толькоВ меню текст может содержать книгу из основного — для админа у меня мои автозагрузки.Макрописец макросов Персонал НЕДОСТУПЕН
: Внесли ясность, спасибо меню Сервис диалогового запустить документ в(Save As) перейдите этот документ в чтения.
чтения.Заблокирован для чтения». Дляфайл неточности и грамматические каталога, либо переименовать как два пальца… отдельные надстройки лежатМакрописец: для редактирования, вМакрописец
окна Сохранение документа режиме только для в нужное место
-
режиме только дляОткройте книгу, которую вы
-
Примечание:. более надежной защитывыберите пункт ошибки. Для нас
-
например в PERSONAL1.XLSB. очень легко в этой папке.:SLAVICK том числе и: И снова здравствуйте,
-
команду Общие параметры.
чтения. и измените имя чтения. Мы покажем хотите защитить. Запрос на открытие только
-
Запрет на внесение изменений затребовать пароль для
-
получить информацию важно, чтобы этаМакрописецМакрописецА макросы яSLAVICK,
-
макросы. В результате уважаемые форумчане.3. Установите флажокУрок подготовлен для Вас файла, если хотите Вам, как активироватьНа вкладке
-
для чтения будет
с помощью статуса сохранения изменений.. статья была вам:
См. также
: записываю через рекодер,
Потому чтов новом никак нельзя добавить
support.office.com
Как сделать так, чтобы Word предлагал пользователям открывать документ в режиме «Только для чтения»
Неожиданно возникла проблема. Рекомендовать доступ только командой сайта office-guru.ru сохранить файл под этот параметр.Рецензирование не мешает изменения «Только для чтения»Откройте Finder и выберитеНа панели полезна. Просим васSLAVICK
SLAVICK либо в активнуюА то есть сеансе работа идёт новые макросы и/илиРабота со всеми
для чтения иИсточник: http://www.howtogeek.com/220378/how-to-force-word-to-prompt-users-to-open-a-document-as-read-only/ другим именем. В
Откройте файл, который долженв разделе внесенные в книгу.Запрос на открытие книги книгу, которую выОбщие уделить пару секунд,, книгу, но чаще после добавления книги с той же допилить/изменить текущие. Можно программами у на
нажмите кнопку OK.Перевел: Антон Андронов выпадающем меню открываться только дляЗащита
Более мощная защиту в режиме только хотите защитить.установите флажок и сообщить, помоглаБольшущее спасибо, ноА если не в новую. Поскольку туда новые макросы папкой — а здесь что-то сделать? сведётся на сервере4. Нажмите кнопку
Правила перепечаткиСервис чтения, и перейдитенажмите кнопку изменить состояние только для чтенияВо всплывающем менюЗаблокирован
ли она вам, вопрос решился перезапуском удалять? Куда будет их нужно потом через макрорекордер, например,
туда не даёт ПРЯМОЙ доступ к через удалённый доступ. Сохранить.Еще больше уроков(Tools) выберите пункт на вкладку
Пароли для чтения, заблокировавПримечание:действие. с помощью кнопок сервера. Я честно
сохраняться? И если все равно чистить,
с сохранением в
положить из-за недоступности
серверу — ИМЕЕТСЯ
На компе можно5. При появлении
по Microsoft Word
office-guru.ru
Лист в Екселе (А на самом деле — атрибут «Только для чтения)
Общие параметрыФайл. книги с помощьюМы стараемся как_з0з_нажмите кнопку
Примечание: внизу страницы. Для предполагал, что это переименую — тогда обзывать по другому личной книге макросов
файла. Можно копией у программиста, которого работать с Эксель,
запроса на заменуАвтор: Антон Андронов(General Options).(File).В диалоговом окне
средства поиска или можно оперативнее обеспечиватьполучить информацию
Чтобы очистить состояние «только удобства также приводим поможет, но боялся, куда?
и т.д.. будут попадать в положить, но Эксель в любое время,
но имхо муторно имеющейся книги нажмите
GuestВ появившемся диалоговом окнеВ меню слева нажмитеПаролей файлов
требование пароля для вас актуальными справочными.
для чтения», необходимо ссылку на оригинал что вдруг нет.SLAVICKМакрописец
эту добавленную книгу? будет ссылаться на кроме ночи, можно всё время тогда
кнопку Да .: Как сделать так,
поставьте галочкуСохранить какустановите флажок
сохранения изменений. материалами на вашем
На панели быть владельцем файла
(на английском языке).Вроде бы справку дает
planetaexcel.ru
PERSONAL.xlsb только для чтения. (Формулы/Formulas)
:: Огромнейшее Вам спасибо
оригинал.
напрячь. Или можно переключаться между удалённымРазрешение доступа к чтобы при открытииРекомендовать доступ только для(Save As).только для чтения рекомендуемыеБолее новые версии языке. Эта страницаОбщие или иметь праваВы можете заблокировать файл, исчерпывающий ответ, ноЦитатаSLAVICK и + вМакрописец назначить через Эксель доступом к серверу файлу книги только в екселе высвечивался чтенияВ левой части окнаи нажмите Office 2011 г. переведена автоматически, поэтомуустановите флажок на запись. чтобы сделать его вот я навелSLAVICK, 25.06.2015 в, репутацию!: Что бы я для сохранения Личной и локальным ПК. для чтения режим листа «Только(Read-only recommended) иСохранить каккнопку ОК ее текст можетЗаблокированОткройте Finder и выберите доступным только для курсор на «Сохранить 20:45, в сообщенииА если на
SLAVICK без вас делал? книги макросов Персонал Поэтому работал с1. В главном для чтения»? нажмите
(Save As) выберите,.
Откройте книгу, которую вы содержать неточности и.
книгу, которую вы чтения и запретить
как», а сервис-то № 10200?’200px’:»+(this.scrollHeight+5)+’px’);»>при выборе компе два PERSONAL.XLSB?
: Вы меня озадачили Огромнейшее спасибо. другую папку? Помогите, Экселем на сервере.
меню Windows (кнопкаЮрий МОК где будет сохранёнЗакройте книгу. хотите защитить. грамматические ошибки. ДляПримечание: хотите защитить. его случайное удаление.
мне где искать? записи в персональную Ибо тот изПопробовал у себя
Макрописец пожалуйста. Напихал кучу макросов Пуск) выберите команды: Атрибут «Только для. Ваш файл. ЕслиВ следующую производимую приВыберите в меню нас важно, чтобы
Снять статус «Только дляВ менюБолее новые версииЗибин
книгу макросов макрос c:UsersПОЛЬЗОВАТЕЛЬAppDataRoamingMicrosoftExcelXLSTART я удалить
создал PERSONAL.XLSB -: Упс а вSLAVICK
в личную книгу Программы, Стандартные и чтения» распространяется наНажмите
папка, в которую открытии книги, сообщениефайл эта статья была чтения» может владелецфайл Office 2011 : используй лучше защиту записывается в PERSONAL.XLSB не могу по потом положил ее
моём Эксель 2007: Так а почему
макросов (Персонал). Всё Проводник. всю книгу. НаСохранить Вы хотите сохранить с вопросом, нужнои нажмите кнопку вам полезна. Просим
файла или пользователь,выберите пунктПримечание: листакниги… вкладка Рецензирование откуда бы эта той же причине в указанный каталог «расположение личных шаблонов
просто не скопировать было нормально, пока2. Выберите в отдельный лист можно(Save), чтобы сохранить
файл, есть под открыть только дляпароли вас уделить пару имеющий разрешение «Запись».получить информацию Если у вас естьЮрий самофалов книга не была
отсутствия прав на — открыл заново по умолчанию» - книгу к себе
не глюкнул сервер. окне проводника диск поставить защиту. документ с такими заголовком чтения.. секунд и сообщить,
Откройте Finder и выберите.
доступ к книге,: Сергей, жми прямо открыта. изменение/удаление. excel — включил нет такого. Вот на комп, а Теперь зайти на и папку, которые
Вадя настройками.Текущая папкаЗапрет на внесение изменений
В диалоговом окне помогла ли она книгу, которую большеНа панели
все пользователи, у на «Сохранить как».если у ВасSLAVICK макрорекодер -
что есть (см потом положить в ТОТ сеанс НИКАК содержат нужный файл.: Как поставить егоЭтот приём работает и(Current Folder) или с помощью статусаПаролей файлов вам, с помощью не хотите использоватьОбщие
которых есть права В новом окне будет две книги: Ну такзаписало в нее. скрин, исключения для новый сеанс? не возможно. Даже3. Щелкните имя на книгу?
в Excel. ДиалоговоеПоследние папки «Только для чтения»установите флажок кнопок внизу страницы.
в качестве доступнойснимите флажок на запись, смогут внизу появится ниспадающая
PERSONAL.XLSB: в основномЦитатаТ.е. я понимаю, восстановления можно прописатьКнига скорее всего если заходишь под
excelworld.ru
Как рекомендовать доступ только для чтения в Excel 2007?
этого файла.Юрий М окно(Recent Folders), тоУстановка и отмена состояниятолько для чтения рекомендуемые
Для удобства также только для чтения.Заблокирован
очистить состояние «только меню «Сервис». каталоге автозапуска иМакрописец, 25.06.2015 в что при выборе и для персонала)
здесь:
Установка/снятие атрибута «Только чтение»
'требуется ссылка на scrrun.dll (Microsoft Scripting Runtime) 'Установка атрибута "Только чтение" Sub SetReadOnly(Path As String) Dim fso As New FileSystemObject, f As File Set f = fso.GetFile(Path) f.Attributes = f.Attributes Or ReadOnly End Sub 'Снятие атрибута "Только чтение" Sub RemoveReadOnly(Path As String) 'Shell "ATTRIB -R " & Path, vbHide Dim fso As New FileSystemObject, f As File Set f = fso.GetFile(Path) f.Attributes = f.Attributes Xor ReadOnly End Sub
Запись опубликована в рубрике программирование с метками файлы, VBA, WSH. Добавьте в закладки постоянную ссылку.
Skip to content
На чтение 2 мин. Просмотров 5.2k.
Что делает макрос: Этот макрос открывает диалоговое окно, в котором отображаются только excel-файлы, тем самым позволяет открыть конкретную книгу
Содержание
- Как макрос работает
- Код макроса
- Как работает этот код
- Как использовать
Как макрос работает
Данный макрос открывает диалоговое окно, как показано на рис, что позволяет пользователю просматривать и открывать файл Excel.
Код макроса
Sub Macro7() 'Шаг 1: Определяем переменную. Dim FName As Variant 'Шаг 2: Метод GetOpenFilename активизирует диалоговое окно. FName = Application.GetOpenFilename( _ 'a – определяем тип файла FileFilter:="Excel Workbooks,*.xl*", _ 'b – заголовок окна Title:="Выбери файл, который надо открыть", _ 'c – множественный выбор MultiSelect:=False) 'Шаг 3: Если был выбран файл, открыть его! If FName <> False Then Workbooks.Open Filename:=FName End If End Sub
Как работает этот код
- Первое, что делаем — объявляем переменную типа Variant, будет содержать Имя файла, который пользователь выберет. FName — имя нашей переменной.
- На шаге 2 мы используем метод GetOpenFilename, чтобы вызвать диалоговое окно, которое позволяет просмотреть содержимое папки и выбрать нужный нам файл. Метод
GetOpenFilename поддерживает несколько настраиваемых параметров:
a. FileFilter параметр позволяет указать Тип файла, который мы ищем.
b. Title позволяет изменить заголовок, который отображается в верхней части диалогового окна.
c. MultiSelect — параметр множественный выбор позволяет ограничить выбор в один файл. - Если пользователь выбирает файл из диалогового окна, переменная FName берёт Имя файла, который выбрали. Если переменная не пустая, мы используем метод Open из книг
объекта, чтобы открыть файл.
Как использовать
Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:
- Активируйте редактор Visual Basic, нажав ALT + F11.
- Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта.
- Выберите Insert➜Module.
- Введите или вставьте код во вновь созданном модуле.
- По желанию, можно назначить макрос к кнопке, чтобы открыть файл.