Este fórum está sendo desativado

[Wieniawski]

Srs, criei o código abaixo para envio de uma planilha por e-mail (no corpo), porém quando envio o e-mail aparecem também as células ocultas, como faço para arrumar isso?

Sub enviamail()

Windows("Informações para reunião de produção").Activate
Sheets("Painel").Select
Range("A1:f15").SpecialCells(xlCellTypeVisible).Select

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
.Item.SentOnBehalfofName = "e-mail"
.Item.to = "e-mail"
.Item.Subject = "Informações para reunião de produção"
.Introduction = ""
.Item.send
End With


End Sub

Outro problema também é que não deixa enviar com a planilha protegida.