Чтобы создать личную книгу, сначала нужно создать макрос и сохранить его в личной книге макроса. Перед началом работы убедитесь, что вкладка Разработчик доступна на ленте в Excel. Дополнительные сведения см. в этой вкладке.
Создание и обновление книги «Личные макросы»
-
На вкладке Разработчик в группе Код нажмите кнопку Запись макроса.
-
В диалоговом окне Запись макроса введите содержательное имя макроса в поле Имя макроса. Не используйте пробелы в имени.
-
В поле Сохранить в выберитеЛичная книга макроса.
-
Нажмите кнопку ОК.
-
Выполните действия, которые нужно записать.
-
На вкладке Разработчик в группе Код нажмите кнопку Остановить запись.
-
Закроем книгу.
Отобразится сообщение с предложением сохранить изменения, внесенные в личную книгу макросов.
-
Нажмите кнопку Сохранить, чтобы сохранить книгу.
Каждый раз при создании нового макроса и сохранении его в личную книгу, а также при обновлении макроса в книге предлагается сохранить личную книгу.
Общий доступ к макросам
Если вы хотите скопировать макрос из личной книги в другую книгу или наоборот, это можно сделать в редакторе Visual Basic(VBE). Вы можете запустить редактор Visual Basic в Excel, нажав ALT+F11. Дополнительные сведения о копировании макросов из одной книги в другую см. в статье Копирование модуля макроса в другую книгу.
Если вы хотите поделиться файлом Personal.xlsB с другими людьми, вы можете скопировать его в папку XLSTART на других компьютерах. В Windows 10, Windows 7 и Windows Vista эта книга будет сохранена в папке C:Usersимя пользователяAppDataLocalMicrosoftExcelXLStart. В Microsoft Windows XP эта книга сохранена в папке C:Documents and Параметрыимя пользователяApplication DataMicrosoftExcelXLStart. Книги в папке XLStart открываются автоматически при Excel, а все коды, сохраненные в личной книге макроса, будут перечислены в диалоговом окну Макрос.
Если вы хотите поделиться одним или несколькими макросами, вы можете отправить им книгу, содержаную их по электронной почте. Вы также можете сделать книгу доступной на общем сетевом диске или в SharePoint Services библиотеке.
Чтобы создать личную книгу, сначала нужно создать макрос и сохранить его в личной книге макроса. Перед началом работы убедитесь, что вкладка Разработчик доступна на ленте в Excel. Для этого:
В меню Excel выберите пункт Параметры… > ленты & панели инструментов. В категории Настройка ленты в списке Основные вкладки выберите разработчик и нажмите кнопку Сохранить.
Создание и обновление книги «Личные макросы»
Чтобы создать личную книгу, сначала нужно создать макрос и сохранить его в личной книге макроса.
-
На вкладке Разработчик нажмите кнопку Запись макроса.
-
В диалоговом окне Запись макроса введите содержательное имя макроса в поле Имя макроса. Не используйте пробелы в имени.
-
В поле Сохранить в выберитеЛичная книга макроса.
-
Нажмите кнопку ОК.
-
Выполните действия, которые нужно записать.
-
На вкладке Разработчик щелкните Остановить запись.
-
Сохраните изменения, закроем книгу и, наконец, закроем Excel.
Отобразится сообщение с предложением сохранить изменения, внесенные в личную книгу макросов.
-
Нажмите кнопку Сохранить, чтобы сохранить книгу.
Каждый раз, когда вы создаете новый макрос и сохраняете его в личной книге или обновляете макрос, который уже есть в нем, вам будет предложено сохранить личную книгу.
Общий доступ к макросам
Если вы хотите скопировать макрос из личной книги в другую книгу или наоборот, это можно сделать в редакторе 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, то я вам даже немного завидую. Ощущение всемогущества и осознание того, что ваш Microsoft Excel можно прокачивать почти до бесконечности, которые придут к вам после знакомства с макросами — приятные чувства.
Однако, эта статья для тех, кто уже «познал мощь» и начал использовать макросы (чужие или написанные самостоятельно — не важно) в своей повседневной работе.
Макрос — это код (несколько строк) на языке Visual Basic, которые заставляют Excel сделать то, что вам нужно: обработать данные, сформировать отчет, скопипастить много однообразных таблиц и т.п. Вопрос — где эти несколько строк кода хранить? Ведь от того, где макрос хранится будет потом зависеть где он сможет (или не сможет) работать.
Если макрос решает небольшую локальную проблему в отдельно взятом файле (например обрабатывает внесенные в конкретный отчет данные особым образом), то логично хранить код внутри этого же файла. Без вопросов.
А если макрос должен быть относительно универсален и нужен в любой книге Excel — как, например, макрос для конвертирования формул в значения? Не копировать же его код на Visual Basic каждый раз в каждую книгу? Кроме того, рано или поздно, почти любой пользователь приходит к мысли, что неплохо было бы сложить все макросы в одну коробку, т.е. иметь их всегда под рукой. И может быть даже запускать не вручную, а сочетаниями клавиш? И вот тут может здорово помочь Личная Книга Макросов (Personal Macro Workbook).
Как создать Личную Книгу Макросов
На самом деле, Личная Книга Макросов (ЛКМ) — это обычный файл Excel в формате двоичной книги (Personal.xlsb), который автоматически в скрытом режиме открывается одновременно с Microsoft Excel. Т.е. когда вы просто запускаете Excel или открываете любой файл с диска, на самом деле открываются два файла — ваш и Personal.xlsb, но второго мы не видим. Таким образом все макросы, которые хранятся в ЛКМ оказываются доступы для запуска в любой момент, пока открыт Excel.
Если вы еще ни разу не пользовались ЛКМ, то изначально файл Personal.xlsb не существует. Самый легкий способ его создать — это записать рекордером какой-нибудь ненужный бессмысленный макрос, но указать в качестве места для его хранения Личную Книгу — тогда Excel будет вынужден автоматически ее для вас создать. Для этого:
- Откройте вкладку Разработчик (Developer). Если вкладки Разработчик не видно, то ее можно включить в настройках через Файл — Параметры — Настройка ленты (Home — Options — Customize the Ribbon).
- На вкладке Разработчик нажмите кнопку Запись макроса (Record Macro). В открывшемся окне выберите Личную книгу макросов (Personal Macro Workbook) как место для хранения записанного кода и нажмите OK:
- Остановите запись кнопкой Остановить запись (Stop Recording) на вкладке Разработчик (Developer)
Проверить результат можно, нажав на кнопку Visual Basic там же на вкладке Разработчик — в открывшемся окне редактора в левом верхнем углу на панели Project — VBA Project должен появиться наш файл PERSONAL.XLSB. Его ветку которого можно развернуть плюсиком слева, добравшись до Module1, где и хранится код только что записанного нами бессмысленного макроса:
Поздравляю, вы только что создали себе Личную Книгу Макросов! Только не забудьте нажать на кнопку сохранения с дискеткой в левом верхнем углу на панели инструментов.
Как использовать Личную Книгу Макросов
Дальше все просто. Любой нужный вам макрос (т.е. кусок кода, начинающийся на Sub и заканчивающийся End Sub) можно смело копировать и вставлять либо в Module1, либо в отдельный модуль, добавив его предварительно через меню Insert — Module. Хранить все макросы в одном модуле или раскладывать по разным — исключительно вопрос вкуса. Выглядеть это должно примерно так:
Запустить добавленный макрос можно в диалоговом окне, вызываемом с помощью кнопки Макросы (Macros) на вкладке Разработчик:
В этом же окне, нажав кнопку Параметры (Options), можно задать сочетание клавиш для быстрого запуска макроса с клавиатуры. Будьте внимательны: сочетания клавиш для макросов различают раскладку (русская или английская) и регистр.
Кроме обычных макросов-процедур в Личной Книге можно хранить и пользовательские макро-функции (UDF = User Defined Function). В отличие от процедур, код функций начинаются с оператора Function или Public Function, а заканчиваются на End Function:
Код необходимо аналогичным образом скопировать в любой модуль книги PERSONAL.XLSB и затем можно будет вызвать функцию обычным образом, как любую стандарную функцию Excel, нажав кнопку fx в строке формул и выбрав функцию в окне Мастера Функций в категории Определенные пользователем (User Defined):
Примеры таких функций можно в больших количествах найти в интернете или здесь же на сайте (сумма прописью, приблизительный текстовый поиск, ВПР 2.0, конвертация кириллицы в транслит и т.п.)
Где хранится Личная Книга Макросов
Если вы будете использовать Личную Книгу Макросов, то рано или поздно у вас возникнет желание:
- поделиться своими накопленными макросами с другими пользователями
- скопировать и перенести Личную Книгу на другой компьютер
- сделать ее резервную копию
Для этого нужно будет найти файл PERSONAL.XLSB на диске вашего компьютера. По умолчанию, этот файл хранится в специальной папке автозапуска Excel, которая называется XLSTART. Так что все, что нужно — это добраться до этой папки на нашем ПК. И вот тут возникает небольшая сложность, потому что местоположение этой папки зависит от версии Windows и Office и может различаться. Обычно это один из следующих вариантов:
- C:Program FilesMicrosoft OfficeOffice12XLSTART
- C:Documents and SettingsComputerApplication DataMicrosoftExcelXLSTART
- C:Usersимя-вашей-учетной-записиAppDataRoamingMicrosoftExcelXLSTART
Как вариант, можно спросить о положении этой папки сам Excel с помощью VBA. Для этого в редакторе Visual Basic (кнопка Visual Basic на вкладке Разработчик) нужно открыть окно Immediate сочетанием клавиш Ctrl+G, ввести туда команду ? Application.StartupPath и нажать на Enter:
Полученный путь можно скопировать и вставить в верхнюю строку окна Проводника в Windows и нажать Enter — и мы увидим папку с нашим файлом Личной Книги Макросов:
P.S.
И несколько практических нюансов вдогон:
- при использовании Личной Книги Макросов Excel будет запускаться чуть медленнее, особенно на слабых ПК
- стоит периодически очищать Личную Книгу от информационного мусора, старых и ненужных макросов и т.п.
- у корпоративных пользователей бывают иногда сложности с использованием Личной Книги, т.к. это файл в системной скрытой папке
Ссылки по теме
- Что такое макросы, как их использовать в работе
- Полезности для VBA-программиста
- Тренинг «Программирование макросов на VBA в Microsoft Excel»
Редактирование макроса
Смотрите такжеOn Error GoTo чего-то написать»With ThisWorkbook на нужный вариант(дату) файл.bak есть то буду вручную запускать, находится ещё 1 сохранена? Я создал только для чтения. которые пишете вручную) xlsx, xlsm, xlsb… и имя книги папка автозагрузки. Папка, но я попробовалПосле этого макрос будетСправка Microsoft Visual BasicПримечание: erEnd IfApplication.Run («personal.xlsb!reserv») лишнее — просто
пусть создается файл1.bak найду способ решения попка Microsoft Office, новую книгу, зашёл
Чтобы сохранить изменения, кладите в файлNatrium — рандомный набор дополняющая стандартную папку
Изменение параметров безопасности макросов
туда вставить шаблоны доступен при каждомили нажмите клавишу
-
Мы стараемся какDim LastSaved$, Backup$er:End With удаляете.Ну либо как-то — отпишу.
-
но в ней туда в макросы, сохраните книгу с Персонал. Жмите Альт+F11: Пробовал, выбирал, там символов — попробуй автозагрузки XLStart, содержащую *.xlb и *.xlt открытии Excel. F1.
можно оперативнее обеспечиватьLastSaved = Wb.BuiltinDocumentProperties(«LastEnd SubEnd SubТут есть пример ещё.Manyasha
Редактирование макроса
-
непонятная мне лабуда. скопировал все макросы новым именем или — Контрл+R - тип файла прописывается разбери где что. книги или другие
-
результата нет.Чтобы было проще вспомнить,Примечание: вас актуальными справочными
-
Save Time»)Private Sub Workbook_Open()Автоматизация заключается в и описание
Может кто сталкивался: Посмотрите в Файл-Параметры-Надстройки-Управление:»Отключенные Да и странно туда. Нажал сохранить в другом расположении. ищите Персонал - числовым значением. Но И вот надумал файлы, которые должныСаня
support.office.com
Запись макроса для открытия определенных книг при запуске Excel
что делает макрос,Мы стараемся как материалами на вашемIf Dir(Wb.Path &Set app = том, что приИногда файлы ловят с таким? объекты»-Перейти. что версия для как — Макросы.xlam. « создавайте там модуль и это значение я создать макрос открываться автоматически при: такие шаблоны в введите его описание можно оперативнее обеспечивать языке. Эта страница «excel_bak», vbDirectory) = Application
каждом открытии Вашего неисправимые глюки(по разнымЗадача вроде неВот здесь http://www.excelworld.ru/forum/2-2033-1#22368 32-хбитной системы записана После открыл файлик,Зашёл в свойства, (или открывайте существующий) «не работает» при по своим функциям запуске Microsoft Excel,
XLSTART вставишь, они в поле вас актуальными справочными переведена автоматически, поэтому «» Then MkDirEnd Sub рабочего файла создается
-
причинам), и потом особо сложная. ДУмаю вроде бы такая не в Program где мне нужны действительно только чтение и кладите в вставке в код,
-
аналогичный пункту меню и шаблоны, которые и будут поОписание материалами на вашем ее текст может (Wb.Path & «excel_bak»)
-
и перезапустить Excel резервная копия файла. работавший долгое время
и сам бы же проблема Files (x86). макросы. Там зашёл
-
и чтение и него все то, или я как-то «Сохранить как…», зачем должны быть доступны
-
умолчанию. Можно также оставить языке. Эта страница содержать неточности иBackup = Wb.Path
-
fairyliveТолько обратите внимание файл может просто справился. Но покаfairylive
-
Спасибо большое за в параметры-надстройки (у выполнение стоит галочка
-
что нужно. Если не так его спросите? Да для при создании книг.).УПОРНЫЙ это поле пустым. переведена автоматически, поэтому
-
грамматические ошибки. Для & «excel_bak» &:
-
на расширение файла перестать открываться т.е. не понимаю как: Всем привет! У помощь! себя вкладку Разработчик во вкладке «безопастность». Персонала нет, то прописал… того чтобы можноУПОРНЫЙ:Нажмите кнопку ее текст может
-
нас важно, чтобы Replace(LastSaved, «:», «.»)krosav4ig — у меня RIP.
-
добавить такое событие меня случился нереальныйManyasha я не нашёл)-поставилЗашёл в «Изменить» сначала запишите любойЮрий М было назначить его
:СаняОК содержать неточности и
support.office.com
Где хранятся Шаблоны и макросы Excel (Макрос для поиска используемых шаблонов и макросов)
эта статья была & » «, спасибо, походу дела оноfairylive (после открытия любого
облом. Сохранил файл: А что с галочку напротив Макросы.xlam.
поставил галочку «Полный макрос (см. п.1)
: Вот что у на какую-нибудь комбинациюSerge_007,. грамматические ошибки. Для вам полезна. Просим & Wb.Name то что надо!xlsb
: Это в каждый файла). Где должен с изменениями которых директорией Не пробовали Далее иду в доступ».
— он появится. меня записал рекордер клавиш.(Помнится мне в
,Я понял, оОткройте вкладку нас важно, чтобы
вас уделить паруIf Wb IsНе совсем понятноТакже макрос reserv файл придётся вставлять макрос лежать?
быть не должно. туда ЛКМ перенести? макросы, но нигдеСнова пробую уRoman777
при Сохранить Как Open/Libre Office нарядуПерепробовал все, ничего чем Вы говорите,
Файл эта статья была секунд и сообщить, Me Or Wb.IsAddin как работает. Можете — можно повесить этот макрос? Наal-Ex Пол дня (хорошо
Roman777 макросов не вижу себя создать макрос:
и с поддержкой с «Сохранить» [Ctrl+S], не понимаю что
просто у Вас, выберите пункт вам полезна. Просим помогла ли она Then Exit Sub пояснить немного код?
на кнопку и автоматизацию не очень: В личной книге
хоть всего пол: (должен ли я
в личной книге_Boroda_ макросов (xlsm): ActiveWorkbook.SaveAs есть и комбинация
с этим шаблоном. Excel 20**, а
Открыть вас уделить пару вам, с помощьюIf Wb.FullName <>Вот эта строчка перед какой - похоже. Или я макросов. PERSONAL.XLSB или дня) работы наManyasha там где-нибудь их макросов. И снова, Спасибо большое! Filename:=»D:DocExcelКнига107.xlsm», FileFormat:= _ «Сохранить как…» [Ctrl+Shift+S], По прежнему создается у меня Excelи выберите файлы, секунд и сообщить, кнопок внизу страницы. Wb.Name And Not должна заменять текущий то сложной операцией не уловил что-то? в надстройке.
смарку. Давайте подумаем
, У меня Win7 увидеть?). пока Персонал закрыт,Roman777 xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False а вот в книга открытая на 2003, поэтому расширения с которыми работаете помогла ли она Для удобства также SaveAsUI Then ‘And бэкап или нет? запускать Попозже попробую вberya как можно сделать
и на моёмManyasha говориться о том,:
JayBhagavan Excel, к сожалению, третьем листе со такие но ничего каждый день. Они вам, с помощью приводим ссылку на MsgBox(«Сделать бэкап?», 36)Backup = Wb.Path &fairylive деле.: Добрый день
так чтобы такое компьютере в принципе
: что он не
_Boroda_: В Excel горячая такой нет). Получился шрифтом Arial размером
не работает по
могут находиться в кнопок внизу страницы.
оригинал (на английском = 6 Then «» & Replace(LastSaved,: Да спасибо, я
ЦитатаСоздает резервную копию предупредить в будущем. директории такой неВкладка Разработчик открыт. Открываю -
, При опробывании первого клавиша F12 -
у меня вот 10 пунктов. Скриншоты прежнему. разных местах. Чтобы
excelworld.ru
Создание макроса для сохранения книги
Для удобства также языке) .Shell Join(Array(«cmd /c
«:», «.») & именно так иSLAVICK,
файла в папке Такое уже не существует. И директориив эксель 2007: всёравно пишет «Файл способа, возникла ошибка. сохранить как. Не такой код: до приемлемых размеровУПОРНЫЙ выбрать несколько файлов приводим ссылку наЧтобы отредактировать макрос, который copy «, Wb.FullName, » » & думал. Но ваш13.12.2017 в 09:52, «_Резерв» в том первый раз случается. Documents and Settings Файл-Параметры-Основные поставить галку PERSONAL.xlsb нельзя сохранить: Я выбрал «Личная вижу смысла свойSub Save_Ass () ужать не сумел,: в одной папке, оригинал (на английском вложен в книге » «, Backup, Wb.Name вариант скорей подойдёт в сообщении № же каталоге где Но бывало спасало нет. У меня «Показывать вкладку разработчик». он доступен только книга макросов», мне диалог писать. Const iTitle = поэтому положил архивСаня
щелкните каждый из языке) . Microsoft Excel, используйте » /y»), «»»»)Ещё при сохранении для людей которые 4 () Посмотрите и запускается файл автосохранение. Сейчас оно есть похожая директорияСоздание надстройки: для чтения. Чтобы выскочило окошко «ЛичнаяNatrium «Сохранение рабочей книги» сюда:, них, удерживая нажатойПредположим, что вы хотите
редактор Visual Basic.Do While Dir$(Backup) КАК выскакивает «Тут что-то понимают в на всякий случайВ модуль «Эта не помогло. C:UsersOfice123AppData (где Оfice123при сохранении файла
сохранить изменения, сохраните книга макросов в: Спасибо Вам огромное!
Const FilterList =http://webfile.ru/5467099. Обещали хранитьWin 7. Папка
клавишу SHIFT. записать макрос дляВажно: = «» можно чего-то написать».
макросах и как тут: книга» помещаете:
Продумать такой случай — имя моего с макросами выбрать
книгу с новым папке автозагрузки должна Вот уже 5лет «Книга Excel 97-2003 7 дней. Documents and SettingsОткройте вкладку открытия книг, которые
Перед началом работы сDoEvents Так и должно минимум долго работаютc:UsersПОЛЬЗОВАТЕЛЬAppDataLocalMicrosoftOfficeUnsavedFiles
Private Sub Workbook_Open() который и произошел юзера). Но втип именем или в оставаться открытой для пользую Excel разных (*.xls), *.xls,Книга ExcelSerge_007 отказано в доступе
Разработчик используете каждый день, макросами, необходимо включитьLoop быть? с одним ииногда сохраняются дажеreserv
у меня. папке AppData вНадстройка Excel .xlam другом расположении.» записи.». А После версий от ’97
(*.xlsx), *.xlsx,Книга Excel: Обманули.»Вообще-то в Windowsи нажмите кнопку при запуске Excel. вкладки «Разработчик». ПодробнееElseIf SaveAsUI ThenИ пожалуй стоит тем же файлом. сохраненные файлы.End Sub
Я открыл файл. принципе нет папок (см. скрин в
planetaexcel.ru
Сохранение макросов не в формате .xlsm (Макросы/Sub)
Manyasha выскочило второе окошко
до ’10, не (макро) (*.xlsm), *.xlsm,КнигаУПОРНЫЙ 7 нет такойОстановить запись Вы можете создать читайте вкладку «Разработчик».’MsgBox «Тут можно сохранять эти бэкапы Изо дня вСмотрел, там пусто.в модуль1 (илиСделал изменения. Excel и уж приложении).:
«Запись невозможна.» новичок, вроде бы, Excel (двоичная) (*.xlsb),:
папки, это всего. макроса «Авто_открыть», чтобыДля редактирования и запуска чего-то написать» в отдельную папку день. У меняЧто-то мне сдаётся
любой другой:Нажал сохранить. тем более XLSTARTПодключить можно черезRoman777А по второму даже вот до *.xlsb» Dim strName1Serge_007
лишь ярлык дляПри закрытии Excel в сделать это. Вы макросов требуется временноEnd If в той же по сути объём средствами экселя такоеКодSub reserv()Закрыл файл. в директории AppData Разработчик-Надстройки-обзор-, либо Файл-Параметры-Надстройки-надстройки, а с правами способу попробовал, Персонала макросов добрался, а As String strName1
, совместимости со старыми конечном итоге будет также можете запускайте
включить их.er: папке где находится работы такой что не сделать. ПерехватывающийDim strPath AsПотом понял что есть 3 папки: Эксель (в самом у Вас что? не было…( про F12 не = «Книга» strName2Переложил http://depositfiles.com/files/2lzpsx6t2
программами». предложено сохранить изменения макрос автоматически при
На вкладкеEnd Sub исходник (Или может один файл может скрипт какой-то мутить? String произошло что-то не Local; LocalLow; Roaming. низу окошка)-перейти-обзор Может доступ кRoman777 знал. = Application.GetSaveAsFilename(InitialFileName:=strName1, filefilter:=FilterList)Serge_007Documents and Settings в личной книге открытии книги.РазработчикPrivate Sub Workbook_Open() вообще в какую-то создаваться от 10beryaDim strDate As то. Файл надо Но когда яВнимание! этой папке закрыт?: Я создал вУважаемые администраторы, ответ If strName2 =: http://www.excelworld.ru/forum/2-639-7234-16-1311447819
находится по адресу макросов. Нажмите кнопкуПрежде чем начать, убедитесь,в группеSet app = общую папку, например минут до 8
: fairylive, String было глянул туда, мнеМакросы надстроек не Попробуйте переместить этот C:Program FilesMicrosoft Office получен, тему можно «False» Then MsgBoxГость C:UsersИмя пользователяAppDataRoamingMicrosoftШаблоны «Да», чтобы макрос что на ленте
Код Application на сервере с часов. Несколько днейДобрый день.
Application.ScreenUpdating = Falseсохранить как как-то не пришло
видны в списке файл куда-нибудь или 15rootoffice15xlstart эксельфайлик вручную. закрыть. prompt:=»Сохранение отменено», Title:=iTitle: подскажите пожалуйста, наУ меня там запускался при каждом доступна вкладканажмите кнопкуEnd Sub рэйдмассивом, чтобы повысить — исключительная редкость.Создаете файл personal.xlsbstrPath = ThisWorkbook.Path!
в голову куда доступных макросов (по переименовать, например в назвал personal.xls. ПриRoman777 Else ActiveWorkbook.SaveAs Filename:=strName2 компе нету папки лежит только Normal.dot запуске Excel.РазработчикБезопасность макросов
fairylive шансы выживания файлов). Но здесь тогда — помещаете егоIf Len(Dir(strPath &Разумеется никаких копий я могу там крайней мере, я PERSONAL111.xlsb открытой данной книге,
: Добрый день! End If End шаблоны? ( шаблон Ms Word.Каждый раз при запуске. Если ее нет,.: Всплыл БАГ. При
А то слишком пользователи сами создают в папку …..AppDataRoamingMicrosoftExcelXLSTART «_Резерв», vbDirectory)) = автосохранения не сохранилось. создать такую (XLSTART) их не увидела),
Roman777 вродебы я могуРаньше я мог Sub
IgorGoSerge_007 Excel автоматически будут выполните указанные нижеВ разделе работе с сетевыми много копий появляется резервные копии.В модуль сохраняете 0 Then MkDir Прошёлся recuva - папку. Там в т.е. запускать их: В папку через сохранять макросы в сохранять свои макросы,Вот только сохраняет: даже не знаю…: Для открываться книги, включенные действия.Параметры макросов файлами. В связи в текущей папке,krosav4igSub reserv() strPath & «_Резерв» пусто. Искал в основном временные файлы
можно только из сохранить как не личную книгу. Но не сохраняя файл он коректно только то-ли страна такая,
Excel 2003 в макрос.Откройте вкладкувыберите параметр с отсутствием админских если поставить это: В PERSONAL.XSLB в
Dim strPath AsOn Error Resume папке где лежит и кэш, мне
редактора VBA (Alt+F11). получается, права действительно когда уже закрываю в расширении .xlsm книги в формате то-ли еще чего:УПОРНЫЙФайл
Включить все макросы (не прав. Появляется ошибка дело на автомат модуль ЭтаКнига String Next сам файл и так кажется).
Личная книга словно ограничены. Но свой файл. Потом (По-моему, макросы сохранялись .xls (97-2003) и
— ничего наХранение стандартных шаблонов книг: Для поиска папкии выберите пункт рекомендуется, возможен запуск что нет прав
(имею ввиду еслиPrivate WithEvents app AsDim strDate Asx = GetAttr(strPath) в папке автосохранения
Manyasha: мне кажется Вы когда переношу файлик пытаюсь закрыть файл куда-то вне файла .xlsx (2007-2010), а месте не улежит. и листов автозагрузки (здесь яПараметры опасной программы) если попытаться сохранить. убрать всплывающее окно Application String And 0 Excel. В интернете: не ту папку с любого места Персонал с сохранением.
самого, поскольку в при попытке сохранить
может на соседнемЕсли шаблон с нашел мою Personal.xls), а затем —
, а затем нажмите Плюс в чужих с вопросом СделатьPrivate Sub app_WorkbookBeforeSave(ByValDim xIf Err = пишут что еслиRoman777 используете, положите Вашу в папку xlstart Он мне говорит, окошке выбора макросов книгу в .xlsb компьютере поискать именем добрые люди подсказали категорию кнопку папках появляется папка бэкап). Wb As Workbook,Dim FileNameXls 0 Then бы я перезаписал, посмотрела дома (стоит ЛКМ (или создайте) то проблем нет что либо путь была ссылка «…PERSONAL…Имя и .xlsm даетAlex_ST
Book.xlt макросНастроить лентуОК excel_bak даже еслиfairylive ByVal SaveAsUI As
Application.ScreenUpdating = FalsestrDate = Format(Now, его или удалил 8-ка), ЛКМ лежит
в вообще. не существует, либо макроса». Но при ошибку:: На Vista иилиMsgBox «Папка автозагрузки.. выбором было сохранить: Boolean, Cancel AsstrPath = ActiveWorkbook.Path «yyyy_mm_dd_hh-mm») — шансы бы здесь:C:Documents and SettingsUserApplication DataMicrosoftExcelXLSTARTManyasha файл используется где-то открытии любого файла
При ручном введении Win7: C:Users&&&&&AppDataRoamingMicrosoftШаблоны (&&&&&Sheet.xlt XLStart находится здесьВ разделеПредупреждение:
как.berya Boolean)
If Len(Dir(strPath &FileNameXls = strPath были. А так
excelworld.ru
Макрос автосохранения файлов Excel (Макросы/Sub)
C:Users\AppDataRoamingMicrosoftExcelXLSTART.: Попробуйте разобраться с системой, либо файл эксель на данном расширения — та — имя пользователя)создан и сохранен :» & _Настройка ленты Для защиты от запускаТак же при, сделал как выOn Error GoTo «_Резерв», vbDirectory)) = & «_Резерв» & ничего не поделаешь.Hugo
Если на счет правами, попросите системного с таким именем
компьютере, я мог
же ошибка.
Natrium
в папке
vbNewLine & Application.StartupPath,в поле потенциально опасных программ работе с сетевыми сказали — поместил er
0 Then MkDir Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) -Что-то подобное делается: У меня на папки я ошибаюсь, администратора открыть Вам уже существует (хотя сразу же безПодскажите пожалуйста какой: Доброго времени суток,XLStart , «»Основные вкладки после окончания работы
файлами появляются тормоза тоже в книгуDim LastSaved$, Backup$ strPath & «_Резерв» 5) & «_» в автокаде. Там семёрке тут: попробуйте удалить Вашу доступ на изменение в каталоге C:Program импорта увидеть и выход из этой уважаемые форумчане!, тоНо вновь созданный
установите флажок с макросами рекомендуется при закрытии файла.
Personal.xlsb (сейчас тамLastSaved = Wb.BuiltinDocumentProperties(«Last
On Error Resume
& strDate & всегда есть копияc:Program FilesMicrosoft OfficeOffice14XLSTARTPERSONAL.xlsb ЛКМ и создать
файла FilesMicrosoft Office 15rootoffice15xlstart воспользоваться макросом) ситуации.
Наперед извиняюсь, еслиMicrosoft Excel
и помещенный вРазработчик
вернуть настройки, отключающие Причём даже если только ваш код). Save Time») Next «.xlsb» — bak рядомRoman777 заново
Personal.xlsb только 1 файлСейчас же макросыP.S. И еще
оффтоп, шерстил форумиспользует его для
эту книгу шаблон. все макросы. просто зайти ничегоПосле открытия файла
Backup = Wb.Pathx = GetAttr(strPath)
ActiveWorkbook.SaveCopyAs Filename:=FileNameXls
с оригиналом. То
: Смотрел невнимательно, нашёл
Roman777.
Персонал- созданный мной).
сохраняются только если — как прописать
но не нашел. создания новых стандартных
Excel11.xlb (пробовал и
Нажмите кнопку
На вкладке не сделать (просто спотыкается на строчке & «» &
And 0Else
есть предыдущая копия папку, лежит она
:Или, как альтернативный
В общем, не я сохраняю в
по умолчанию какую-тоОчень надеюсь на книг (Загружаемая по Книга.xlt) не работает.ОКРазработчик
посмотреть) и выйти.
strPath = ActiveWorkbook.Path
Replace(LastSaved, «:», «.»)If Err =
MsgBox «Ошибка сохранения!!!!»,
файла до нажатия
тут: C:UsersOfice123AppDataRoamingMicrosoftExcelXLSTART. Удалил
Manyasha вариант, можно все получается сохранить файл
расширении .xlsm. папку, на которой вашу помощь вот
умолчанию книга. Новая Я пробовал вставить
.в группеUPD. Тормоза неПричем 1 раз & » « 0 Then vbCritical кнопки сохранить. Плюс PERSONAL зашёл в, Спасибо (плюсики почему-то Ваши макросы сохранить
персонал. А безМожно ли как-то
всегда будет открываться в такой ситуации. несохраненная книга, которая созданные мною шаблоныЧтобы при запуске ExcelКод связаны с макросом
открывает с ошибкой & Wb.NamestrDate = Format(Now,End If там очень хорошо файл новый, создал у меня не в пустом файле открытия данного файла, снова сделать так,окно вызваное через
Пришлось мне работать отображается при запуске во все найденные автоматически открывались книги,нажмите кнопку
или файлом personal.xlsb
второй раз нормально.If Wb Is
«yyyy_mm_dd_hh-mm»)
Application.ScreenUpdating = True продуманное автосохранение. Из макрос в личную ставятся).
как надстройку (расширение возникает та же
чтобы при открытии
Application.GetSaveAsFilename (например «Мои в одной учетной Microsoft Excel. Эта
на компьютере папки
выполните указанные ниже
Макросы - удалял его
Но бэкапы не Me Or Wb.IsAddin
FileNameXls = strPath
End Sub
темпа можно надёргать
книгу - создался
Действительно, при включении .xlam) и добавить проблема что описал любого экселевского файла
документы") программе, а там,
книга отображается, только папки XLStart.
действия..
и ничего не делаются.
Then Exit Sub & "_Резерв" &SLAVICK различные копии файла новый PERSONAL в макросов через надстройку,
ее в Эксель:
в сообщении №4.
не было необходимостиЮрий М
для удобства, любые
если в папку
Нельзя ли усовершенствовать
Откройте вкладкуВ поле менялось. При этом
fairylive
If Wb.FullName <>
Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) -
: Посмотрите на всякий
автосохранённые в разное
указанном ранее пути. макросы можно увидетьРазработчик-Надстройки-ОбзорManyasha заново импортировать макросы,
: А не пробовали данные можно выгрузить XLStart не помещены этот макрос чтобыРазработчик
Имя макроса файлы xlsx работают: Вот подправил - Wb.Name And Not 5) & «_» случай тут:
время в течении Сохранил я туда только в окне(найти Вашу надстройку): Назовите А сразу воспользоваться записать сохранение макрорекордером? в Excel. Очень другие книги.) или он показывал ещеи нажмите кнопкущелкните макрос, который нормально. xls при работает как я SaveAsUI And MsgBox(«Сделать & strDate &c:Users дня. макросы свои. Вроде редактора VBA. и поставить галочкуPERSONAL.XLSB ими?
Natrium полезная функция, скажу для вставки новых
и откуда ExcelЗапись макроса
нужно отредактировать. выходе подвисают секунд и хотел. Создаются бэкап?", 36) = ".xlsb"
ПОЛЬЗОВАТЕЛЬExcel 2013 русский
всё норм. Едиственное,
А что касается напротив нее.
, и сохранять нужно_Boroda_: Сохранял, только рекордер я вам, только листов. Папка
берет шаблон вновь.Нажмите кнопку
на 10. Возможно бэкапы Excel в 6 ThenActiveWorkbook.SaveCopyAs Filename:=FileNameXlsAppDataLocalMicrosoftOfficeUnsavedFiles
у меня если почему-то при запуске не той папки,Roman777
не всю Вашу: 1. Когда (если)
сохраняет файл с
вот по умолчанию
XLStart
создаваемой книги.В поле
Изменить
связано с последним
отдельную папку в
Shell Join(Array("cmd /c
Elseиногда сохраняются даже
что.
экселя, видимо, PERSONAL.xlsb
мне вообще не: книгу, а только записываете макрос (макрорекодером), каким-то одним расширением
книга с даннымиобычно находится в:Саня
Имя макроса, чтобы открыть редактор декабрьским обновлением винды.
той же папке copy ", Wb.FullName,MsgBox "Ошибка сохранения!!!!", сохраненные файлы.Мне видится такое
автоматически не запускается. нравится как записаласьManyasha PERSONAL.XLSB. то перед записью
(либо .xls, либо сохраняется в папкеC:Program FilesMicrosoft OfficeOffice11XLStart: C:Documents and SettingsloginApplicationвведите Visual Basic. В инете чувак где исходник. » «, Backup, vbCriticalА вообще - решение: Только если запущу моя лицензионная эксель-ка., В том тоRoman777 у Вас вываливается .xlsb), а я Temp, и изменитьДля использования файлов
DataMicrosoftШаблоныAuto_OpenСовет: один писал наPrivate WithEvents app As » /y»), «»»»)End If лучший способ отката
Открывается файл. этот файл вручную,
Исполнительный экзешник находится
и дело, у: окошко, там есть хочу чтобы был это никак не
шаблонов (с расширениемУПОРНЫЙ. Для получения справки во англоязычном форуме что ApplicationDo While Dir$(Backup)Application.ScreenUpdating = True
- всегда сохранятьСразу автоматом сохраняется
могу увидеть личную по пути C:Program меня админская учёткаManyasha пункт "Сохранить в"
выбор. возможно. В результате
XLT
:В списке
время работы в у него файлыPrivate Sub app_WorkbookBeforeSave(ByVal = ""
End Sub файлы как новые как файл.bak - книгу макросов в FilesMicrosoft Office 15rootoffice15,
(и единственная на, При попытке сохранить - выбираете там
Юрий М - одно неверное), хранящихся в сети,СаняСохранить в
редакторе Visual Basic офиса накрылись. Но Wb As Workbook,DoEvents
В модуль "Эта - с добавлением
причём без какого-то
экселе.
в папке office15
компьютере). Попробовал с PERSONAL.XLSB выскочила надпись
"Личная книга макросов"
: Так выбирайте при
"закрытие", и весь
это размещение указывается
,выберите пункт
в меню
я сейчас откатил ByVal SaveAsUI AsLoop книга» файла с текущей даты и участия пользователя.Roman777 уже находилась папка надстройками. Как конкретно «Файл PERSONAL.xlsb нельзя2. Уже записанные записи — там отчет канул в
в качестве дополнительнойВ этой папкеЛичная книга макросовСправка это обновление и Boolean, Cancel AsElseIf SaveAsUI Then которым Вы работаете
времени — потомЕсли файл открывается: Всем спасибо большое XLSRART. А вообще должна надстройка быть сохранить: он доступен макросы (или те, большой выбор: и Лету, да еще папки автозагрузки (Другая у меня пусто,.выберите команду тормоза не пропали. Boolean)MsgBox «Тут можноКодPrivate Sub Workbook_Open() легко можно откатится повторно а уже за участие. Пока
excelworld.ru
в Program files
Большинство пользователей Excel знают, как создать и использовать макрос внутри файла одной рабочей книги. В случаи, когда необходимо использовать тот же макрос в других файлах рабочих книг, тогда можно сохранить его в личной книге макросов. У нее всегда одно название – Personal.xlsb. Она всегда открывается при запуске программы Excel, только скрыто. Данная книга не является доступной по умолчанию в Excel, поэтому ее нужно сначала подключить.
Как сохранить макрос в личную книгу макросов
Чтобы создать и схоронить код в личной книге макросов:
- Выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Запись макроса».
- В появившемся диалоговом окне «Запись макроса», из выпадающего списка «Сохранить в:» выберите опцию «Личная книга макросов». И нажмите на кнопку OK.
- Теперь выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Остановить запись».
- Откройте редактор Visual Basic: «РАЗРАБОТЧИК»-«Код»-«Visual Basic». Или нажмите комбинацию горячих клавиш ALT+F11. В окне «Project-VBAProject», в дереве проектов появиться доступная еще одна книга Personal.xlsb. Кликните на «плюсик» слева на против этой книги, чтобы раскрыть проект книги Personal.xlsb. А после двойным щелчком отройте ее Module1.
- В результате откроется окно кода модуля с зарегистрированным макросом. Удалите его код и введите код своего макроса. Выберите инструмент в редакторе макросов: «File»-«Save Personal.xlsb», а потом закройте редактор Visual Basic.
Теперь у вас подключена скрытая книга для хранения макросов, к которым можно получить доступ из любой другой рабочей книги. Личная книга макросов где находится находиться в папке автозагрузки файлов Excel – XLSTART: C:Documents and SettingsUser_NameAppDataRoamingMicrosoftExcelXLSTARTPersonal.xlsb
Примечание. XLSTART – это папка для автозагрузки файлов вместе с запуском программы Excel. Если сохранить файл в данную папку, то он будет открываться вместе с программой Excel. Для версий старше 2007 путь к папке автозагрузки будет следующим: C:Program FilesMicrosoft OfficeOffice12Xlstart.
Если вам нужно записать в нее новый макрос просто откройте редактор, а потом откройте модуль книги Personal.xlsb. Уже записанные в нее макросы удалять не нужно. Они не будут между собой конфликтовать если соблюдать одно простое правило – в одном модуле нельзя хранить макросы с одинаковыми именами.
|
Где хранятся Шаблоны и макросы Excel |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
