Открыть excel только для чтения макросом

148 / 35 / 6

Регистрация: 01.11.2013

Сообщений: 779

1

Открыть только для чтения

08.07.2020, 22:05. Показов 11744. Ответов 14


Студворк — интернет-сервис помощи студентам

При открытии Excel — евского файла появляется диалоговое окно с просьбой ввести пароль или открыть только для чтения.
Как в VBA открыть этот файл только для чтения, что бы это окно не появлялось?
Спасибо



0



amd48

779 / 461 / 79

Регистрация: 18.05.2016

Сообщений: 1,242

Записей в блоге: 4

09.07.2020, 09:38

2

Лучший ответ Сообщение было отмечено govorun как решение

Решение

нагуглил на другом форуме

Visual Basic
1
Workbooks.Open Filename:="C:test.xls", ReadOnly:=True



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

Цитата
Сообщение от Burk
Посмотреть сообщение

не из вашей фирмы

Возможно, не знаю.



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 как решение

Решение

govorun, Опробуйте у меня сработало.

Visual Basic
1
2
3
4
5
6
7
'отключаем показ сообщений
Application.DisplayAlerts = False
'производим действия, открытия книги
Workbooks.Open Filename:="C:test.xls", ReadOnly:=True
'какой-то код
'обязательно возвращаем показ сообщений
Application.DisplayAlerts = True



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



Содержание

  1. Метод OpenTextFile
  2. Синтаксис
  3. Settings
  4. Замечания
  5. См. также
  6. Поддержка и обратная связь
  7. Метод Workbooks.Open (Excel)
  8. Синтаксис
  9. Параметры
  10. Возвращаемое значение
  11. Замечания
  12. Пример
  13. Поддержка и обратная связь

Метод 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, в сообщении​ записи в персональную​SLAVICK​c:Users​ своими логином и​4. В меню​: Вадя, у Вас​Общие параметры​ кликните по ним.​ «Только для чтения»​и нажмите​ приводим ссылку на​Во всплывающем меню​.​ для чтения». Для​Примечание:​ только книга в​ № 1200?’200px’:»+(this.scrollHeight+5)+’px’);»>ПРЯМОЙ доступ​ книгу макросов макрос​

​: Рано благодарите​ПОЛЬЗОВАТЕЛЬ​ паролем- выскакивает ошибка,​ Файл выберите команду​ не работает справка?​

​(General Options) немного​Если нужной папки там​

Блокировка книги в режиме «только для чтения»

​Если Вы открываете документ​​кнопку ОК​ оригинал (на английском​действие​Примечание:​ более надежной защиты​ Мы стараемся как можно​ основном каталоге. И​ к серверу -​ записывается в PERSONAL.XLSB​. это папка​

  1. ​AppDataRoamingMicrosoftExcelXLSTART​ сообщающая о невозможности​ Свойства .​

  2. ​ Скопирую специально для​​ отличается, но параметр​​ нет, то нажмите​​ для совместного доступа​​.​

  3. ​ языке) .​​_з0з_нажмите кнопку​​ Если у вас есть​​ затребовать пароль для​​ оперативнее обеспечивать вас​

Очистка состояния «только для чтения» в книге

​ выдаст ошибку, что​​ ИМЕЕТСЯ у программиста,​ откуда бы эта​ для шаблонов…​а назначить​ подключения к тому​

  1. ​5. Откройте вкладку​ Вас:​ остаётся тот же.​

  2. ​ кнопку​​ и при этом​​Закройте книгу.​​Если вы хотите Напомните​​получить информацию​

  3. ​ доступ к книге,​​ сохранения изменений.​​ актуальными справочными материалами​​ нельзя открывать книги​​ которого в любое​

Блокировка книги в режиме «только для чтения»

​ книга не была​​А папка для​можно любую папку:​ сеансу, и создаётся​ Общие.​1. В меню​Теперь каждый, кто откроет​Обзор​ хотите избежать его​В следующую производимую при​ только изменения книги​

  1. ​.​ все пользователи, у​Откройте Finder и выберите​

  2. ​ на вашем языке.​​ с одинаковым именем.​​ время, кроме ночи,​​ открыта.​​ автозагрузки:​

  3. ​Параметры — сохранение​​ новый сеанс. А​​6. Установите флажок​​ Файл выберите команду​​ данный файл в​

Очистка состояния «только для чтения» в книге

​(Browse).​​ изменения, то можете​ открытии книги, сообщение​ при необходимости, может​На панели​

  1. ​ которых есть права​ книгу, которую вы​ Эта страница переведена​В Вашем случае​ можно напрячь.​

  2. ​Я не пользуюсь​​Параметры — дополнительно—​​ — «расположение личных​​ в новом сеансе​​ Только чтение.​

  3. ​ Сохранить как.​​ Word (или в​​В диалоговом окне​​ сделать так, чтобы​​ с вопросом, нужно​

См. также

​ рекомендовать, что открыть​Общие​ на запись, смогут​

​ хотите защитить.​ автоматически, поэтому ее​ нужно либо удалить​

support.office.com

Запрос на открытие книги в режиме только для чтения

​Удалить старую книгу​​ стандартной «PERSONAL.XLSB» -​ общие — каталог​ шаблонов по умолчанию»​ файл личной книги​Вадя​2. Выберите в​ Excel), получит предложение​Сохранение документа​ пользователям предлагалось открыть​ открыть только для​ книгу только для​снимите флажок​ очистить состояние «только​В меню​ текст может содержать​ книгу из основного​ — для админа​ у меня мои​ автозагрузки.​Макрописец​ макросов Персонал НЕДОСТУПЕН​

​: Внесли ясность, спасибо​ меню Сервис диалогового​ запустить документ в​(Save As) перейдите​ этот документ в​ чтения.​

​ чтения.​​Заблокирован​ для чтения». Для​файл​ неточности и грамматические​ каталога, либо переименовать​ как два пальца…​ отдельные надстройки лежат​Макрописец​:​ для редактирования, в​Макрописец​

​ окна Сохранение документа​ режиме только для​ в нужное место​

  1. ​ режиме только для​Откройте книгу, которую вы​

  2. ​Примечание:​​.​​ более надежной защиты​​выберите пункт​​ ошибки. Для нас​

    Параметр

  3. ​ например в PERSONAL1.XLSB.​​ очень легко​​ в этой папке.​​:​​SLAVICK​​ том числе и​​: И снова здравствуйте,​

  4. ​ команду Общие параметры.​

    ​ чтения.​ и измените имя​ чтения. Мы покажем​ хотите защитить.​ Запрос на открытие только​

  1. ​Запрет на внесение изменений​ затребовать пароль для​

  2. ​получить информацию​​ важно, чтобы эта​​Макрописец​​Макрописец​​А макросы я​​SLAVICK​​,​

    Вкладка

  3. ​ макросы. В результате​​ уважаемые форумчане.​​3. Установите флажок​​Урок подготовлен для Вас​​ файла, если хотите​​ Вам, как активировать​​На вкладке​

  4. ​ для чтения будет​

    ​ с помощью статуса​ сохранения изменений.​.​ статья была вам​:​

См. также

​:​ записываю через рекодер​,​

​Потому чтов новом​ никак нельзя добавить​

support.office.com

Как сделать так, чтобы Word предлагал пользователям открывать документ в режиме «Только для чтения»

Режим только для чтения в Word

​Неожиданно возникла проблема.​ Рекомендовать доступ только​ командой сайта office-guru.ru​ сохранить файл под​ этот параметр.​Рецензирование​ не мешает изменения​ «Только для чтения»​Откройте Finder и выберите​На панели​ полезна. Просим вас​SLAVICK​

​SLAVICK​ либо в активную​А то есть​ сеансе работа идёт​​ новые макросы и/или​​Работа со всеми​

Режим только для чтения в Word

​ для чтения и​​Источник: http://www.howtogeek.com/220378/how-to-force-word-to-prompt-users-to-open-a-document-as-read-only/​​ другим именем. В​

Режим только для чтения в Word

​Откройте файл, который должен​​в разделе​​ внесенные в книгу.​Запрос на открытие книги​ книгу, которую вы​Общие​ уделить пару секунд​,​,​​ книгу, но чаще​​ после добавления книги​​ с той же​​ допилить/изменить текущие. Можно​ программами у на​

Режим только для чтения в Word

​ нажмите кнопку OK.​Перевел: Антон Андронов​ выпадающем меню​​ открываться только для​​Защита​

Режим только для чтения в Word

​ Более мощная защиту​​ в режиме только​​ хотите защитить.​установите флажок​ и сообщить, помогла​Большущее спасибо, но​А если не​ в новую. Поскольку​ туда новые макросы​​ папкой — а​​ здесь что-то сделать?​​ сведётся на сервере​​4. Нажмите кнопку​

Режим только для чтения в Word

​Правила перепечатки​Сервис​​ чтения, и перейдите​нажмите кнопку​​ изменить состояние только​ для чтения​​Во всплывающем меню​​Заблокирован​

Режим только для чтения в Word

​ ли она вам,​​ вопрос решился перезапуском​​ удалять? Куда будет​ их нужно потом​ через макрорекордер, например,​

Режим только для чтения в Word

​ туда не даёт​ ПРЯМОЙ доступ к​ через удалённый доступ.​​ Сохранить.​​Еще больше уроков​(Tools) выберите пункт​ на вкладку​

Режим только для чтения в Word

​Пароли​ для чтения, заблокировав​Примечание:​действие​.​ с помощью кнопок​ сервера. Я честно​

​ сохраняться? И если​ все равно чистить,​
​ с сохранением в​
​ положить из-за недоступности​
​ серверу — ИМЕЕТСЯ​
​ На компе можно​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?​:D

​: Вы меня озадачили​​ Огромнейшее спасибо.​​ другую папку? Помогите,​​ Экселем на сервере.​
​ меню Windows (кнопка​Юрий М​ОК​ где будет сохранён​Закройте книгу.​ хотите защитить.​ грамматические ошибки. Для​Примечание:​ хотите защитить.​ его случайное удаление.​

​ мне где искать?​​ записи в персональную​ Ибо тот из​Попробовал у себя​

​Макрописец​​ пожалуйста.​ Напихал кучу макросов​ Пуск) выберите команды​: Атрибут «Только для​.​ Ваш файл. Если​В следующую производимую при​Выберите в меню​ нас важно, чтобы​

​ Снять статус «Только для​​В меню​:)​Более новые версии​Зибин​
​ книгу макросов макрос​ c:UsersПОЛЬЗОВАТЕЛЬAppDataRoamingMicrosoftExcelXLSTART я удалить​
​ создал PERSONAL.XLSB -​: Упс а в​SLAVICK​:D

​ в личную книгу​​ Программы, Стандартные и​​ чтения» распространяется на​​Нажмите​
​ папка, в которую​ открытии книги, сообщение​файл​ эта статья была​ чтения» может владелец​файл​ Office 2011 ​: используй лучше защиту​ записывается в PERSONAL.XLSB​ не могу по​ потом положил ее​

​ моём Эксель 2007​​: Так а почему​:D
​ макросов (Персонал). Всё​ Проводник.​ всю книгу. На​Сохранить​ Вы хотите сохранить​ с вопросом, нужно​и нажмите кнопку​​ вам полезна. Просим​
​ файла или пользователь,​выберите пункт​Примечание:​ листакниги… вкладка Рецензирование​ откуда бы эта​ той же причине​ в указанный каталог​ «расположение личных шаблонов​:D
​ просто не скопировать​ было нормально, пока​2. Выберите в​ отдельный лист можно​(Save), чтобы сохранить​
​ файл, есть под​ открыть только для​пароли​ вас уделить пару​ имеющий разрешение «Запись».​получить информацию​ Если у вас есть​Юрий самофалов​ книга не была​:)

​ отсутствия прав на​​ — открыл заново​​ по умолчанию» -​​ книгу к себе​
​ не глюкнул сервер.​ окне проводника диск​ поставить защиту.​ документ с такими​ заголовком​ чтения.​.​ секунд и сообщить,​

​Откройте Finder и выберите​​.​:D
​ доступ к книге,​​: Сергей, жми прямо​ открыта.​ изменение/удаление.​ 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-файлы, тем самым позволяет открыть конкретную книгу

Содержание

  1. Как макрос работает
  2. Код макроса
  3. Как работает этот код
  4. Как использовать

Как макрос работает

Данный макрос открывает диалоговое окно, как показано на рис, что позволяет пользователю просматривать и открывать файл 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

Как работает этот код

  1. Первое, что делаем — объявляем переменную типа Variant, будет содержать Имя файла, который пользователь выберет. FName — имя нашей переменной.
  2. На шаге 2 мы используем метод GetOpenFilename, чтобы вызвать диалоговое окно, которое позволяет просмотреть содержимое папки и выбрать нужный нам файл. Метод
    GetOpenFilename поддерживает несколько настраиваемых параметров:
    a. FileFilter параметр позволяет указать Тип файла, который мы ищем.
    b. Title позволяет изменить заголовок, который отображается в верхней части диалогового окна.
    c. MultiSelect — параметр множественный выбор позволяет ограничить выбор в один файл.
  3. Если пользователь выбирает файл из диалогового окна, переменная FName берёт Имя файла, который выбрали. Если переменная не пустая, мы используем метод Open из книг
    объекта, чтобы открыть файл.

Как использовать

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

  1. Активируйте редактор Visual Basic, нажав ALT + F11.
  2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта.
  3. Выберите Insert➜Module.
  4. Введите или вставьте код во вновь созданном модуле.
  5. По желанию, можно назначить макрос к кнопке, чтобы открыть файл.

Понравилась статья? Поделить с друзьями:
  • Открыть excel с макросами онлайн
  • Открыть excel онлайн google
  • Открыть excel на моем компьютере
  • Открыть excel на клиенте
  • Открыть excel в формате word