Убрать кнопку при отправке

[and150382]

Добрый день!
Макрос отправляет данные на почту при нажатие на кнопку "Отправить",
получатель открывает файл, который ему пришел и видит эту кнопку.
Подскажите, как сделать чтобы при отправке файла кнопка не отправлялась.
Заранее спасибо.

[Aleksandr H.]

Вывести кнопку на ленту или на панель быстрого запуска

[and150382]

Файл во вложении

[Serge_Bliznykov]

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

для этого в коде после .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

[and150382]

Спасибо, Serge_Bliznykov

[Serge_Bliznykov]

всегда пожалуйста.
надеюсь, помогло.

[and150382]

Да, всё работает.