Monatsangabe bei Speicherung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ich blick da nicht durch. In der Datei ist ein Makro......
das hier............dieses soll aber in der Sicherungsdatei nicht mehr vorhanden sein. Die Formeln schon, das Makro nicht ........
Der Sinn dahinter: wenn jemand eine nachträgliche Änderung machen will, dann soll derjenige keine Sicherungskopie mehr machen können -------- oder geht das nicht (bin nicht bewandert in VBA....)

Sub DateiSicherungsCoppy()
Dim wbk As Workbook
Dim Pfad2 As String, Datei1 As String, Datei2 As String
Set wbk = ActiveWorkbook
With wbk
Datei1 = .Name
If .Saved = False Then .Save
Pfad2 = "C:\Users\chgl\Desktop\Datei\Sicherung\" 'Pfad zur Sicherung
Datei2 = Left(Datei1, InStrRev(Datei1, ".") - 1) & Format(Range("G1"), " MMMM YYYY") _
& Mid(Datei1, InStrRev(.Name, "."))  ' Dateiname der Sicherungs-Datei
.SaveCopyAs Filename:=Pfad2 & Datei2
End With
If Mid(Datei1, 1, 3) = "MS " Then
ActiveWindow.Visible = False
End If
MsgBox "Dateien wurden in Sicherungsordner gespeichert"
End Sub

Sub DateiSicherungsCoppy() Dim wbk As Workbook Dim Pfad2 As String, Datei1 As String, Datei2 As String Set wbk = ActiveWorkbook With wbk Datei1 = .Name If .Saved = False Then .Save Pfad2 = "C:\Users\chgl\Desktop\Datei\Sicherung\" 'Pfad zur Sicherung Datei2 = Left(Datei1, InStrRev(Datei1, ".") - 1) & Format(Range("G1"), "MMMMYYYY") _ & Mid(Datei1, InStrRev(.Name, ".")) ' Dateiname der Sicherungs-Datei ActiveSheet.Copy With ActiveWorkbook .SaveAs Filename:=Pfad2 & Datei2 .Close End With End With If Mid(Datei1, 1, 3) = "MS " Then ActiveWindow.Visible = False End If MsgBox "Dateien wurden gespeichert" End Sub

Hallo!
Danke für den Code. Ich habe im Internet gesucht um eine Möglichkeit zu finden, wie ich, wenn ich die Datei gesichert habe, keiner auf die Idee kommt, den Command Button nochmals auszuführen. Dabei habe ich einen code gefunden, der bei Sicherung der Datei, diesen löscht.
Nur........ich weiß nicht, wo ich den hineinpacken soll, bzw. wie ich das ganze anordnen könnte.
Hier der code den ich gefunden habe:
Dim myDocument As Object
Set myDocument = Worksheets(Blattzähler)
myDocument.Shapes.SelectAll
Selection.Delete
Da dieser nicht geht, lt. User, haben Sie ihm einen Austausch empfohlen, welcher wei folgend aussieht:
myDocument.DrawingObjects.Delete
Wo der eingebaut werden soll.........keine Ahnung.
Hier der Link, wo ich das herhabe.
http://www.office-loesung.de/ftopic118247_0_0_asc.php
Kann mir wer hier helfen, wo ich das in meinen Code einbauen könnte ?
Danke
chris58

Private Sub CommandButton1_Click() ActiveSheet.Unprotect Dim wbk As Workbook Dim Pfad2 As String, Datei1 As String, Datei2 As String Set wbk = ActiveWorkbook With wbk Datei1 = .Name If .Saved = False Then .Save Pfad2 = "C:\Users\chgl\Desktop\Dienstpläne\Monatslisten\" 'Pfad zur Sicherung Datei2 = Left(Datei1, InStrRev(Datei1, ".") - 1) & Format(Range("A5"), " MMMM YYYY") _ & Mid(Datei1, InStrRev(.Name, ".")) ' Dateiname der Sicherungs-Datei .SaveCopyAs Filename:=Pfad2 & Datei2 End With If Mid(Datei1, 1, 3) = "MS " Then ActiveWindow.Visible = False End If MsgBox "Dateien wurden in Sicherungsordner gespeichert" ActiveWorkbook.Protect End Sub

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Monatsangabe bei Speicherung

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread