Makro-Datei ohne VBA+Buttons speichern

Guten Morgen zusammen,
Ich habe eine Makro Datei mit diversen Buttons usw.
Diese Datei möchte ich - entweder nach einem klick auf einen neu erstellen Button - oder anderweitig ausführend, auf nach meinem Wunschort und Wunschname ohne Makro/VBA speichern - so jetzt hänge ich hier: Diese Datei soll dann auch bitte ohne Buttons und sonstigen VBA Code gespeichert werden, denn die Datei wird anderen Personen verschickt - sollte als normale Excel sein.
Wie bekomme ich diese Buttons und Codes weg, sodass nach speichern eine wirklich normale Exceldatei ohne VBA und Buttons oder sonst noch eine Spur von VBA übrig bleibt.
Mit diesem Code Funktioniert es nicht.


Sub SpeichernUnter()
Dim strDateiname As String
ChDrive "c:\"
ChDir "\Users\"
Application.Dialogs(xlDialogSaveAs).Show (strDateiname)
End Sub

Anbei eine Beispieldatei wo es nicht funktioniert.
https://www.herber.de/bbs/user/147816.xlsm
Danke für eure Hilfe.
VG
Memo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Werner,
danke für dein Hinweis, den einen Beitrag hatte ich bereits gefunden gehabt.
Jedoch soll ja beides kombiniert werden.
Nach löschen der Buttons (Steuerelemente Buttons) soll die Datei auch ohne VBA Code gespeichert werden.
Den Speicherort sowie den Speichernamen muss der User selbst wählen dürfen.
Wie bekomme ich bei diesem Code hin, dass er mir die Auswahl gibt den Dateinamen selbst zu wählen ? HansWurst soll weg.
DateiName = " " funktioniert nicht.
Dann bekomme ich noch die Fehlermeldung bei fett markierte Zeile. Warum? wird ja auf dem Desktop gespeichert.


Sub datei_save()
Dim DateiName As String
Dim strOrdner As String
With Application.FileDialog(msoFileDialogFolderPicker) '--- Ordner wählen
.InitialFileName = "C:\"
.Title = "Ordnerauswahl"
.ButtonName = "Auswahl..."
.InitialView = msoFileDialogViewList
If .Show = -1 Then
strOrdner = .SelectedItems(1)
If Right(strOrdner, 1)  "\" Then strOrdner = strOrdner & "\"
Else
strOrdner = ""
End If
End With
If strOrdner = "" Then MsgBox ("Kein Ordner gewählt!") Else MsgBox strOrdner
DateiName = "HansWurst"
Application.DisplayAlerts = False '-- Wenn datei vorhanden wird sie überschieben und es wird _
nicht nachgefragt
ActiveWorkbook.SaveAs Filename:=strOrdner & DateiName & " .xlsx ", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False    '-- Wird auf dem Desktop gespeichert"
End Sub

Wie bekomme ich den oberen Code mit diesem Code verschmolzen, also in einer Ausführung:
Natürlich zuerst Buttons weg, danach Datei speichern ohne VBA und Dateiname sowie Ort wählt der User.


Sub SchalterWeg()
Dim objWs As Worksheet
Dim objShp As Shape
For Each objWs In ThisWorkbook.Worksheets
If objWs.Name  "k_Test" Then
For Each objShp In objWs.Shapes
If objShp.Type = 12 Then objShp.Delete
Next
End If
Next
End Sub

Danke + Grüße
Memo

Sub mal_anders() Dim varFileName As Variant, objWs As Worksheet, objShp As Shape ChDir "C:/" varFileName = Application.GetSaveAsFilename(varFileName, "Excel Arbeitsmappe ohne VBA (*.xlsx),*.xlsx,") 'Achtung: eine vorhandene Datei wird 'ohne Nachfrage überschrieben Application.DisplayAlerts = False If Not varFileName = False Then For Each objWs In ThisWorkbook.Worksheets For Each objShp In objWs.Shapes If objShp.Type = 12 Then objShp.Delete Next objShp Next objWs ThisWorkbook.SaveAs (varFileName) Else MsgBox "Abbruch durch Nutzer." End If End Sub

Option Explicit Sub mal_anders() Dim varFileName As Variant, objWs As Worksheet, objShp As Shape ChDir "C:/" varFileName = Application.GetSaveAsFilename(varFileName, "Excel Arbeitsmappe ohne VBA (*.xlsx),*.xlsx,") Application.DisplayAlerts = False If Not varFileName = False Then For Each objWs In ThisWorkbook.Worksheets For Each objShp In objWs.Shapes If objShp.Type = 12 Then objShp.Delete Next objShp Next objWs ThisWorkbook.SaveAs varFileName, FileFormat:=xlOpenXMLWorkbook Else MsgBox "Abbruch durch Nutzer." End If End Sub

Beliebteste Forumthreads (12 Monate)

Makro-Datei ohne VBA+Buttons speichern

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

323 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro-Datei ohne VBA+Buttons speichern

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

323 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread