Excel найти все макрос

Поиск какого-либо значения в ячейках Excel довольно часто встречающаяся задача при программировании какого-либо макроса. Решить ее можно разными способами. Однако, в разных ситуациях использование того или иного способа может быть не оправданным. В данной статье я рассмотрю 2 наиболее распространенных способа.

Поиск перебором значений

Довольно простой в реализации способ. Например, найти в колонке «A» ячейку, содержащую «123» можно примерно так:

Sheets("Данные").Select
For y = 1 To Cells.SpecialCells(xlLastCell).Row
    If Cells(y, 1) = "123" Then
        Exit For
    End If
Next y
MsgBox "Нашел в строке: " + CStr(y)

Минусами этого так сказать «классического» способа являются: медленная работа и громоздкость. А плюсом является его гибкость, т.к. таким способом можно реализовать сколь угодно сложные варианты поиска с различными вычислениями и т.п.

Поиск функцией Find

Гораздо быстрее обычного перебора и при этом довольно гибкий. В простейшем случае, чтобы найти в колонке A ячейку, содержащую «123» достаточно такого кода:

Sheets("Данные").Select
Set fcell = Columns("A:A").Find("123")
If Not fcell Is Nothing Then
    MsgBox "Нашел в строке: " + CStr(fcell.Row)
End If

Вкратце опишу что делают строчки данного кода:
1-я строка: Выбираем в книге лист «Данные»;
2-я строка: Осуществляем поиск значения «123» в колонке «A», результат поиска будет в fcell;
3-я строка: Если удалось найти значение, то fcell будет содержать Range-объект, в противном случае — будет пустой, т.е. Nothing.

Полностью синтаксис оператора поиска выглядит так:

Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)

What — Строка с текстом, который ищем или любой другой тип данных Excel

After — Ячейка, после которой начать поиск. Обратите внимание, что это должна быть именно единичная ячейка, а не диапазон. Поиск начинается после этой ячейки, а не с нее. Поиск в этой ячейке произойдет только когда весь диапазон будет просмотрен и поиск начнется с начала диапазона и до этой ячейки включительно.

LookIn — Тип искомых данных. Может принимать одно из значений: xlFormulas (формулы), xlValues (значения), или xlNotes (примечания).

LookAt — Одно из значений: xlWhole (полное совпадение) или xlPart (частичное совпадение).

SearchOrder — Одно из значений: xlByRows (просматривать по строкам) или xlByColumns (просматривать по столбцам)

SearchDirection — Одно из значений: xlNext (поиск вперед) или xlPrevious (поиск назад)

MatchCase — Одно из значений: True (поиск чувствительный к регистру) или False (поиск без учета регистра)

MatchByte — Применяется при использовании мультибайтных кодировок: True (найденный мультибайтный символ должен соответствовать только мультибайтному символу) или False (найденный мультибайтный символ может соответствовать однобайтному символу)

SearchFormat — Используется вместе с FindFormat. Сначала задается значение FindFormat (например, для поиска ячеек с курсивным шрифтом так: Application.FindFormat.Font.Italic = True), а потом при использовании метода Find указываем параметр SearchFormat = True. Если при поиске не нужно учитывать формат ячеек, то нужно указать SearchFormat = False.

Чтобы продолжить поиск, можно использовать FindNext (искать «далее») или FindPrevious (искать «назад»).

Примеры поиска функцией Find

Пример 1: Найти в диапазоне «A1:A50» все ячейки с текстом «asd» и поменять их все на «qwe»

With Worksheets(1).Range("A1:A50")
  Set c = .Find("asd", LookIn:=xlValues)
  Do While Not c Is Nothing
    c.Value = "qwe"
    Set c = .FindNext(c)
  Loop
End With

Обратите внимание: Когда поиск достигнет конца диапазона, функция продолжит искать с начала диапазона. Таким образом, если значение найденной ячейки не менять, то приведенный выше пример зациклится в бесконечном цикле. Поэтому, чтобы этого избежать (зацикливания), можно сделать следующим образом:

Пример 2: Правильный поиск значения с использованием FindNext, не приводящий к зацикливанию.

With Worksheets(1).Range("A1:A50")
  Set c = .Find("asd", lookin:=xlValues)
  If Not c Is Nothing Then
    firstResult = c.Address
    Do
      c.Font.Bold = True
      Set c = .FindNext(c)
      If c Is Nothing Then Exit Do
    Loop While c.Address <> firstResult
  End If
End With

В ниже следующем примере используется другой вариант продолжения поиска — с помощью той же функции Find с параметром After. Когда найдена очередная ячейка, следующий поиск будет осуществляться уже после нее. Однако, как и с FindNext, когда будет достигнут конец диапазона, Find продолжит поиск с его начала, поэтому, чтобы не произошло зацикливания, необходимо проверять совпадение с первым результатом поиска.

Пример 3: Продолжение поиска с использованием Find с параметром After.

With Worksheets(1).Range("A1:A50")
  Set c = .Find("asd", lookin:=xlValues)
  If Not c Is Nothing Then
    firstResult = c.Address
    Do
      c.Font.Bold = True
      Set c = .Find("asd", After:=c, lookin:=xlValues)
      If c Is Nothing Then Exit Do
    Loop While c.Address <> firstResult
  End If
End With

Следующий пример демонстрирует применение SearchFormat для поиска по формату ячейки. Для указания формата необходимо задать свойство FindFormat.

Пример 4: Найти все ячейки с шрифтом «курсив» и поменять их формат на обычный (не «курсив»)

lLastRow = Cells.SpecialCells(xlLastCell).Row
lLastCol = Cells.SpecialCells(xlLastCell).Column
Application.FindFormat.Font.Italic = True
With Worksheets(1).Range(Cells(1, 1), Cells(lLastRow, lLastCol))
  Set c = .Find("", SearchFormat:=True)
  Do While Not c Is Nothing
    c.Font.Italic = False
    Set c = .Find("", After:=c, SearchFormat:=True)
  Loop
End With

Примечание: В данном примере намеренно не используется FindNext для поиска следующей ячейки, т.к. он не учитывает формат (статья об этом: https://support.microsoft.com/ru-ru/kb/282151)

Коротко опишу алгоритм поиска Примера 4. Первые две строки определяют последнюю строку (lLastRow) на листе и последний столбец (lLastCol). 3-я строка задает формат поиска, в данном случае, будем искать ячейки с шрифтом Italic. 4-я строка определяет область ячеек с которой будет работать программа (с ячейки A1 и до последней строки и последнего столбца). 5-я строка осуществляет поиск с использованием SearchFormat. 6-я строка — цикл пока результат поиска не будет пустым. 7-я строка — меняем шрифт на обычный (не курсив), 8-я строка продолжаем поиск после найденной ячейки.

Хочу обратить внимание на то, что в этом примере я не стал использовать «защиту от зацикливания», как в Примерах 2 и 3, т.к. шрифт меняется и после «прохождения» по всем ячейкам, больше не останется ни одной ячейки с курсивом.

Свойство FindFormat можно задавать разными способами, например, так:

With Application.FindFormat.Font 
  .Name = "Arial" 
  .FontStyle = "Regular" 
  .Size = 10 
End With

Поиск последней заполненной ячейки с помощью Find

Следующий пример — применение функции Find для поиска последней ячейки с заполненными данными. Использованные в Примере 4 SpecialCells находит последнюю ячейку даже если она не содержит ничего, но отформатирована или в ней раньше были данные, но были удалены.

Пример 5: Найти последнюю колонку и столбец, заполненные данными

Set c = Worksheets(1).UsedRange.Find("*", SearchDirection:=xlPrevious)
If Not c Is Nothing Then
  lLastRow = c.Row: lLastCol = c.Column 
Else
  lLastRow = 1: lLastCol = 1
End If
MsgBox "lLastRow=" & lLastRow & " lLastCol=" & lLastCol

В этом примере используется UsedRange, который так же как и SpecialCells возвращает все используемые ячейки, в т.ч. и те, что были использованы ранее, а сейчас пустые. Функция Find ищет ячейку с любым значением с конца диапазона.

Поиск по шаблону (маске)

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

Пример 6: Выделить красным шрифтом ячейки, в которых текст начинается со слова из 4-х букв, первая и последняя буквы «т», при этом после этого слова может следовать любой текст.

With Worksheets(1).Cells
  Set c = .Find("т??т*", LookIn:=xlValues, LookAt:=xlWhole)
  If Not c Is Nothing Then
    firstResult = c.Address
    Do
      c.Font.Color = RGB(255, 0, 0)
      Set c = .FindNext(c)
      If c Is Nothing Then Exit Do
    Loop While c.Address <> firstResult
  End If
End With

Для поиска функцией Find по маске (шаблону) можно применять символы:
* — для обозначения любого количества любых символов;
? — для обозначения одного любого символа;
~ — для обозначения символов *, ? и ~. (т.е. чтобы искать в тексте вопросительный знак, нужно написать ~?, чтобы искать именно звездочку (*), нужно написать ~* и наконец, чтобы найти в тексте тильду, необходимо написать ~~)

Поиск в скрытых строках и столбцах

Для поиска в скрытых ячейках нужно учитывать лишь один нюанс: поиск нужно осуществлять в формулах, а не в значениях, т.е. нужно использовать LookIn:=xlFormulas

Поиск даты с помощью Find

Если необходимо найти текущую дату или какую-то другую дату на листе Excel или в диапазоне с помощью Find, необходимо учитывать несколько нюансов:

• Тип данных Date в VBA представляется в виде #[месяц]/[день]/[год]#, соответственно, если необходимо найти фиксированную дату, например, 01 марта 2018 года, необходимо искать #3/1/2018#, а не «01.03.2018»
• В зависимости от формата ячеек, дата может выглядеть по-разному, поэтому, чтобы искать дату независимо от формата, поиск нужно делать не в значениях, а в формулах, т.е. использовать LookIn:=xlFormulas

Приведу несколько примеров поиска даты.

Пример 7: Найти текущую дату на листе независимо от формата отображения даты.

d = Date
Set c = Cells.Find(d, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not c Is Nothing Then
  MsgBox "Нашел"
Else
  MsgBox "Не нашел"
End If

Пример 8: Найти 1 марта 2018 г.

d = #3/1/2018#
Set c = Cells.Find(d, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not c Is Nothing Then
  MsgBox "Нашел"
Else
  MsgBox "Не нашел"
End If

Искать часть даты — сложнее. Например, чтобы найти все ячейки, где месяц «март», недостаточно искать «03» или «3». Не работает с датами так же и поиск по шаблону. Единственный вариант, который я нашел — это выбрать формат в котором месяц прописью для ячеек с датами и искать слово «март» в xlValues.

Тем не менее, можно найти, например, 1 марта независимо от года.

Пример 9: Найти 1 марта любого года.

d = #3/1/1900#
Set c = Cells.Find(Format(d, "m/d/"), LookIn:=xlFormulas, LookAt:=xlPart)
If Not c Is Nothing Then
  MsgBox "Нашел"
Else
  MsgBox "Не нашел"
End If

Хитрости »

1 Май 2011              465074 просмотров

Что такое макрос и где его искать?

Скачать файл, используемый в видеоуроке:

  Tips_Macro_Basic_Video.xls (63,5 KiB, 4 004 скачиваний)

Наверное, многие слышали это слово «макрос«, но не все имеют точное представление что это, если заглянули на эту страничку.

Макрос

— это макрокоманда(так звучит в правильном переводе с англ.языка), содержащая последовательность действий, записанных пользователем. Запись производится с помощью встроенного в пакет Microsoft Office языка программирования — Visual Basic for Application(VBA).

Зачем же нужны макросы? А нужны они для того, чтобы избавить Вас от рутинного выполнения одних и тех же действий. Например, Вам каждый день приходиться удалять из ежедневных отчетов по несколько столбцов и добавлять новые строки для шапки и т.п. Скучно и утомительно. Вы просто можете записать один раз все эти действия макрорекордером, а в дальнейшем только вызывать записанный макрос и он все сделает за Вас. Что немаловажно, для использования макрорекордера и записи макроса не надо обладать никакими навыками программирования.
В этой статье:

• Подготовка к записи макроса
• Запись макроса
• Параметры записи макроса
• Воспроизведение макроса
• В каких файлах можно хранить макросы?

• Excel 2003:
  Сервис-Безопасность-Уровень макросов «Низкий»
• Excel 2007:
  Кнопка Офис—Параметры Excel (Excel Options)—Центр управления безопасностью (Trust Centr)—Параметры центра управления безопасностью (Trust Centr Settings)—Параметры макросов (Macro Settings)—Разрешить все макросы (Enable All Macros)
• Excel 2010:
  Файл (File)—Параметры (Options)—Центр управления безопасностью (Trust Centr)—Параметры центра управления безопасностью (Trust Centr Settings)—Параметры макросов (Macro Settings)—Разрешить все макросы (Enable All Macros)

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

Прежде чем начать записывать макрос необходимо помнить следующее:

• Макрорекордер записывает АБСОЛЮТНО ВСЕ ваши действия – ошибки, прокручивание экрана, переключение между листами, выделение ячеек и т.д. Поэтому перед записью своих действий необходимо сначала тщательно продумать все свои действия, чтобы в дальнейшем записать только то, что действительно необходимо записать и в дальнейшем воспроизвести. Это сократит как сам код, так и время его выполнения
• Макрорекордер записывает действия выполненные только в пределах Microsoft Excel. Если вы переключитесь в другое приложение – действия в этой программе записаны не будут. Если закроете Excel – запись прекратится
• Макрорекордер может записать только те действия, которые можно проделать вручную(те, которые доступны для выполнения из меню и с панелей)
• Если во время кода вы совершили ошибочное действие и нажали кнопку отмены(Ctrl+Z) – отмененное действие не будет записано в макрос, как будто вы его просто не делали

Для пользователей Excel 2007-2010 и старше:

• Эта книга (This Workbook) – макрос будет записан в той же книге, из которой была запущена запись. Записанный макрос будет доступен из приложения только если книга открыта
• Новая книга (New Workbook) – будет создана новая книга, в которой записан макроса. Записанный макрос будет доступен из приложения только если книга открыта
• Личная книга макросов (Personal Macro Workbook) – самый интересный вариант. Если его выбрать, то макрос будет сохранен в отдельной книге PERSONAL.XLS (для Excel 2007 и выше — PERSONAL.XLSB). Макросы, записанные в эту книгу доступны из всех открытых книг Excel и эта книга подключается автоматически при запуске самого Excel. Т.е. однажды записав где-то макрос в эту книгу – он теперь будет доступен из любой книги независимо от того, открыта ли книга, из которой был записан макрос или нет. Изначально эта книга отсутствует и создается в момент первого обращения к ней (т.е. как только вы первый раз выбрали Сохранить в личную книгу макросов)

1. ПРИ ПОМОЩИ СОЧЕТАНИЯ КЛАВИШ: Alt+F8
   Этот способ универсальный и его можно использовать из любой версии Excel. Достаточно нажать сочетание клавиш Alt+F8 и выбрать нужный макрос из списка:
   
2. ВЫЗОВ ИЗ МЕНЮ:
   Excel 2007-2010 и старше: вкладка Разработчик (Developer)→ Макросы (Macros)
   Excel 2003: Сервис→ Макрос→ Макросы
3. НАЖАТИЕМ СОБСТВЕННОЙ КНОПКИ НА ЛИСТЕ:
   Можно разместить на листе собственную кнопку, по нажатии которой будет запускаться записанный макрос. Подробно этот процесс я описал в статье: Как создать кнопку для вызова макроса на листе
4. ПРИ ПОМОЩИ НАЗНАЧЕННЫХ МАКРОСУ ГОРЯЧИХ КЛАВИШ:
   Если вы перед записью назначили макросу сочетание клавиш, то вы также можете вызвать этот макрос и нажатием данного сочетания. Горячие клавиши макросу можно назначить и после записи: Alt+F8→ Выделяем нужный макрос→ Параметры (Options).
5. ПРИ НАСТУПЛЕНИИ ОПРЕДЕЛЕННОГО СОБЫТИЯ В ЛИСТЕ ИЛИ КНИГЕ:

   Прежде чем пробовать использовать этот метод рекомендуется изучить статью Что такое модуль? Какие бывают модули?Для этого сначала необходимо вставить код макроса в тело событийной процедуры (подробнее про событийные процедуры). Например, если выбрать процедуру листа Change, то в лист автоматически будет вставлена пустая процедура:

   Private Sub Worksheet_Change(ByVal Target As Range)
    
   End Sub

   Если ранее вами был записан код выделения и удаления двух столбцов – Макрос1:

   Sub Макрос1()
   '
   ' Макрос1 Макрос
   ' макрос удаляет столбцы C и D из активного листа
   '
   ' Сочетание клавиш: Ctrl+Shift+Q
   '
       Columns("C:D").Select
       Selection.Delete Shift:=xlToLeft
   End Sub

   То для выполнения это кода при наступлении события изменения на листе можно вставить вызов этого макроса:

   Private Sub Worksheet_Change(ByVal Target As Range)
       Call Макрос1
   End Sub

   или вставить сам код (без Sub и End Sub) внутрь процедуры Worksheet_Change:

   Private Sub Worksheet_Change(ByVal Target As Range)
       Columns("C:D").Select
       Selection.Delete Shift:=xlToLeft
   End Sub

• *.xls – формат книги Excel 97–2003 (поддержка VBA, макросов)
• *.xla – надстройка Excel 97–2003 (поддержка VBA, макросов)
• *.xlsx – формат книги Excel 2007 по умолчанию без поддержки макросов
• *.xlsm – книга Excel 2007 с поддержкой макросов
• *.xlsb – двоичный формат для больших объемов данных (с поддержкой VBA, макросов)
• *.xltx – шаблон книги Excel 2007 без поддержки макросов
• *.xltm – шаблон книги Excel 2007 с поддержкой макросов
• *.xlam – надстройка Excel 2007

Для смены формата файла его необходимо сохранить в другом формате:

• Excel 2007: Кнопка Офис —Сохранить как(SaveAs) -Выбрать необходимый формат файла
• Excel 2010: Файл(File) —Сохранить как(SaveAs) -Выбрать необходимый формат файла

Теперь несложно понять, что хранить макросы в версиях Excel 2007 и выше можно в форматах: xls, xla, xlsm, xlsb, xltm, xlsm.

Также см.:
Почему не работает макрос?
Как создать кнопку для вызова макроса на листе?
Select и Activate — зачем нужны и нужны ли?
Как ускорить и оптимизировать код VBA

Статья помогла? Поделись ссылкой с друзьями!

    Видеоуроки

Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

Редактирование макроса

​Смотрите также​​On Error GoTo​ чего-то написать»​With ThisWorkbook​ на нужный вариант(дату)​ файл.bak есть то​ буду вручную запускать,​ находится ещё 1​ сохранена? Я создал​ только для чтения.​ которые пишете вручную)​ xlsx, xlsm, xlsb…​ и имя книги​ папка автозагрузки. Папка,​ но я попробовал​После этого макрос будет​Справка Microsoft Visual Basic​Примечание:​ er​End If​Application.Run («personal.xlsb!reserv»)​ лишнее — просто​

​ пусть создается файл1.bak​ найду способ решения​ попка Microsoft Office,​ новую книгу, зашёл​

​ Чтобы сохранить изменения,​​ кладите в файл​Natrium​ — рандомный набор​ дополняющая стандартную папку​

Изменение параметров безопасности макросов

​ туда вставить шаблоны​ доступен при каждом​или нажмите клавишу​

1. ​Мы стараемся как​​Dim LastSaved$, Backup$​​er:​​End With​​ удаляете.​​Ну либо как-то​​ — отпишу.​

   

2. ​ но в ней​​ туда в макросы,​​ сохраните книгу с​​ Персонал. Жмите Альт+F11​: Пробовал, выбирал, там​ символов — попробуй​​ автозагрузки XLStart, содержащую​ *.xlb и *.xlt​​ открытии Excel.​​ F1.​

   ​ можно оперативнее обеспечивать​​LastSaved = Wb.BuiltinDocumentProperties(«Last​End Sub​End Sub​Тут есть пример​ ещё.​Manyasha​

Редактирование макроса

1. ​ непонятная мне лабуда.​​ скопировал все макросы​​ новым именем или​​ — Контрл+R -​​ тип файла прописывается​​ разбери где что.​​ книги или другие​

2. ​ результата нет.​​Чтобы было проще вспомнить,​​Примечание:​ вас актуальными справочными​

3. ​ 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 MkDir​End Sub​ рабочего файла создается​

1. ​ причинам), и потом​​ особо сложная. ДУмаю​​ вроде бы такая​​ не в Program​​ где мне нужны​ действительно только чтение​​ и кладите в​​ вставке в код,​

2. ​ аналогичный пункту меню​​ и шаблоны, которые​​ и будут по​​Описание​​ материалами на вашем​​ ее текст может​​ (Wb.Path & «excel_bak»)​

3. ​и перезапустить Excel​​ резервная копия файла.​​ работавший долгое время​

​ и сам бы​ же проблема​ Files (x86).​ макросы. Там зашёл​

1. ​ и чтение и​​ него все то,​​ или я как-то​​ «Сохранить как…», зачем​​ должны быть доступны​

1. ​ умолчанию​​. Можно также оставить​​ языке. Эта страница​​ содержать неточности и​​Backup = Wb.Path​

2. ​fairylive​​Только обратите внимание​​ файл может просто​​ справился. Но пока​​fairylive​

3. ​Спасибо большое за​ в параметры-надстройки (у​ выполнение стоит галочка​

4. ​ что нужно. Если​ не так его​ спросите? Да для​ при создании книг.).​​УПОРНЫЙ​​ это поле пустым.​ переведена автоматически, поэтому​

5. ​ грамматические ошибки. Для​​ & «excel_bak» &​​:​

6. ​ на расширение файла​​ перестать открываться т.е.​​ не понимаю как​​: Всем привет! У​​ помощь!​ себя вкладку Разработчик​ во вкладке «безопастность».​ Персонала нет, то​ прописал…​ того чтобы можно​УПОРНЫЙ​:​Нажмите кнопку​ ее текст может​

7. ​ нас важно, чтобы​​ Replace(LastSaved, «:», «.»)​​krosav4ig​​ — у меня​​ RIP.​

8. ​ добавить такое событие​ меня случился нереальный​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,Книга Excel​Serge_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 strName1​Serge_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_007​Documents and Settings​ в личной книге​ открытии книги.​Разработчик​Private Sub Workbook_Open()​ вообще в какую-то​ создаваться от 10​berya​Dim 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.xlsb​strPath = 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​

​IgorGo​​Serge_007​​ Excel автоматически будут​​ выполните указанные ниже​В разделе​ работе с сетевыми​ много копий появляется​ резервные копии.​В модуль сохраняете​ 0 Then MkDir​ Прошёлся recuva -​ папку. Там в​ т.е. запускать их​: В папку через​ сохранять макросы в​ сохранять свои макросы,​Вот только сохраняет​: даже не знаю…​: Для​ открываться книги, включенные​ действия.​Параметры макросов​ файлами. В связи​ в текущей папке,​krosav4ig​Sub reserv()​ strPath & «_Резерв»​ пусто. Искал в​ основном временные файлы​

​ можно только из​​ сохранить как не​​ личную книгу. Но​​ не сохраняя файл​ он коректно только​ то-ли страна такая,​
​Excel 2003​​ в макрос.​Откройте вкладку​​выберите параметр​​ с отсутствием админских​ если поставить это​: В PERSONAL.XSLB в​
​Dim strPath As​On Error Resume​ папке где лежит​ и кэш, мне​
​ редактора VBA (Alt+F11).​​ получается, права действительно​ когда уже закрываю​ в расширении .xlsm​ книги в формате​ то-ли еще чего​:​УПОРНЫЙ​Файл​
​Включить все макросы (не​​ прав. Появляется ошибка​ дело на автомат​ модуль ЭтаКнига​ String​ Next​​ сам файл и​​ так кажется).​
​Личная книга​ словно ограничены. Но​ свой файл. Потом​ (По-моему, макросы сохранялись​ .xls (97-2003) и​

​ — ничего на​​Хранение стандартных шаблонов книг​​: Для поиска папки​​и выберите пункт​ рекомендуется, возможен запуск​ что нет прав​
​ (имею ввиду если​Private WithEvents app As​Dim strDate As​x = GetAttr(strPath)​ в папке автосохранения​
​Manyasha​: мне кажется Вы​ когда переношу файлик​ пытаюсь закрыть файл​ куда-то вне файла​ .xlsx (2007-2010), а​ месте не улежит.​ и листов​ автозагрузки (здесь я​Параметры​ опасной программы)​ если попытаться сохранить.​ убрать всплывающее окно​ Application​ String​ And 0​ Excel. В интернете​:​ не ту папку​ с любого места​ Персонал с сохранением.​
​ самого, поскольку в​ при попытке сохранить​

​может на соседнем​​Если шаблон с​ нашел мою Personal.xls)​, а затем —​

​, а затем нажмите​​ Плюс в чужих​​ с вопросом Сделать​​Private Sub app_WorkbookBeforeSave(ByVal​Dim x​If 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 = False​​strDate = Format(Now,​ его или удалил​​ 8-ка), ЛКМ лежит​

​ в​​ вообще.​ не существует, либо​ макроса». Но при​ ошибку:​: На Vista и​или​MsgBox «Папка автозагрузки​.​.​ выбором было сохранить​:​ Boolean, Cancel As​strPath = ActiveWorkbook.Path​ «yyyy_mm_dd_hh-mm»)​ — шансы бы​ здесь:​C:Documents and SettingsUserApplication DataMicrosoftExcelXLSTART​Manyasha​ файл используется где-то​ открытии любого файла​

​При ручном введении​​ 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.Path​x = GetAttr(strPath)​
​ActiveWorkbook.SaveCopyAs Filename:=FileNameXls​
​ с оригиналом. То​
​: Смотрел невнимательно, нашёл​
​Roman777​.​
​ Персонал- созданный мной).​
​ сохраняются только если​ — как прописать​
​ но не нашел.​ создания новых стандартных​
​ Excel11.xlb (пробовал и​
​Нажмите кнопку​
​На вкладке​ не сделать (просто​ спотыкается на строчке​ & «» &​
​ And 0​Else​
​ есть предыдущая копия​ папку, лежит она​
​:​Или, как альтернативный​
​ В общем, не​ я сохраняю в​
​ по умолчанию какую-то​Очень надеюсь на​ книг (Загружаемая по​ Книга.xlt) не работает.​ОК​Разработчик​
​ посмотреть) и выйти.​
​strPath = ActiveWorkbook.Path​
​ Replace(LastSaved, «:», «.»)​If Err =​
​MsgBox «Ошибка сохранения!!!!»,​
​ файла до нажатия​
​ тут: C:UsersOfice123AppDataRoamingMicrosoftExcelXLSTART. Удалил​

​Manyasha​​ вариант, можно все​ получается сохранить файл​
​ расширении .xlsm.​​ папку, на которой​​ вашу помощь вот​
​ умолчанию книга. Новая​ Я пробовал вставить​
​.​в группе​UPD. Тормоза не​Причем 1 раз​ & » «​ 0 Then​ vbCritical​ кнопки сохранить. Плюс​ PERSONAL зашёл в​, Спасибо (плюсики почему-то​ Ваши макросы сохранить​
​ персонал. А без​Можно ли как-то​
​ всегда будет открываться​ в такой ситуации.​ несохраненная книга, которая​ созданные мною шаблоны​Чтобы при запуске Excel​Код​ связаны с макросом​

​ открывает с ошибкой​​ & Wb.Name​strDate = 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 Then​ActiveWorkbook.SaveCopyAs Filename:=FileNameXls​AppDataLocalMicrosoftOfficeUnsavedFiles​
​ у меня если​ почему-то при запуске​ не той папки,​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​ лучший способ отката​
​Открывается файл.​ этот файл вручную,​
​ Исполнительный экзешник находится​
​ и дело, у​:​ окошко, там есть​ хочу чтобы был​ это никак не​

​ шаблонов (с расширением​​УПОРНЫЙ​.​ Для получения справки во​ англоязычном форуме что​ Application​Do 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 As​Loop​ книга» файла с​ текущей даты и​ участия пользователя.​Roman777​ уже находилась папка​ надстройками. Как конкретно​ «Файл PERSONAL.xlsb нельзя​2. Уже записанные​ записи — там​ отчет канул в​
​ в качестве дополнительной​В этой папке​Личная книга макросов​Справка​ это обновление и​ Boolean, Cancel As​ElseIf SaveAsUI Then​ которым Вы работаете​
​ времени — потом​Если файл открывается​: Всем спасибо большое​ XLSRART. А вообще​ должна надстройка быть​ сохранить: он доступен​ макросы (или те,​ большой выбор: и​ Лету, да еще​ папки автозагрузки (Другая​ у меня пусто,​.​выберите команду​ тормоза не пропали.​ Boolean)​MsgBox «Тут можно​КодPrivate Sub Workbook_Open()​ легко можно откатится​ повторно а уже​ за участие. Пока​

excelworld.ru

​ в Program files​