Сохранение Книги без макросов и формул

Вход

Регистрация

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

= Мир MS Excel/Сохранение Книги без макросов и формул - Мир MS Excel

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

Сохранение Книги без макросов и формул (Макросы/Sub)

Сохранение Книги без макросов и формул

ekut

Дата: Суббота, 03.10.2020, 05:56 | Сообщение № 1

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

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

Сообщений: 195

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

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

Excel 2007

Уважаемые умные люди,здравствуйте! Подскажите мне, пожалуйста! Как мне сохранить файл без кнопки "Сохранить в файл" и формул (просто числа), что в макросе нужно заменить! Спасибо большое!!!!

К сообщению приложен файл: 8943060.xlsm (60.8 Kb)

Ответить

Hugo

Дата: Суббота, 03.10.2020, 11:49 | Сообщение № 2

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

Ранг: Участник клуба

Сообщений: 3859

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

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

365

Добрый день.
Добавляем вот эти две средние строки:
[vba]

Код

        Application.DisplayAlerts = False    ' отключаем вывод предупреждения о потере точности
        ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
        ActiveSheet.Shapes.Range(Array("Button 3")).Delete
        ActiveWorkbook.SaveAs Filename, xlOpenXMLWorkbook    ' xlOpenXMLWorkbook = формат XLSX

[/vba]
Вообще наверное правильнее перебрать все Shapes, проверить название и удалить все Button (потому что индексы могут быть непредсказуемы), но у меня работает так.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

ekut

Дата: Воскресенье, 04.10.2020, 08:03 | Сообщение № 3

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

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

Сообщений: 195

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

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

Excel 2007

Спасибо огромноеееееее!!!!!

Ответить

Сохранение Книги без макросов и формул (Макросы/Sub)

Страница 1 из 1
1