Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Verknüpfungen unterbinden

Verknüpfungen unterbinden
28.03.2016 17:42:56
Elmar
Hallo Experten,
irgendwie bekomme ich das nicht hin, dass es mir keine Verknüpfungen bildet.
Beim unteren (Auszug aus dem kompletten Code)Code, den ich auch aus dem Forum hier bekommen habe, bereite ich eine Datei vor, um diese dann mit Outlook zu versenden.
Klappt alles gut, aber es macht mir immer eine Verknüpfung rein zur Ursprungsdatei. Das möchte ich unterbinden, weiß aber nicht wie ich das in den Code bringen könnte, dass nur Werte eingefügt werden oder besser noch die Formeln in den Zellen H3 bis K15000 nur die Werte enthalten.
Vielleicht kann mir jemand helfen; DANKE schon mal..
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("RMBK70") 'zu versendendes Blatt
AWS = Environ("USERPROFILE") & "\" & wksMail.Name & ".xlsx"
'temporäre Mappe erstellen
wksMail.Copy
With ActiveWorkbook
ActiveSheet.Protect Password:="Bambus88", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, _
AllowFiltering:=True
' ActiveSheet.EnableSelection = xlUnlockedCells
ActiveWorkbook.Protect Password:="Bambus88"
.SaveAs AWS
.Close
End With

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verknüpfungen unterbinden
28.03.2016 17:56:45
KlausF
Hallo Elmar,
testen kann ich das nicht weil ich einen Mac habe aber probier mal:
With ActiveWorkbook
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
ActiveSheet.Protect Password:= ....
Gruß
Klaus

AW: Verknüpfungen unterbinden
28.03.2016 18:11:41
Elmar
Hallo Klaus,
funktioniert perfekt und die Datei ist zudem noch viel kleiner.....
VIELEN DANK
Grüße aus Bayern
Elmar

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige