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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение Книги без макросов и формул (Макросы/Sub)
Сохранение Книги без макросов и формул
ekut Дата: Суббота, 03.10.2020, 05:56 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 89
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Уважаемые умные люди,здравствуйте! Подскажите мне, пожалуйста! Как мне сохранить файл без кнопки "Сохранить в файл" и формул (просто числа), что в макросе нужно заменить! Спасибо большое!!!!
К сообщению приложен файл: 8943060.xlsm(60.8 Kb)
 
Ответить
СообщениеУважаемые умные люди,здравствуйте! Подскажите мне, пожалуйста! Как мне сохранить файл без кнопки "Сохранить в файл" и формул (просто числа), что в макросе нужно заменить! Спасибо большое!!!!

Автор - ekut
Дата добавления - 03.10.2020 в 05:56
Hugo Дата: Суббота, 03.10.2020, 11:49 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3099
Репутация: 665 ±
Замечаний: 0% ±

Добрый день.
Добавляем вот эти две средние строки:
[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 (потому что индексы могут быть непредсказуемы), но у меня работает так.


excel@nxt.ru
webmoney: E265281470651 R418926282008 Z422237915069
 
Ответить
СообщениеДобрый день.
Добавляем вот эти две средние строки:
[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 (потому что индексы могут быть непредсказуемы), но у меня работает так.

Автор - Hugo
Дата добавления - 03.10.2020 в 11:49
ekut Дата: Воскресенье, 04.10.2020, 08:03 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 89
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо огромноеееееее!!!!!
 
Ответить
СообщениеСпасибо огромноеееееее!!!!!

Автор - ekut
Дата добавления - 04.10.2020 в 08:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение Книги без макросов и формул (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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