email versturen (marco) werkt niet als het werkblad beveiligd is.

[descheep]

Hi allen,

Iemand enig idee, waarom mijn macrootje om een mail te versturen niet werkt als ik het werkblad beveilig?

Ik hoor het graag.

Groeten Marco

ps. marco in het subject is macro

 

[ExcelAmateur]

descheep,

Kijk hier eens, ik denk dat je antwoord daar wel bij staat.

 

[Efsix]

Je kunt je macro aanvullen met;

    ActiveSheet.Unprotect

bla, bla, bla

    ActiveSheet.Protec

dan werkt je mail waarschijnlijk wel

 

[descheep]

het andere topic deed het hem

Private Sub Knop4_BijKlikken()
Sheets("Evenement").Protect userinterfaceonly:=True

Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Dim sAan As String
Dim sSubject As String
Dim sbody As String

For Each cell In Range("D644")
sbody = sbody & cell.Value & vbNewLine
Next

Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
sSubject = Range("D4").Value

On Error GoTo cleanup
For Each cell In Worksheets("evenement").Columns("M").Cells.SpecialCells(xlCellTypeFormulas)
If (Worksheets("evenement").Cells(cell.Row, "M").Text) Like "?*@?*.?*" And LCase(Worksheets("evenement").Cells(cell.Row, "N").Text) = "ja" Then
sAan = sAan & Worksheets("evenement").Range("M" & cell.Row).Value & ";"
End If
Next cell

Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = sAan
.Subject = sSubject
.Body = sbody

.Send
End With
Set OutMail = Nothing

cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True

End Sub

Bedankt voor de tip!! :thumb:

groeten Marco

 

[ExcelAmateur]

descheep,

Graag de volgende keer de code selecteren en dan boven in het menu op # klikken, komt de code netjes in een apartvak te staan.
Ben je tevreden met de oplossing zet de vraag dan als opgelost. :thumb: