Удалить макрос от кнопки excel

Сейчас буду пробовать, а вот и код, спасибо за пояснение про копирование!!!  

  Sub СохранитьЛистВФайл()  
On Error Resume Next  
‘ название подпапки, в которую по-умолчанию будет предложено сохранить файл в данном случае это папка Акты  
Const REPORTS_FOLDER = «Акты»  
‘ создаём папку для файла, если её ещё нет  
MkDir ThisWorkbook.Path & «» & REPORTS_FOLDER  
‘ выбираем стартовую папку  
ChDrive Left(ThisWorkbook.Path, 1): ChDir ThisWorkbook.Path & «» & REPORTS_FOLDER  

  ‘устанавливаем ячейку имя которой автоматически будет прописываться в названии файла при сохранении  
With Workbooks(«модификация.xls»).Sheets(«акт»)  
Имя_для_сохранения = .[a1] ‘Формируем имя, можем его сцепить из нескольких ячеек прописав вместо .[a1]
‘значения .[хх] & «_» & .[хх], где [хх] номер ячейки в которой находится информация для сцепки
End With  
‘ вывод диалогового окна для запроса имени сохраняемого файла  
Filename = Application.GetSaveAsFilename(InitialFileName:=Имя_для_сохранения, _  
FileFilter:=»Excel Files (*.xls), *.xls»)  
If VarType(Filename) = vbBoolean Then Exit Sub  

  ‘ копируем активный лист (при этом создаётся новая книга)  
Err.Clear: ActiveSheet.Copy: DoEvents  
If Err Then Exit Sub    ‘ произошла какая-то ошибка при попытке копирования листа  

  ‘ убеждаемся, что активной книгой является копия листа  
If ActiveWorkbook.Worksheets.Count = 1 And ActiveWorkbook.Path = «» Then  

     ‘эта строка убирает из документа все формулы  
With ActiveSheet.UsedRange  
.Value = .Value  
End With ‘окончание функции  

         ‘удаление макроса с сохраняемого листа целиком  

  ActiveSheet.Shapes(«Сохранить и отправить в печать»).Delete  

    ‘ сохраняем файл под заданным именем в формате Excel 2003  
ActiveWorkbook.SaveAs Filename, xlWorkbookNormal  
ActiveWorkbook.Selection.SpecialCells(xlFormulas).ClearContents  

           ‘With ActiveSheet.PrintOut ‘ выводим лист на печать(убрать одинарные ковычки перед командами)  
‘End With  

         ‘ закрываем сохранённый файл  
‘ (удалите следующую строку, если закрывать созданный файл не требуется)  
ActiveWorkbook.Close False  
End If  
End Sub

Is this article up to date?

Была ли эта статья полезной?

Создание и удаление макросов

Ниже описывается создание и удаление макроса в Excel 2013 и 2016.

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

1. Если вкладка Разработчик недоступна, выполните следующие действия для ее отображения:

1. Откройте вкладку Файл.
2. Нажмите кнопку Параметры и выберите команду Настройка ленты.
3. В категории Настройка ленты в списке Основные вкладки установите флажок Разработчик, а затем нажмите кнопку ОК.

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

1. На вкладке Разработчик в группе Код нажмите кнопку Безопасность макросов.
2. В группе Параметры макросов выберите переключатель Включить все макросы (не рекомендуется, возможен запуск опасной программы), а затем дважды нажмите кнопку ОК.

   ВНИМАНИЕ : Для предотвращения запуска потенциально опасного кода по завершении работы с макросами рекомендуется вернуть параметры, отключающие все макросы.

   Нравится? Поделись с друзьями в социальных сетях, нажми поделиться

   

   1. На вкладке Разработчик в группе Код нажмите кнопку Запись макроса.
   2. В поле Имя введите имя макроса .

   ПРИМЕЧАНИЕ : Первым символом имени макроса должна быть буква. Последующие символы могут быть буквами, цифрами или знаками подчеркивания. В имени макроса не допускаются пробелы; в качестве разделителей слов следует использовать знаки подчеркивания. Если используется имя макроса, являющееся ссылкой на ячейку, может появиться сообщение об ошибке, указывающее на недопустимое имя макроса.

3. Чтобы назначить сочетание клавиш с клавишей CTRL для запуска макроса, в поле Сочетание клавиш введите любую строчную или прописную букву.Выбранное сочетание клавиш заменяет все совпадающие стандартные сочетания клавиш Excel на то время, пока открыта книга, содержащая данный макрос.

1. В поле Сохранить в выберите книгу, в которой нужно сохранить макрос.Если вам нужно, чтобы данный макрос был всегда доступен при работе в Excel, выберите вариант Личная книга макросов. При выборе этого варианта создается скрытая личная книга макросов (Personal.xlsb) (если она еще не существует), в которой сохраняется данный макрос. В Windows 7 и Windows Vista эта книга сохраняется в папке C:Usersимя_пользователяApplication DataMicrosoftExcelXLStart. В Microsoft Windows XP эта книга сохраняется в папке C:Documents and Settingsимя_пользователяApplication DataMicrosoftExcelXLStart, откуда она будет автоматически загружаться при каждом запуске приложения Excel. Если вы хотите автоматически выполнять макрос из личной книги в другой книге, следует также сохранить эту книгу в папке XLStart, чтобы при запуске Excel открывались обе книги.
2. Введите описание макроса в поле Описание.
3. Для начала записи макроса нажмите кнопку ОК.
4. Выполните действия, которые нужно записать.
5. На вкладке Разработчик в группе Код нажмите кнопку Остановить запись.

Создание макроса с помощью VBA

1. На вкладке Разработчик в группе Код нажмите кнопку Visual Basic.
2. При необходимости в меню Insert выберите команду Module.

ПРИМЕЧАНИЕ : Модули будут созданы автоматически для всех листов книги.

В окне программы модуля введите или скопируйте нужный текст макроса.

Для запуска макроса из окна модуля нажмите клавишу F5.

Когда макрос будет создан, в меню File выберите команду Close and Return to Microsoft Excel.

Нравится? Подпишись на рассылку полезных советов от prodma.ru

1. Откройте книгу, содержащую макрос, который нужно скопировать.
2. На вкладке Разработчик в группе Код нажмите кнопку Макросы.
3. В поле Имя выберите имя макроса, который нужно скопировать.
4. Нажмите кнопку Изменить.
5. В окне редактора Visual Basic выделите строки макроса, которые нужно скопировать.

СОВЕТ : Чтобы скопировать макрос целиком, включите в выделенную часть строки Sub и End Sub.

Выберите в меню Правка команду Копировать.

В поле Procedure окна кода выберите модуль, куда нужно поместить текст.

Выберите в меню Правка команду Вставить.

Личную книгу макросов (файл Personal.xls) редактировать нельзя, поскольку она является скрытой книгой, которая всегда открыта. Сначала ее следует отобразить с помощью команды Показать. Этот файл также можно открыть в редакторе Visual Basic, нажав клавиши ALT+F11.

Назначение макроса объекту, графическому объекту и элементу управления

1. Щелкните на листе правой кнопкой мыши объект, графический объект или элемент управления, которому нужно назначить существующий макрос, а затем в контекстном меню выберите команду Назначить макрос.
2. В поле Имя выберите макрос, который нужно назначить.

Создание, выполнение, изменение и удаление макроса в Office для Mac

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

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

В Word 2016 для Mac можно создать макрос с сочетанием клавиш, запустить макрос и удалить макрос, который больше не нужен.

В меню Вид последовательно выберите пункты Макросы и Записать макрос.

Введите имя макроса или примите имя по умолчанию, предлагаемое Word.

Чтобы использовать этот макрос во всех новых документах, убедитесь в том, что в списке Сохранить макрос в выбран пункт Все документы (Обычный).

Нажмите кнопку Клавиатура, чтобы назначить макросу сочетание клавиш.

В Word откроется диалоговое окно Настройка клавиатуры.

Введите сочетание клавиш в поле Нажмите новое сочетание клавиш.

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

Если выбранное сочетание клавиш уже назначено, удалите его в поле Нажмите новое сочетание клавиш и выберите другое сочетание.

Найдя свободное сочетание клавиш, переходите к следующему шагу.

Чтобы использовать это сочетание клавиш во всех новых документах, убедитесь в том, что в поле Сохранить изменения в выбран глобальный шаблон Normal.dotm.

Нажмите кнопку Назначить.

Когда вы будете готовы к записи макроса, нажмите кнопку ОК.

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

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

Чтобы остановить запись, в меню Вид последовательно выберите пункты Макросы и Остановить запись.

Запустить макрос можно с помощью назначенного ему сочетания клавиш или из списка Макросы.

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

В списке Имя макроса выберите макрос, который хотите запустить.

Нажмите кнопку Запустить.

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

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

В списке содержится имя документа, открытого в текущем окне, а также глобальный шаблон и команды Word.

В поле Имя макроса выберите макрос, который нужно удалить, а затем щелкните значок минуса под списком.

Когда в Word появится подтверждение на удаление макроса, нажмите кнопку Да.

В Excel 2016 для Mac можно создать макрос с сочетанием клавиш, запустить макрос и удалить макрос, который больше не нужен.

При записи макроса все необходимые действия записываются средством записи макроса. Такими действиями может быть ввод текста или чисел, выбор ячеек или команд на ленте или в меню, форматирование, выделение ячеек, строк или столбцов, а также выделение ячеек путем перетаскивания указателя мыши.

Примечание: Команды для записи, создания и удаления макросов, а также другие дополнительные функции также доступны на вкладке » разработчик » на ленте. Дополнительные сведения об использовании вкладки «Разработчик» можно найти в разделе Использование вкладки «Разработчик» для создания и удаления макроса в Excel 2016 для Mac.

Выберите Сервис _гт_ макрос _гт_ запись New.

В поле Имя макроса укажите имя макроса.

Чтобы создать сочетание клавиш для макроса, введите букву в поле Option + cmd .

Выберите расположение макроса в раскрывающемся списке.

Как удалить макросы в книге?

Рано или поздно у разработчиков возникает вопрос: как удалить макросы, в том числе и из книги, в которой эти макросы расположены? Да еще так, чтобы об этом никто ничего не узнал?

Для изменения кодов программно необходимо, чтобы было проставлено доверие к объектной модели проекта VBA и изменяемый проект не должен быть защищен. Подробнее читайте в статье: Что необходимо для внесения изменений в проект VBA(макросы) программно
Без этого будет невозможно программное вмешательство в проект VBA.

УДАЛИТЬ ВСЕ МАКРОСЫ ИЗ АКТИВНОЙ КНИГИ

Sub Delete_Macroses() Dim oVBComponent As Object, lCountLines As Long ‘Проверяем, защищен проект или нет If ActiveWorkbook.VBProject.Protection = 1 Then MsgBox «VBProject выбранной книги защищён.» & vbCrLf & _ » Компоненты не будут удалены.», vbExclamation, «Отмена выполнения» Exit Sub End If For Each oVBComponent In ActiveWorkbook.VBProject.VBComponents On Error Resume Next With oVBComponent Select Case .Type Case 1 ‘Модули .Collection.Remove oVBComponent Case 2 ‘Модули Класса .Collection.Remove oVBComponent Case 3 ‘Формы .Collection.Remove oVBComponent Case 100 ‘ЭтаКнига, Листы lCountLines = .CodeModule.CountOfLines .CodeModule.DeleteLines 1, lCountLines End Select End With Next Set oVBComponent = Nothing End Sub

Так же можно удалить макросы только из одного компонента(листа или книги или модуля).

УДАЛИТЬ ОТДЕЛЬНЫЙ МОДУЛЬ(Module), ФОРМУ(UserForm) КОД ЛИСТА ИЛИ КНИГИ
Удалить модуль/форму целиком достаточно просто:

ActiveWorkbook.VBProject.VBComponents(«UserForm1»).Collection.Remove ActiveWorkbook.VBProject.VBComponents(«UserForm1») ActiveWorkbook.VBProject.VBComponents(«Module1»).Collection.Remove ActiveWorkbook.VBProject.VBComponents(«Module1»)

С листами несколько сложнее — если удалить компонент полностью, то будут потеряны и все данные на листе, а не только макросы. Поэтому удалять необходимо только код внутри листа. В качестве примера возьмем Лист1:

Sub Delete_Macroses_In_One_Comp() Dim oVBComponent As Object, lCountLines As Long Set oVBComponent = ActiveWorkbook.VBProject.VBComponents(«Лист1») With oVBComponent lCountLines = .CodeModule.CountOfLines .CodeModule.DeleteLines 1, lCountLines End With Set oVBComponent = Nothing End Sub

Здесь тоже есть небольшая поправка: Лист1 — это кодовое(внутреннее имя) листа. На ярлычке имя листа может отображаться как угодно, а вот внутренее. Его можно лучше подглядеть через редактор VBA:

Чтобы удалить коды из модуля книги необходимо вместо Лист1 указать ЭтаКнига(для англ.версии — ThisWorkbook).

УДАЛИТЬ ПРОЦЕДУРУ ИЗ ТЕЛА МОДУЛЯ
Если же Вам необходимо удалить лишь определенную процедуру из модуля формы, стандартного модуля, модуля листа или книги, то сделать это чуть сложнее. Рассмотрим на примере удаления процедуры с именем «Code2» , расположенной в стандартном модуле «Module2»

Sub Delete_Sub_From_Module() Dim lCountLines As Long, li As Long, lStartLine As Long, lProcLineCount As Long Dim sCodeName As String, sProcName As String With ActiveWorkbook.VBProject.VBComponents(«Module2») ‘получаем кол-во строк кода в модуле lCountLines = .CodeModule.CountOfLines ‘получаем первую строку с кодом, исключая строки декларирования функции и опций модуля lStartLine = .CodeModule.CountOfDeclarationLines + 1 ‘цикл по всем строкам кода внутри модуля For li = lStartLine To lCountLines ‘получаем имя процедуры/функции, внутри которой строка кода sProcName = .CodeModule.ProcOfLine(li, 0) ‘если имя процедуры совпадает с тем, которое нам нужно If sProcName = «Code2» Then ‘узнаем кол-во строк процедуры/функции lProcLineCount = .CodeModule.ProcCountLines(sProcName, 0) ‘удаляем процедуру/функцию .CodeModule.DeleteLines li, lProcLineCount — 1 Exit For End If li = li + lProcLineCount Next li End With End Sub

Здесь стоит обратить внимание на один момент: данный поиск чуствителен к регистру. Т.е. если требуется удалить процедуру «Code2» , то и к сравнению надо вписывать имя именно так. Если записать «code2» , то совпадения найдено не будет и процедура не будет удалена. Во избежание подобного можно приводить имена к одному регистру:
If LCase(sProcName) = LCase(«Code2») Then

УДАЛИТЬ ВСЕ МАКРОСЫ ВРУЧНУЮ
Еще хочу добавить, что если Вам надо не скрыто, а просто быстро удалить все макросы из книги и Вы счастливый обладатель Excel версии 2007 и выше, то Вам всего лишь необходимо книгу, из которой хотите удалить макросы, Сохранить как-обычная Книга Excel(Меню—Сохранить как—Книга Excel).

Программно это можно сделать простым кодом:

Sub SaveBookWithoutMacro() ActiveWorkbook.SaveAs Filename:=»C:Книга1.xlsx», FileFormat:=51 End Sub

Для тех же, кто все еще использует офис 2003 и ранее и хочет удалить коды и макросы вручную — придется удалять каждый модуль из проекта и каждый код из модулей листов и книг поочередно, руками.

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

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

Если написать вместо
Set oVBComponent = ActiveWorkbook.VBProject.VBComponents(«ThisWorkbook»)
вот так
Set oVBComponent = ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.CodeName),
то макрос будет срабатывать и в английской и в русской версии (ThisWorkbook и ЭтаКнига).
Предположу, что срабатывать будет со всеми языками.

Поделитесь своим мнением

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

Макросы для Excel. Как создать и как удалить макрос в Excel?

Как правило, знакомство с языком VBA начинается с выполнения простейших программ, называемых макросами. С их помощью можно выполнить такие функции, как удаление листа или строки в Excel. В дальнейшем полученные знания можно использовать для написания более сложных программ.

Что такое макрос и зачем он нужен?

Это специальная программа, написанная на языке VBA для выполнения каких-либо функций в приложении MS Office. Можно воспользоваться уже готовым решением, которое легко найти на просторах сети Интернет, либо написать такую программу самостоятельно. С этим может справиться даже человек, абсолютно незнакомый с языком VBA. Достаточно нажать кнопку «Записать макрос», выполнить некоторые действия, которые затем можно повторить, просто запустив данный макрос, и вовремя нажать кнопку «Стоп».

Удаление листа Excel

Делается это следующим образом:

• Создаем новый документ Excel (на примере Excel 2010).
• Вставляем несколько листов и вносим в них произвольные данные.

• Чтобы открыть редактор VBA, нажимаем Alt+F11.
• Для вставки нового модуля (собственно, это и есть макрос) переходим на вкладку Insert (Вставить) и выбираем Module.
• Вставляем код:

• Закрываем окно редактирования макроса.
• Закрываем редактор VBA.
• Сохраняем книгу как документ с поддержкой макросов.
• Открываем сохраненный документ.
• Переходим «Вид-Макросы-Макросы» и выбираем DeleteSheet.
• Нажимаем «Выполнить». Появится предупредительное сообщение о том, что в ячейках данного листа могут существовать данные. Чтобы удалить лист Excel макросом, нажимаем на кнопку «Удалить».
• Для удаления листа без предупредительного сообщения в код макроса необходимо добавить две строчки:

Удаление строк в Excel

Теперь посмотрим, как удалить строки макросами Excel. Для начала уберем одну строку. Чтобы модуль легче было искать, так его и назовем – DeleteRow.

После выполнения макроса в Excel удалится строка под первым номером. Остальные сдвинутся вверх. Для удаления нескольких меняем вторую строку кода на следующую:

В данном случае будут удалены строки со второй по пятнадцатую.

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

Открываем вкладку «Вид», нажимаем на «Макросы», выбираем верхнюю строку под названием «Макросы», выбираем подлежащий удалению и нажимаем соответствующую кнопку.

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

Удаление макросов программным способом

Следующий способ, как можно удалить макрос в Excel, заключается в использовании надстройки – специальной программы, которая устанавливается отдельно и содержит в себе несколько модулей для выполнения различных функций. Одной из таких надстроек является Kutools. С помощью данной программы можно одновременно удалить все макросы Excel.

Данная надстройка имеет более 300 различных функций. Отметим некоторые интересные функции:

• преобразование обычных чисел в римские и обратно;
• конвертация валюты с использованием актуальных курсов валют;
• преобразование единиц измерения;
• поиск ячеек с определенным форматированием;
• удаление пустых листов, строк, столбцов.

При наличии большой базы макросов можно создать собственную надстройку. Благодаря этому можно будет разграничить «свои» и «чужие» (Excel будет им автоматически доверять).

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

Важно отметить, что при удалении через вкладку «Вид» открывается окно просмотра макросов. По умолчанию выбран пункт «Находится во всех открытых книгах». Как удалить макрос в Excel только для одного документа? Нужно выбрать соответствующий пункт в меню «Находится»: либо «Эта книга», либо пункт меню с названием данного документа.

Как удалить скрытые имена в Excel

Здравствуйте. Рад представить Вам пошаговую инструкцию по удалению скрытых имен в Экселе. Вы возможно сталкивались с ситуацией, когда при копировании листа в книге Excel возникала ошибка, которая сообщает что Имя уже существует и нужно либо выбрать новое, либо использовать тоже. Хорошо если таких ошибок 2 — 3, а если их несколько сотен или тысяч, тогда никакого терпения не хватит нажимать ОК. Используя рекомендации, представленные ниже, Вы избавитесь от ошибки навсегда! Итак, приступим:

1. Создание макроса DeleteHiddenNames.

Встроенной функции в Excel для решения этой проблемы я не нашел, зато есть замечательный макрос, с помощью которого мы от нее избавимся. Сначало надо зайти в редактор макросов, для этого запустите Excel, откройте файл с проблемой и нажмите ALT+F11. Откроется Microsoft Visual Basic for Applications, далее заходим в меню Insert и выбираем Module.

Открывается окно модуля. Туда Вы должны вставить следующий код макроса:

Sub DeleteHiddenNames()
Dim n As Name
Dim Count As Integer
On Error Resume Next
For Each n In ActiveWorkbook.Names
If Not n.Visible Then
n.Delete
Count = Count + 1
End If
Next n
MsgBox «Скрытые имена в количестве » & Count & » удалены»
End Sub

Выглядеть это должно в результате следующим образом:

Отлично. Макрос мы создали, теперь нам осталось его применить.

2. Использования макроса для удаления скрытых имен в Excel.

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

В открывшемся меню выбираем макрос DeleteHiddenNames и нажимаем кнопку выполнить.

Макрос отработает некоторое время (чем больше скрытых имен у Вас в файле, тем дольше он будет работать) и выдаст сообщение о том, сколько имен было удалено. Поздравляю Вы избавились от проблемы и можете смело копировать листы.