Makro funktioniert nicht im Intranet!
29.03.2007 11:01:05
Hans Peter
hallo zusammen, ich möchte gerne ein einzelnes sheet (enthält ein bestellformular) aus einer arbeitsmappe per outlook an mich senden lassen. jetzt hat mein sohn mir ein makro dazu erstellt das wenn ich die arbeitsmappe normal öffne auch super funktioniert. hier ist das makro:
Sub send_sheet()
'send mail and close
Abteilung = Sheets("Bestellformular").Range("C4").Value
Sheets("Bestellformular").Copy
Workbooks(Workbooks.Count).SaveAs Filename:="C:\Temp\Bestellformular.xls"
ActiveWorkbook.SendMail "h.weisskopf@buespi.ch", _
"Erste-Hilfe Bestellung: " & Abteilung, False
ActiveWorkbook.Close savechanges:=False
Kill "C:\Temp\Bestellformular.xls"
End Sub
wenn ich es jedoch im geschäft ins intranet stelle geht es nicht mehr, immer kommt die fehlermeldung "Arbeitsmappe ist geschützt und kann nicht geändert werden." nun öffne ich "debuggen" und er zeigt mir den fehler:Sheets("Bestellformular").Copy
wie kann ich diesen fehler beheben dass ich es per outlook senden kann?
habe schon diverse makros versucht aber leider ohne erfolg.
gruss und danke hans peter