Hallo Experten,
unteres Makro habe ich mit Euerer Hilfe zusammengebaut / geklaut!!. Nun möchte ich, dass das Sheet mit dem Namen Stuttgart V noch ein Blattschutz bekommt. Hierzu habe ich ein kleines Makro gemacht. Nun habe ich versucht, das Makro zu starten, aber das funktioniert nicht, egal an welcher Stelle ich das starte. Kann mir jemand helfen, wie ich dieses Sheet vor Absendung noch mit einem Blattschutz versehen kann.
DANKE und Grüße
Elmar
Sub Excel_Workbook_via_Outlook_Senden_Stuttgart()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String, wksMail As Worksheet
Set wksMail = Sheets("Stuttgart V") 'zu versendendes Blatt
AWS = Environ("USERPROFILE") & "\" & wksMail.Name & ".xls"
'temporäre Mappe erstellen
wksMail.Copy
With ActiveWorkbook
.SaveAs AWS
.Close
End With
Call Passwortschutz
Application.Visible = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = ""
.Cc = ""
.Subject = "Auswertung zum VIP (Very Important Parcel) Versanddatum " & Date
.Attachments.Add AWS
.Body = "TEST" _
& vbCrLf & vbCrLf & "Danke für Ihre Mitarbeit" & vbCrLf & vbCrLf & "Freundliche Grüße" & _
_
vbCrLf & "Claudia "
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
Kill AWS 'temporäre Mappe löschen
End Sub