Zellenschutz
mirko
ich hoffe, Ihr könnt mir helfen.
Letzte Zeit,müssen wir bei uns in Geschäft unsere Büromaterial per email bestellen. Bestellungsformular ist eine ExcelVorlage , was alles kein Probelm macht, aber die Vorlage hat Zellenschutz. Ich habe versucht das alle einbishen zu automatisieren mit unten stehendem Code mit tastenkombination(habe aus Forum).
Sub Blatt_senden()
Sheets("XXXXXXXXXXXXxxx").Copy
On Error Resume Next
ActiveWorkbook.SendMail Array("CCCCC@fffff", "VVVV@uuuuuu"), "XXXXXXXXXXXXX"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
If Err.Number > 0 Then MsgBox "Mail wurde nicht gesendet!!", , "YYYYYYYYYYY"
On Error GoTo 0
End Sub
Bis dahin, Funktioniert alle problemlos. Wie kann ich das Code einpflanzen und speichern das er immer per Tastenkombination ausführbar ist.?
Weill wenn ich will speichern dann muss ich die vorlage Speichern unter andere namen was nicht unbedingt vermeiden will.
gruss
mirko
Anzeige