Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.10.2017, 10:52   #1
and150382
Форумчанин
 
Регистрация: 19.10.2012
Сообщений: 217
По умолчанию Убрать кнопку при отправке

Добрый день!
Макрос отправляет данные на почту при нажатие на кнопку "Отправить",
получатель открывает файл, который ему пришел и видит эту кнопку.
Подскажите, как сделать чтобы при отправке файла кнопка не отправлялась.
Заранее спасибо.
and150382 вне форума Ответить с цитированием
Старый 17.10.2017, 11:03   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Вывести кнопку на ленту или на панель быстрого запуска
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 17.10.2017, 11:03   #3
and150382
Форумчанин
 
Регистрация: 19.10.2012
Сообщений: 217
По умолчанию

Файл во вложении
Вложения
Тип файла: rar 111.rar (41.6 Кб, 10 просмотров)
and150382 вне форума Ответить с цитированием
Старый 17.10.2017, 11:23   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

попробуйте удалить кнопку на скопированном для отправки листе.

для этого в коде после .Copy вставьте команду удаления кнопки.

например, так:

Код:
        .Copy                    'копируем лист "Отчет за смену" в новую книгу
                    '(она автоматически становится активной)
                    
         ActiveSheet.Shapes("Button 1").Delete

        With ActiveWorkbook                             'в новой книге со скопированным листом "Отчет за смену"
            With .Sheets(1)                             'на листе "Отчет за смену"
                If rng.Rows.Count > 1 Then                   'если в диапазоне больше 1 строки, то
                .Rows(2).Resize(rng.Rows.Count - 1).Delete   'удаляем строки со 2 по предпоследнюю включительно
                End If
                .Range(.Rows(3), .Rows(3).End(xlDown)).Delete 'удаляем все строки ниже последней непустой строки
                .SaveAs strFile$, 56                    'сохраняем книгу во временную папку
            End With
            .Close                    'закрываем временную книгу
        End With
Serge_Bliznykov вне форума Ответить с цитированием
Старый 17.10.2017, 12:37   #5
and150382
Форумчанин
 
Регистрация: 19.10.2012
Сообщений: 217
По умолчанию

Спасибо, Serge_Bliznykov
and150382 вне форума Ответить с цитированием
Старый 17.10.2017, 13:25   #6
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

всегда пожалуйста.
надеюсь, помогло.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 17.10.2017, 13:47   #7
and150382
Форумчанин
 
Регистрация: 19.10.2012
Сообщений: 217
По умолчанию

Да, всё работает.
and150382 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
можно ли при нажатии на кнопку button убрать галочки сразу со всех чекбоксов? povaki Компоненты Delphi 1 12.03.2017 21:59
Убрать кнопку закрытия с Caption Bar, и не удалить при этом иконку Winexcel Общие вопросы Delphi 4 12.07.2014 09:20
Убрать кнопку Отмена в OpenDialog city32 Помощь студентам 7 01.12.2011 15:39
Убрать кнопку закрыть и иконку Miller-1981 Win Api 2 16.11.2010 21:49
ошибка при отправке D_E_N Работа с сетью в Delphi 11 01.11.2009 00:41