|
Hallo,
folgendes Problem:
Es gibt eine Datei die von verschiedenen Leuten gefüllt und per Mail verschickt wird. Ich möchte verhindern das die Benutzer das Original überschreiben können.
Im Prinzip funktioniert das auch schon und zwar so:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ActiveWorkbook.Worksheets("Daten").Range("D30") = "Master data sheet" Then
If ActiveWorkbook.Name = "Master data sheet.xlsm" And ActiveWorkbook.Path = "xyz" Then
Cancel = True
Call Speichern
End If
End If
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Speichern()
ActiveWorkbook.Worksheets("Daten").Range("D30").Value = ""
Dim Dateiname As String
Dateiname = "Master data sheet" & Environ("Username") & " " & Date
MsgBox (Application.UserName & "! Da du eben die Originaldatei überschreiben wolltest, hab ich die mal lieber in dem Ordner ""falsch gespeichert"" abgelegt.")
ActiveWorkbook.SaveAs Filename:="xyz\falsch gespeichert\" & Dateiname & ".xlsm"
End Sub
Problem ist das die Benutzer die Datei gar nicht woanders speichern oder umbennen können (es sei denn sie kopieren die Datei) denn das Makro speichert die Datei auch sofort unter dem anderen Namen/Ordner wenn man auf "speichern unter" klickt.
Wie funktioniert es, dass man auch im "speichern unter"-Dialog den Namen und Speicherort angeben kann und dann erst geprüft wird ob die Datei überschrieben würde?
Vielen Dank im voraus.
MfG
Enrico
|