Opslaan-mailen en cellen leegmaken

[gerrit123456789]

Goedenavond,

Ik heb een bestand bijgevoegd. Dit bestand wil ik graag opslaan met de bestandsnaam MSK en daarachter de datum uit cel C7. Tevens wil ik met dezelfde macro het bestand met dezelfde bestandsnaam waarmee het is opgeslagen en dan ook nog dat de onbeveiligde cellen leeggemaakt worden en als sjabloon opgeslagen wordt.
Ik ga namelijk het werkblad beveiligen met een wachtwoord.

Wie kan mij hierbij helpen m dit in 1 macro te gieten.

Bij voorbaat dank

Gerrit

 

[gerrit123456789]

In de vorige tekst was het mailen vergeten te vermelden.
Ik heb een bestand bijgevoegd. Dit bestand wil ik graag opslaan met de bestandsnaam MSK en daarachter de datum uit cel C7. Tevens wil ik met dezelfde macro het bestand met dezelfde bestandsnaam waarmee het is opgeslagen mailen en dan ook nog dat de onbeveiligde cellen leeggemaakt worden en als sjabloon opgeslagen wordt.
Ik ga namelijk het werkblad beveiligen met een wachtwoord.

Wie kan mij hierbij helpen m dit in 1 macro te gieten.

Bij voorbaat dank

Gerrit

 

[AHulpje]

Waar moet het bestand opgeslagen worden?
Naar welk e-mailadres moet het bestand verzonden worden?
Welke e-mailclient gebruik je?
En waarom zou je het bestand ook nog iedere keer als sjabloon willen opslaan?
Alvast een klein voorzetje:

Sub Opslaan()
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(Now(), "yyyymmdd"), FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

Sub Leegmaken()
    For Each C In ActiveSheet.UsedRange
        If Not C.Locked Then C.Clear
    Next
End Sub

 

[gerrit123456789]

Hij moet met hier opslaan: D:\MSK
Hij moet naar het volgende e-mailadres gestuurd worden: s.a.jacobs@kpnmail.nl
Ik gebruik Outlook
De reden dat hij opgeslagen moet worden is dat ik dan altijd een lege invullijst heb.

 

[AHulpje]

Probeer het hier eens mee:

Sub OpslaanEnMailen()
    filenaam = "D:\MSK\" & Format(Now(), "yyyymmdd") & ".xlsm"
    ActiveWorkbook.SaveAs Filename:=filenaam
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = "s.a.jacobs@kpnmail.nl"
        .Subject = "Bestand"
        .Attachments.Add filenaam
        .Body = "Hierbij het MSK bestand"
        .Display
        '.Send
    End With
End Sub

En als je gewoon ergens de lege invullijst opslaat dan heb je die altijd bij de hand, dat hoeft mijns inziens niet ieder keer opnieuw te gebeuren.

 

[gerrit123456789]

Hallo,
Ik zou toch graag zien dat hij de waarde uit cel C7 pakt en niet met (NOW).
Toch zou graag de onbeveiligde cellen leeg willen maken. Ik heb geprobeerd om de 2 voorbeelden samen te stellen om de cellen leeg te maken, maar krijg dan een compileerfout.

 

[edmoor]

filenaam = "D:\MSK\" & Range("C7") & ".xlsm"

 

[gerrit123456789]

Dan krijg ik weer een compileerfout

 

[AHulpje]

@edmoor
Zal niet gaan, tijd wordt meegenomen en daar staat : in, niet toegestaan in filenaam.

@gerrit123456789
Zo dan?

 

[gerrit123456789]

Dit is precies wat ik bedoelde.

Bedankt voor zover.

Als ik nog een vraagje heb dan meld ik mij weer.

Groet,

Gerrit