Удаление всех макросов в книге.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление всех макросов в книге. (Макросы/Sub)

cerber412

Дата: Вторник, 04.07.2017, 09:23 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 131

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

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

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

К сообщению приложен файл: 7567.xls (50.5 Kb)

Ответить

InExSu

Дата: Вторник, 04.07.2017, 09:27 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 648

Репутация: 96 ±

Замечаний: 0% ±

Excel 2010, 365

Как макрос, сохраняющий книгу в формате xlsX ?

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac

Ответить

_Boroda_

Дата: Вторник, 04.07.2017, 09:30 | Сообщение № 3

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 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

Ответить

Michael_S

Дата: Вторник, 04.07.2017, 10:03 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

Цитата _Boroda_, 04.07.2017 в 09:30, в сообщении № 3 ()

А просто пересохранить текущую книгу в xlsx?

а если нет такой возможности?

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