Как сохранить макрос в личную книгу макросов

Как сохранить макрос для всех книг excel

​Смотрите также​​ именем копии REPEAT_:​ «Книга1.xls» sExp =​ регулярно скидывать в​ & IIf(Right(sFileName, Len(sExpansion))​Alex_ST​ ИМХО, InputBox и​ через InputBox или​Filename:=»трам-пам-пам.xls», _​ рабочий файл (имена-то​ Или открыть в​Если вам нужно записать​ «РАЗРАБОТЧИК»-«Код»-«Visual Basic». Или​Остановить запись​.​ ее текст может​ макрос Excel предложит​Примечание:​ FileName = Application.GetSaveAsFilename(InitialFileName:=sFullFilePath,​ Right(FileName, Len(FileName) -​ разные директории на​ <> sExpansion, sExpansion,​

​: К стати, не​ окно задания пути​ ещё как-то. ​FileFormat:=xlNormal, _​ совпадают. ).​ редакторе Personal и​ в нее новый​ нажмите комбинацию горячих​.​Чтобы при запуске Excel​ содержать неточности и​

Сохранение макроса в текущей книге

​ два варианта:​Мы стараемся как​ _ FileFilter:=»Excel Files​ InStrRev(FileName, «.») +​ общем ресурсе.​​ «»)​​ подскажите «на вскидку»​​ сохранения файла -​​В чём хитрость-то?​Password:=»», _​или​ туда вставить модуль?​ макрос просто откройте​ клавиш ALT+F11. В​При закрытии Excel в​ автоматически открывались книги,​ грамматические ошибки. Для​Сохранить в виде книги​ можно оперативнее обеспечивать​

• ​ (*» & sExp​ 1) ‘ расширение​Достало постоянно выбирать​​If sFileName =​​ как к имени​
• ​ это «две большие​The_Prist​WriteResPassword:=»», _​​- сказать Ёкселю​​z_korch​

​ редактор, а потом​ окне «Project-VBAProject», в​ конечном итоге будет​

1. ​ выполните указанные ниже​​ нас важно, чтобы​​ с поддержкой макросов​
2. ​ вас актуальными справочными​​ & «), *»​​ файла вместе с​​ куда и какой​​ ThisWorkbook.FullName Then​​ файла при сохранении​ разницы» . ​​: А кто мешает​
3. ​ReadOnlyRecommended:=True, _​​ «Сохранить как. » и​​: Может я не​

Создание и сохранение макросов в личной книге

​ откройте модуль книги​ дереве проектов появиться​ предложено сохранить изменения​ действия.​ эта статья была​ (XLSM-файл), выбрав​ материалами на вашем​ & sExp &​ точкой (например, «.xls»)​ файл сохранять. ​MsgBox «Нельзя сохранить​ добавить перед расширением​The_Prist​ перед этим вывести​

Запись макроса для открытия определенных книг при запуске Excel

​CreateBackup:=False​​ указать с каким​ знаю как в​ Personal.xlsb. Уже записанные​ доступная еще одна​ в личной книге​Откройте вкладку​ вам полезна. Просим​Нет​ языке. Эта страница​ «, All Files​ FileName = Left(FileName,​Переделал макрос Save_Copy_As​ файл под имененм​ суффикс — дату​: Я Вам уже​ диалог?​End Sub​ именем, куда и​ редакторе открыть Personal?Когда​ в нее макросы​ книга Personal.xlsb. Кликните​

​ макросов. Нажмите кнопку​Разработчик​ вас уделить пару​.​ переведена автоматически, поэтому​ (*.*),*.*», _ Title:=»Сохранение​ Len(FileName) — Len(sExp))​ так, что путь​ открытого файла!», vbCritical​ и время сохранения?​ целый пример накатал​

​Dim sFileName As​не подходят, т.к.​ с какими паролями​​ в VBA открываю​​ удалять не нужно.​ на «плюсик» слева​ «Да», чтобы макрос​

1. ​и нажмите кнопку​​ секунд и сообщить,​​Сохранить в виде книги​​ ее текст может​​ копии файла») ‘задать​ & sSuff &​​ последнего сохранения копии​​ + vbYesNo, «Ошибка»​
2. ​ (ну, например, Имя_моего_рабочего_файла(01-06-2010​​ — чем он​​ String, sExpansion As​​ это как раз​​ сохранить файл. А​​ View->Project, то вижу​​ Они не будут​
3. ​ на против этой​​ запускался при каждом​​Запись макроса​

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

1. ​ sExp ‘ например,​​ запоминается в самом​​GoTo BEGIN_​​ 14-30).xls​​ не устраивает? Выбор​

1. ​ String​​ и есть описанный​​ потом закрыть тот​​ среди объектов только​​ между собой конфликтовать​
2. ​ книги, чтобы раскрыть​​ запуске Excel.​​.​​ вам, с помощью​​ выбрав​
3. ​ грамматические ошибки. Для​ имя копии файла​ «Книга1 [2012.02.06 15-24’39»].xls»​
4. ​ файле в коллекции​End If​The_Prist​ через диалог, сохраняет​​BEGIN_:​​ мною выше второй​ сетевой, видный для​
5. ​ Лист1,2,3,и ЭтаКнига. все.​​ если соблюдать одно​​ проект книги Personal.xlsb.​
6. ​Каждый раз при запуске​​В поле​​ кнопок внизу страницы.​​Да​​ нас важно, чтобы​ в окне выбора​ On Error Resume​ Names​ThisWorkbook.Password = «1»:SetAttr​: SetAttr ThisWorkbook.FullName, vbReadOnly​ куда укажешь и​sFileName = ThisWorkbook.Name​ случай. ​ всех, файл и​
7. ​ Если Insert->Module?, то​​ простое правило –​​ А после двойным​​ Excel автоматически будут​​Имя макроса​
8. ​ Для удобства также​.​ эта статья была​ If VarType(FileName) =​ Next sDirPath =​Два дня поюзал​ ThisWorkbook.FullName, vbReadOnly​Alex_ST​ ​ с паролем, да​sExpansion = Right(sFileName,​tolikt​ открыть свой рабочий.​

Личная книга макросов в Excel и как ее использовать

​ тоже предлагает сохранить​ в одном модуле​ щелчком отройте ее​ открываться книги, включенные​введите​ приводим ссылку на​Чтобы сохранить макрос как​ вам полезна. Просим​ vbBoolean Then Exit​ .Names(sPath_in_Names).Value ‘ считать​ — понравилось!​ThisWorkbook.SaveCopyAs sFileName​: К сожалению, свойство​ еще и предупреждает,​ Len(sFileName) — InStrRev(sFileName,​: .SaveCopyAs чем не​ Это тоже не​ только в «Книга1-ЭтаКнига(Code)»​ нельзя хранить макросы​ Module1.​ в макрос.​Auto_Open​

Как сохранить макрос в личную книгу макросов

​ оригинал (на английском​ книгу с поддержкой​ вас уделить пару​

1. ​ Sub ‘ если​
2. ​ из коллекции .Names​Sub Save_Copy_As() ‘—————————————————————————————​ThisWorkbook.Password = «»:SetAttr​ vbReadOnly при SaveCopyAs​ если такой файл​ «.») + 1)​ устраивает?​
3. ​ слишком удобно, т.к.​kaa​
4. ​ с одинаковыми именами.​В результате откроется окно​Большинство пользователей Excel знают,​.​ языке) .​ макросов,​ секунд и сообщить,​ нажали «Отмена», то​ значение, ранее сохраненное​ ‘ Procedure :​ ThisWorkbook.FullName, vbNormal​ задать не удаётся. ​ есть.​sFileName = Application.GetSaveAsFilename​The_Prist​
5. ​ требует много «мышкодвижений».​: в экселе Сервис-Параметры​z_korch​ кода модуля с​ как создать и​В списке​Предположим, что вы хотите​щелкните​ помогла ли она​ FileName = False,​

​ под именем sPath_in_Names​

​ Save_Copy_As ‘ Author​Hugo​А нельзя ли​Alex_ST​If sFileName =​: ThisWorkbook.Password = «1»​А недавно поставил​ вкладка «Общие» там​: Добрый день! Спасибо​ зарегистрированным макросом. Удалите​ использовать макрос внутри​Сохранить в​

​ записать макрос для​Нет​ вам, с помощью​ если «Сохранить» -​ If Err Then​ : Alex_ST ‘​:​ его задать для​: The_Prist, вы с​ «False» Then Exit​ThisWorkbook.SaveCopyAs ‘полный путь,​ себе прогу «PDF-Exchange»​ есть поле «каталог​

​ за замечательный сайт!Много​ его код и​ файла одной рабочей​выберите пункт​ открытия книг, которые​.​ кнопок внизу страницы.​ полный путь к​ .Names.Add sPath_in_Names, .Path​ Topic_HEADER : Как​Alex_ST, про дату в​ уже созданного файла-копии?​ такой скоростью создаёте​ Sub​ включая расширение файла.​

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

​ и увидел там​​ автозагрузки». указывате там​ полезного нашла,но с​ введите код своего​ книги. В случаи,​Личная книга макросов​ используете каждый день,​В окне​ Для удобства также​ файлу вместе с​ & «\»: sDirPath​ макросом сохранить копию​ названии есть в​The_Prist​ свои ответы пока​sFileName = sFileName​ ДОЛЖЕН БЫТЬ В​ возможность «Сохранить копию​ путь.​ этой проблемой не​ макроса. Выберите инструмент​ когда необходимо использовать​.​ при запуске Excel.​Сохранить как​ приводим ссылку на​ его именем If​ = .Names(sPath_in_Names).Value ‘​ текущего файла? ‘​ приёмах:​: Алекс, ну чтоже​ я ввожу свои,​

​ & IIf(Right(sFileName, Len(sExpansion))​​ ДРУГОЙ ПАПКЕ, дабы​ как . «.​в эту папку​ могу справиться: подскажите,пожалуйста,как​ в редакторе макросов:​

​ тот же макрос​​После этого макрос будет​ Вы можете создать​в раскрывающемся списке​ оригинал (на английском​ FileName = .FullName​ если считать не​ Topic_URL : http://www.planetaexcel.ru/forum.php?thread_id=16506​Alex_ST​ ВЫ так? Я​ что я их​

​ <> sExpansion, sExpansion,​​ не было конфликта​Оказалось очень удобно,​ кладете файл с​ правильно сохранить макрос,​ «File»-«Save Personal.xlsb», а​

​ в других файлах​ доступен при каждом​ макроса «Авто_открыть», чтобы​
​Тип файла​ языке) .​ Then MsgBox «Здесь​

Как макросом сохранить копию текущего файла?

​ удалось, значит путь​​ ‘ DateTime :​: Спасибо. Разобрался.​ ж еще в​
​ просто не успеваю​ «»)​ при совпадении имен.​ т.к. при этом​ макросом​ чтобы он работал​ потом закройте редактор​ рабочих книг, тогда​
​ открытии Excel.​ сделать это. Вы​
​выберите​Создать макрос в Excel​ нельзя сохранить файл​ ранее не задавался​ 08.02.12, 12:00 ‘​Только чтобы всё​ начале писал -​ читать. ​If sFileName =​ThisWorkbook.Password = «»​ текущий открытый файл​при открытии экселя​
​ не только с​
​ Visual Basic.​ можно сохранить его​Чтобы было проще вспомнить,​ также можете запускайте​Книга Excel с поддержкой​ можно, запустив средство​ под таким именем!»,​ и он для​ Purpose : Сохранение​ правильно работало нужно​ «Вы сначала задаете​Ща буду разбираться. ​ ThisWorkbook.FullName Then​
​Alex_ST​ не закрывается, а​ этот файл будет​ «Эта Книга», а​​
​ в личной книге​ что делает макрос,​ макрос автоматически при​ макросов​ записи макросов или​ 16, «Ошибка»: GoTo​ первого раза задаётся​ копии активного файла​ не атрибуты файла​ книге пароль, затем​
​ Беру тайм-аут на​MsgBox «Нельзя сохранить​: Метод SaveCopyAs требует​ просто его копия​ самостоятельно открываться.​ для любых файлов​
​Теперь у вас подключена​ макросов. У нее​ введите его описание​ открытии книги.​.​
​ с помощью редактора​ REPEAT_ sDirPath =​ равным ActiveWorkbook.Path sDirPath​

​ ‘ Notes :​​ через​
​ сохраняете, затем убираете​
​ осмысливание.​
​ файл под имененм​
​ непосредственного указания пути​
​ сохраняется в указанном​
​Alex_ST​
​ xls. На форуме​
​ скрытая книга для​
​ всегда одно название​
​ в поле​
​Прежде чем начать, убедитесь,​Нажмите кнопку​ Visual Basic для​ Left(FileName, InStrRev(FileName, «\»))​ = Mid(sDirPath, 3,​

​ Путь сохранения копий​​SetAttr ActiveWorkbook.FullName, vbReadOnly​ пароль.​

​Скорее всего до​​ открытого файла!», vbCritical​
​ и имени сохранения,​ месте с указанными​: По работе на​ нашла,что надо сохранять​ хранения макросов, к​ – Personal.xlsb. Она​
​Описание​

​ что на ленте​​Сохранить​ приложений (VBA). После​ ‘ путь к​ Len(sDirPath) — 3)​ хранится в коллекции​ устанавливать, т.к. это​Тоже самое можно​ завтра, т.к.у нас​ + vbYesNo, «Ошибка»​

​ а хотелось бы​​ свойствами (всё это​ своём компе создаю/модернизирую/заполняю​ в Личной книге​ которым можно получить​ всегда открывается при​. Можно также оставить​ доступна вкладка​

​.​​ создания макроса следует​ папке сохранения копий​
​ ‘ убрать из​ .Names книги (в​ ничего не даёт​ сделать и с​ на работе сегодня​GoTo BEGIN_​ по вызову макроса​
​ задаётся в стандартных​

​ разные таблицы.​​ макросов, но когда​ доступ из любой​ запуске программы Excel,​

​ это поле пустым.​Разработчик​Чтобы макросы были доступны​
​ сохранить его для​
​ без имени файла​
​ считанного значения в​ именованном диапазоне) ‘—————————————————————————————​ , а​
​ другими атрибутами(только чтение​
​ отмечается «День Корпорации»​End If​ выйти на стандартное​

​ виндовых окнах).​По окончании какого-нибудь​ пытаюсь это сделать​ другой рабочей книги.​
​ только скрыто. Данная​Нажмите кнопку​
​. Если ее нет,​ при каждом запуске​ возможности повторного использования​ .Names(sPath_in_Names).Value = sDirPath​
​ начале «= и​
​ Const sPath_in_Names =​
​ActiveWorkbook.Password = «ххх»​
​ через GetAttr например).»​
​ (ввиду кризиса -​

​ThisWorkbook.Password = «1»​​ окно выбора пути​Вот и подумал,​ этапа КОПИЮ таблицы​ выдает ошибку:»Личн.кн.макр.в папке​ Личная книга макросов​ книга не является​

​ОК​ выполните указанные ниже​ Excel, создайте их​ в текущей или​

​ ‘ запомнить выбранный​​ в конце «​ «Path4SaveCopyAs» ‘ имя​ задаёт пароль НА​Т.е. сначала Вы​ на рабочих местах,​ThisWorkbook.SaveCopyAs sFileName​ и имени сохранения​ а вдруг гуру​ надо выкладывать на​

​ автозагрузки должна оставаться​​ где находится находиться​ доступной по умолчанию​.​ действия.​ в книге «Personal.xlsb».​ в других книгах.​ в диалоге путь​ sDirPath = sDirPath​ элемента коллекции .Names,​ ОТКРЫТИЕ​

​ сохраняемой книги присваиваете​​ а не на​ThisWorkbook.Password = «»​ . ​ форума посоветуют как​ общий диск с​ открытой-Запись невозможна»- Как​ в папке автозагрузки​
​ в Excel, поэтому​Откройте вкладку​Откройте вкладку​
​ Это скрытая книга​Если понадобится использовать макрос​ в коллекции .Names​ & IIf(Right(sDirPath, 1)​ в котором должен​Надо вот так:​ все эти атрибуты,​ природе), поэтому, прошу​The_Prist​Alex_ST​ можно сделать макрос,​ паролем на изменение​ это сделать? Проблема​

​ файлов Excel –​​ ее нужно сначала​
​Файл​Файл​ на вашем компьютере,​ только в той​
​ под именем sPath_in_Names​ = «\», «»,​ храниться путь для​With ActiveWorkbook​

​ затем сохраняете, потом​​ пардону, с ответами​: Алекс, Вы хоть​: Да и к​ осуществляющий аналогичную вункцию​ (ну, просто для​ в том,что записав​ XLSTART: C:\Documents and​ подключить.​, выберите пункт​

​и выберите пункт​​ которая открывается при​

​ книге, где он​​ bReadOnlyRecommended = .ReadOnlyRecommended​ «\») ‘ на​ сохранения копий файла​
​.WritePassword = «1»​ убираете.​ немного торможу, хотя​

​ посмотрели, что я​​ тому же метод​ в Ёкселе?​ страховки одних пользователей​ макрос, я его​ Settings\User_Name\AppData\Roaming\Microsoft\Excel\XLSTART\Personal.xlsb​Чтобы создать и схоронить​Открыть​Параметры​

​ каждом запуске Excel.​ был создан, нажмите​ ‘ запомнить параметры​ всякий случай (если​

​ Dim sSuff$: sSuff​.ReadOnlyRecommended = True​Dim sFileName As​ пока ещё вполне​ предложил? Вы сначала​

​ SaveCopyAs не предполагает​Очевидно, что макрос​ от действий других. ).​
​ правила в VBA,какое-то​
​Примечание. XLSTART – это​
​ код в личной​и выберите файлы,​, а затем —​
​ Для получения сведений​
​ кнопку​ исходного файла .ReadOnlyRecommended​ имя было задано​

​ = » [«​.SaveCopyAs sFileName​ String, sExpansion As​ адекватен, но что​
​ задаете книге пароль,​ задания опций сохранения​
​ (ну, например, Save_Copy_As)​Конечно, можно воспользоваться​ время он работал,​ папка для автозагрузки​
​ книге макросов:​
​ с которыми работаете​
​ категорию​ о выполнении этих​
​Сохранить​
​ = —(MsgBox(«Рекомендовать открывать​ в ручную и​

​ & Format(Now, «yyyy/mm/dd​​.WritePassword = «»​

​ String​ будет дальше . ​ затем сохраняете, затем​

​ (пароль, предложение открыть​​ должен лежать в​
​ стандартными средствами:​ а потом исчез. ​ файлов вместе с​Выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Запись макроса».​
​ каждый день. Они​Настроить ленту​ действий см. статью​или​
​ файл только для​ при этом не​ hh-mm’ss»») & «]»​

​.ReadOnlyRecommended = False​
​BEGIN_:​
​Alex_ST​
​ убираете пароль.​
​ только для чтения​
​ личной книге макросов​
​- открыть папку​
​ Теперь, я его​

​ запуском программы Excel.​В появившемся диалоговом окне​ могут находиться в​

​.​​ Создание и сохранение​Сохранить как​ чтения?», 36) -​ верно — без​ ‘ суффикс к​End With​sFileName = ThisWorkbook.Name​
​: The_Prist,спасибо!​Тоже самое можно​ и т.п.)​
​ (Personal.xls). ​ назначения, скопировать (drag​ вставляю через редактор​ Если сохранить файл​ «Запись макроса», из​ разных местах. Чтобы​
​В разделе​ всех макросов в​
​так же, как​ 7) ‘ MsgBox​ слэша) .Names(sPath_in_Names).Value =​ имени файла копии​Если кому-нибудь интересно,​sExpansion = Right(sFileName,​Всё отлично работает.​ сделать и с​tolikt​А вот как​ & drop’ ом)​ VBA,он отрабатывает для​ в данную папку,​ выпадающего списка «Сохранить​ выбрать несколько файлов​Настройка ленты​ одной книге.​ при обычном сохранении.​ Argument 4==vbYesNo 32==vbQuestion,​ sDirPath ‘ запомнить​ — дата и​ то «причёсанный» вариант​ Len(sFileName) — InStrRev(sFileName,​ Завтра «дополирую» диалогами​ другими атрибутами(только чтение​: Наверное, я что-то​ «Сохранить как. «, не​ туда файл, открыть​ открытого файла, закрываю​ то он будет​ в:» выберите опцию​ в одной папке,​в поле​Примечание:​ Но сохранение книги​ MsgBox Return Values:​ путь сохранения копий​ время сохренения копии​ — в файле.​ «.») + 1)​ для задания пассворда​ через GetAttr например).​ не понял. ​ закрывая текущего файла?​ его и поставить​ Excel,через некот.время открываю​ открываться вместе с​ «Личная книга макросов».​ щелкните каждый из​Основные вкладки​Мы стараемся как​ с макросами происходит​ vbYes=6, vbNo=7 .SaveCopyAs​ в коллекции .Names​ файла Dim FileName,​Alex_ST​sFileName = Application.GetSaveAsFilename​ . ​Alex_ST​Т.к. думал, что​Alex_ST​ пароль на открытие. ​ Excel, а макроса​ программой Excel. Для​ И нажмите на​ них, удерживая нажатой​установите флажок​ можно оперативнее обеспечивать​ несколько иначе, поскольку​ FileName .ReadOnlyRecommended =​ под именем sPath_in_Names​ sExp$, sDirPath$, sFullFilePath$,​: Приходится у себя​If sFileName =​А как бы​: Я, конечно, естественно,​ пользователь класса Alex_ST​: Сразу оговариваю:​ Но уж больно​ там нет. ​ версий старше 2007​ кнопку OK.​ клавишу SHIFT.​Разработчик​ вас актуальными справочными​ необходимо использовать специальный​ bReadOnlyRecommended ‘ восстановить​ sFullFilePath = sDirPath​ sNewPath$ Dim bReadOnlyRecommended​ на компе вести​ «False» Then Exit​ при сохранении копии​ смогу сделать InputBox​ уж сумеет как-то​макросы типа​ это не удобно,​Guest​ путь к папке​Теперь выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Остановить​Откройте вкладку​.​ материалами на вашем​ формат файла «с​ параметры исходного файла​ & FileName ‘​ As Boolean With​ несколько учётных файлов,​ Sub​ задавать «Рекомендовать открытие​ для задания пути​ в макросе подогнать​Sub Save_File_As()​ т.к. надо после​: А если выбрать​ автозагрузки будет следующим:​ запись».​Разработчик​Нажмите кнопку​ языке. Эта страница​ поддержкой макросов». Поэтому​ End With End​ полный путь сохранения​ ActiveWorkbook FileName =​ а их копии​sFileName = sFileName​ только для чтения?»​ для SaveCopyAs, но,​ под себя SaveCopyAs​ActiveWorkbook.SaveAs _​ копирования закрыть свой​ «Все открытые книги»?​ C:\Program Files\Microsoft Office\Office12\Xlstart.​Откройте редактор Visual Basic:​и нажмите кнопку​ОК​ переведена автоматически, поэтому​ при попытке сохранить​ Sub​ вместе с полным​

Сохранение макроса

Создать макрос в Excel можно, запустив средство записи макросов или с помощью редактора Visual Basic для приложений (VBA). После создания макроса следует сохранить его для возможности повторного использования в текущей или в других книгах.

Сохранение макроса в текущей книге

Если понадобится использовать макрос только в той книге, где он был создан, нажмите кнопку Сохранить или Сохранить как так же, как при обычном сохранении. Но сохранение книги с макросами происходит несколько иначе, поскольку необходимо использовать специальный формат файла «с поддержкой макросов». Поэтому при попытке сохранить макрос Excel предложит два варианта:

• Сохранить в виде книги с поддержкой макросов (XLSM-файл), выбрав Нет.
• Сохранить в виде книги без поддержки макросов, выбрав Да.

Чтобы сохранить макрос как книгу с поддержкой макросов,

1. щелкните Нет.
2. В окне Сохранить как в раскрывающемся списке Тип файла выберите Книга Excel с поддержкой макросов.
3. Нажмите кнопку Сохранить.

Создание и сохранение макросов в личной книге

Чтобы макросы были доступны при каждом запуске Excel, создайте их в книге «Personal.xlsb». Это скрытая книга на вашем компьютере, которая открывается при каждом запуске Excel. Для получения сведений о выполнении этих действий см. статью Создание и сохранение всех макросов в одной книге.

Создание и сохранение всех макросов в одной книге

Если вы воссоздаете те же макрос, вы можете скопировать их в специальную книгуPersonal.xls b, сохраненную на компьютере. Любые макросы, хранимые в личной книге, становятся доступны вам при Excel на этом же компьютере.

Это поведение отличается от Excel по умолчанию, когда макрос работает только в книге, содержаной его.

Чтобы создать личную книгу, сначала нужно создать макрос и сохранить его в личной книге макроса. Перед началом работы убедитесь, что вкладка Разработчик доступна на ленте в Excel. Дополнительные сведения см. в этой вкладке.

Создание и обновление книги «Личные макросы»

1. На вкладке Разработчик в группе Код нажмите кнопку Запись макроса.
   
2. В диалоговом окне Запись макроса введите содержательное имя макроса в поле Имя макроса. Не используйте пробелы в имени.
3. В поле Сохранить в выберитеЛичная книга макроса.
   
4. Нажмите кнопку ОК.
5. Выполните действия, которые нужно записать.
6. На вкладке Разработчик в группе Код нажмите кнопку Остановить запись.
   
7. Закроем книгу. Отобразится сообщение с предложением сохранить изменения, внесенные в личную книгу макросов.
8. Нажмите кнопку Сохранить, чтобы сохранить книгу.

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

Общий доступ к макросам

Если вы хотите скопировать макрос из личной книги в другую книгу или наоборот, это можно сделать в редакторе Visual Basic(VBE). Вы можете запустить редактор Visual Basic в Excel, нажав ALT+F11. Дополнительные сведения о копировании макросов из одной книги в другую см. в статье Копирование модуля макроса в другую книгу.

Если вы хотите поделиться файлом Personal.xlsB с другими людьми, вы можете скопировать его в папку XLSTART на других компьютерах. В Windows 10, Windows 7 и Windows Vista эта книга будет сохранена в папке C:\Users\имя пользователя\AppData\Local\Microsoft\Excel\XLStart. В Microsoft Windows XP эта книга сохранена в папке C:\Documents and Параметры\имя пользователя\Application Data\Microsoft\Excel\XLStart. Книги в папке XLStart открываются автоматически при Excel, а все коды, сохраненные в личной книге макроса, будут перечислены в диалоговом окну Макрос.

Если вы хотите поделиться одним или несколькими макросами, вы можете отправить им книгу, содержаную их по электронной почте. Вы также можете сделать книгу доступной на общем сетевом диске или в SharePoint Services библиотеке.

Чтобы создать личную книгу, сначала нужно создать макрос и сохранить его в личной книге макроса. Перед началом работы убедитесь, что вкладка Разработчик доступна на ленте в Excel. Для этого:

В меню Excel выберите пункт Параметры. > ленты & панели инструментов. В категории Настройка ленты в списке Основные вкладки выберите разработчик и нажмите кнопку Сохранить.

Создание и обновление книги «Личные макросы»

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

1. На вкладке Разработчик нажмите кнопку Запись макроса.
2. В диалоговом окне Запись макроса введите содержательное имя макроса в поле Имя макроса. Не используйте пробелы в имени.
3. В поле Сохранить в выберитеЛичная книга макроса.
4. Нажмите кнопку ОК.
5. Выполните действия, которые нужно записать.
6. На вкладке Разработчик щелкните Остановить запись.
7. Сохраните изменения, закроем книгу и, наконец, закроем Excel. Отобразится сообщение с предложением сохранить изменения, внесенные в личную книгу макросов.
8. Нажмите кнопку Сохранить, чтобы сохранить книгу.

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

Общий доступ к макросам

Если вы хотите скопировать макрос из личной книги в другую книгу или наоборот, это можно сделать в редакторе Visual Basic(VBE). Чтобы запустить редактор Visual Basic в Excel, щелкните Visual Basic на вкладке Разработчик. Дополнительные сведения о копировании макросов из одной книги в другую см. в статье Копирование модуля макроса в другую книгу.

Если вы хотите поделиться файлом Personal.xlsB с другими людьми, вы можете скопировать его в папку Excel на других компьютерах. Эта папка для Mac находится в домашней папке на сайте ~/Library/Containers/com.microsoft. Excel/Data/Library/Application Support/Microsoft/Roaming/Excel/.

Если вы хотите поделиться одним или несколькими макросами, вы можете отправить им книгу, содержаную их по электронной почте. Вы также можете сделать книгу доступной на общем сетевом диске или в SharePoint Services библиотеке.

Дополнительные сведения

Вы всегда можете задать вопрос эксперту в Excel Tech Community или получить поддержку в сообществах.

Создание и сохранение всех макросов в одной книге

Когда вы впервые создаете макрос в книге, он работает только в ней. А если вам нужно использовать макрос в других книгах? Чтобы макросы были доступны при каждом запуске Excel, создайте их в книге с именем Personal.xlsb. Это скрытая книга, которая хранится на компьютере и открывается в фоновом режиме при каждом Excel.

Макросы и средства VBA находятся на вкладке Разработчик, которая по умолчанию скрыта, поэтому сначала нужно включить ее. Дополнительные сведения см. в статье Отображение вкладки «Разработчик».

Теперь создайте макрос. Мы зафиксим макрос, который ничего не делает, но создаст личную книгу макроса.

Дополнительные сведения о создании макросов см. в разделе Краткое руководство. Создание макроса.

1. Перейдите на вкладку Разработчик и нажмите кнопку Запись макроса.
2. В диалоговом окне Запись макроса не помешает ввести имя макроса в поле Имя макроса. Вы можете принять имя, которое Excel, например Макрос1, так как это просто временный макрос. Когда вы начнете создавать собственные макросы, вам нужно будет дать им описательные имена, чтобы вы знали, что они делают.
3. В поле Сохранить в выберитеЛичная книга макроса и >ОК. Это самый важный шаг, так как если у вас еще нет личной книги макроса, Excel создаст ее.
4. Щелкните Разработчик >Остановитьзапись , Excel создайте личную книгу макроса.
5. При закрытии книги вам будет предложено сохранить как книгу, так и личную книгу макроса.

Чтобы увидеть созданный макрос:

1. Перейдите в >Visual Basic, чтобы запустить редактор Visual Basic (VBE),в котором хранятся макросы.
2. Книгу «Личные макросы» можно найти в области Project проводника слева. Если вы не видите его, перейдите в >Project проводник.
3. Дважды щелкните папку VBA Project (PERSONAL.xlsb) >Modules >Module1, и вы увидите пустой записанный макрос1. Вы можете удалить его или оставить, чтобы добавить код к более поздней.

Примечание: При записи макроса в новом экземпляре Excel VBA автоматически создает новую папку Module и ее номер прибавления. Поэтому если у вас уже есть Module1 и Module2, VBA создаст Модуль3. Модули можно переименовать в окне Свойства под обозревателем Project ,чтобы они лучше отражали то, что делают макрос внутри них.

Перемещение макросов на другой компьютер

Файл Personal.xlsB хранится в папке XLSTART. Если вы хотите поделиться макросами с другими, вы можете скопировать их в папку XLSTART на других компьютерах или скопировать некоторые или все макрос в файл Personal.xlsb на других компьютерах. Вы можете найти XLSTART в Windows проводнике.

Если вы хотите поделиться одним или несколькими макросами с другими людьми, вы можете отправить им книгу, содержаную их. Можно также предоставить доступ к книге на общем сетевом диске или в библиотеке служб SharePoint Services.

Дополнительные сведения о копировании макросов из одной книги в другую см. в статье Копирование модуля макроса в другую книгу.

Убедитесь, что на ленте отображается вкладка Разработчик. По умолчанию вкладка Разработчик не отображается, поэтому сделайте следующее:

1. Перейдите в Excel >параметры. >ленты & панель инструментов.
2. В категории Настроить ленту в списке Основные вкладки установите флажок Разработчик, а затем нажмите кнопку Сохранить.

Теперь создайте макрос. Мы зафиксим макрос, который ничего не делает, но создаст личную книгу макроса.

Дополнительные сведения о создании макросов см. в разделе Краткое руководство. Создание макроса.

1. Перейдите на вкладку Разработчик и нажмите кнопку Запись макроса.
2. В диалоговом окне Запись макроса не помешает ввести имя макроса в поле Имя макроса. Вы можете принять имя, которое Excel, например Макрос1, так как это просто временный макрос. Когда вы начнете создавать собственные макросы, вам нужно будет дать им описательные имена, чтобы вы знали, что они делают.
3. В поле Сохранить в выберитеЛичная книга макроса и >ОК. Это самый важный шаг, так как если у вас еще нет личной книги макроса, Excel создаст ее.
4. Щелкните Разработчик >Остановитьзапись , Excel создайте личную книгу макроса.
5. При закрытии книги вам будет предложено сохранить как книгу, так и личную книгу макроса.

Чтобы увидеть созданный макрос:

1. Нажмите кнопку >Visual Basic, чтобы запустить редактор Visual Basic (VBE),в котором хранятся макросы.
2. Книгу «Личные макросы» можно найти в области Project проводника слева. Если вы не видите его, перейдите в >Project проводник.
3. Дважды щелкните папку VBA Project (PERSONAL.xlsb) >Modules >Module1, и вы увидите пустой записанный макрос1. Вы можете удалить его или оставить, чтобы добавить код к более поздней.

Примечание: При записи макроса в новом экземпляре Excel VBA автоматически создает новую папку Module и ее номер прибавления. Поэтому если у вас уже есть Module1 и Module2, VBA создаст Модуль3. Модули можно переименовать в окне Свойства под обозревателем Project ,чтобы они лучше отражали то, что делают макрос внутри них.

Перемещение макросов на другой компьютер

Файл Personal.xlsB хранится в папке запуска системы. Если вы хотите поделиться макросами с другими, можно скопировать Personal.xlsb в папку запуска на других компьютерах или скопировать некоторые или все макрос макроса в файл Personal.xlsb на других компьютерах. В Finder выберите Перейти, а затем, удерживая клавишу OPTION, выберите Библиотека. В области Библиотека перейдите к группе Containers > xyz.Office (где xyz — это текстовая строка, например «UBF8T346G9») > User Content > Startup > Excel. В Personal.xlsb в Excel папку.

Если вы хотите поделиться одним или несколькими макросами с другими людьми, вы можете отправить им книгу, содержаную их. Можно также предоставить доступ к книге на общем сетевом диске или в библиотеке служб SharePoint Services.

Дополнительные сведения о копировании макросов из одной книги в другую см. в статье Копирование модуля макроса в другую книгу.

Дополнительные сведения

Вы всегда можете задать вопрос эксперту в Excel Tech Community или получить поддержку в сообществах.