Envio de somente células visíveis de uma planilha por e-mail
Enviado: 08 Jun 2018 às 16:31
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.
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.