Datei: Kopie ändern und speichern
27.09.2018 14:35:49
Domi
ich bin in dem Forum hier auf einen Code gestoßen (Danke @Franz), der meinen Wunsch, ein Duplikat meiner Datei (ohne Makros) für die Öffentlichkeit zugänglich abspeichert.
Das funktioniert soweit auch wunderbar.
Nun würde ich gerne einen Teil der Datei in der Kopie löschen, der nicht für die Öffentlichkeit ist.
Option1: Kompletten Reiter (1+3) Löschen
Option2: Spalten 4-50 löschen löschen
Ich bekomme es leider nicht hin das in den Code einzubauen. Könnt ihr mir helfen?
Hier der aktuelle Code den ich nutze:
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Const strNetzPfad As String = "hier der Pfad\"
Dim strTempName As String, strCopyName As String, strName As String, lngFormat As Long
Dim wkbCopy As Workbook
If Success = True Then
Application.EnableEvents = False
Application.ScreenUpdating = False
lngFormat = Me.FileFormat
strName = Me.Name
strName = Left(strName, Len(strName) - 4)
strCopyName = strNetzPfad & strName & "xlsx"
strTempName = strNetzPfad & "Temp" & strName & "xlsm"
Me.SaveCopyAs strTempName
Set wkbCopy = Workbooks.Open(strTempName)
strTempName = strNetzPfad & "Temp" & strName & "xlsx"
Application.DisplayAlerts = False
wkbCopy.SaveAs Filename:=strTempName, FileFormat:=51
Application.DisplayAlerts = True
wkbCopy.Close savechanges:=False
If Dir(strCopyName) "" Then Kill strCopyName
Name strTempName As strCopyName
strTempName = strNetzPfad & "Temp" & strName & "xlsm"
VBA.Kill strTempName
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
Beste Grüße
Domi
Anzeige