Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удаление всех макросов в книге. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление всех макросов в книге. (Макросы/Sub)
Удаление всех макросов в книге.
cerber412 Дата: Вторник, 04.07.2017, 09:23 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 93
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
здравствуйте, гуру экселя.
Помогите разобраться в непростой задачей.

В файле xls находятся два макроса, перемещающие автофигуры (один находется в листе, другой в модуле).
Как должен выглядеть макрос, который при нажатии на желтую кнопку - удалил бы все макросы в данной книге (и макросы листа и те, что записаны в модуль) ?
К сообщению приложен файл: 7567.xls(50Kb)
 
Ответить
Сообщениездравствуйте, гуру экселя.
Помогите разобраться в непростой задачей.

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

Автор - cerber412
Дата добавления - 04.07.2017 в 09:23
InExSu Дата: Вторник, 04.07.2017, 09:27 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 148
Репутация: 19 ±
Замечаний: 0% ±

Excel 2010
Как макрос, сохраняющий книгу в формате xlsX ?
 
Ответить
СообщениеКак макрос, сохраняющий книгу в формате xlsX ?

Автор - InExSu
Дата добавления - 04.07.2017 в 09:27
_Boroda_ Дата: Вторник, 04.07.2017, 09:30 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11269
Репутация: 4656 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А просто пересохранить текущую книгу в xlsx?
Что-то типа вот такого
[vba]
Код
    fp_ = ThisWorkbook.Path
    fn_ = ThisWorkbook.Name & "x"
    ThisWorkbook.SaveAs Filename:=fp_ & fn_
[/vba]
При открытии такого файла макросов там не окажется


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА просто пересохранить текущую книгу в xlsx?
Что-то типа вот такого
[vba]
Код
    fp_ = ThisWorkbook.Path
    fn_ = ThisWorkbook.Name & "x"
    ThisWorkbook.SaveAs Filename:=fp_ & fn_
[/vba]
При открытии такого файла макросов там не окажется

Автор - _Boroda_
Дата добавления - 04.07.2017 в 09:30
Michael_S Дата: Вторник, 04.07.2017, 10:03 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1831
Репутация: 343 ±
Замечаний: 0% ±

Excel2016
А просто пересохранить текущую книгу в xlsx?
а если нет такой возможности?

[p.s.]я примерно знаю, как в этом случае (вернее знаю, где искать), но у меня 2016, и потому вопрос лично для меня не актуален :)[/p.s.]


ЯД: 41001136675053
WM: R389613894253


Сообщение отредактировал Michael_S - Вторник, 04.07.2017, 10:05
 
Ответить
Сообщение
А просто пересохранить текущую книгу в xlsx?
а если нет такой возможности?

[p.s.]я примерно знаю, как в этом случае (вернее знаю, где искать), но у меня 2016, и потому вопрос лично для меня не актуален :)[/p.s.]

Автор - Michael_S
Дата добавления - 04.07.2017 в 10:03
Manyasha Дата: Вторник, 04.07.2017, 10:06 | Сообщение № 5
Группа: Модераторы
Ранг: Старожил
Сообщений: 1956
Репутация: 815 ±
Замечаний: 0% ±

Excel 2010, 2016


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеcerber412, похожая тема

Автор - Manyasha
Дата добавления - 04.07.2017 в 10:06
cerber412 Дата: Вторник, 04.07.2017, 22:09 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 93
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Manyasha, спасибо. Вроде то что нужно.
 
Ответить
СообщениеManyasha, спасибо. Вроде то что нужно.

Автор - cerber412
Дата добавления - 04.07.2017 в 22:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление всех макросов в книге. (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!