Tabblad verzenden

[JTvD]

Een vraagje nog hoe beveilig ik het verstuurde bestand  met een wachtwoord tegen bewerken?

[bakerman]

Sub SendMail_Click()
    Fname = "Kopie_Uurstaat"
    Application.CopyObjectsWithCells = False
    Sheets("uren").Copy
    Application.CopyObjectsWithCells = True
    With ActiveWorkbook
        .Sheets(1).Protect "JTvD"
        .SaveAs ThisWorkbook.Path & "\" & Fname, 51
        .ChangeFileAccess xlReadOnly
        .Close True
    End With
    With CreateObject("outlook.application").createitem(0)
        .to = "Joep@hetnet.nl"
        .Subject = "Uren"
        .body = "In bijlage de gevraagde uurstaat." & vbLf & vbLf & "Groeten JTvD"
        .attachments.Add ThisWorkbook.Path & "\" & Fname & ".xlsx"
        .display
    End With
    Kill ThisWorkbook.Path & "\" & Fname & ".xlsx"
End Sub

 

[JTvD]

Ook weer gelukt, dankje

[kweezie wabbit]

Is het probleem opgelost en heb je verder geen vragen meer, geef dan een seintje zodat we het topic kunnen afsluiten.

[JTvD]

Ah natuurlijk, vergeten.

Nee geen vragen meer, dank aan allen die meegeholpen hebben..

 

Deze mag gesloten worden..

[kweezie wabbit]

Dan zetten we er een op.

Succes nog.