|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Datei vor überschreiben schützen |
11.09.2015 12:44:38 |
Enrico |
|
|
|
11.09.2015 17:22:12 |
BigBen |
|
|
|
11.09.2015 17:34:39 |
Gast87410 |
|
|
|
14.09.2015 11:11:22 |
Gast85128 |
|
|
|
14.09.2015 11:48:50 |
BigBen |
|
|
|
14.09.2015 19:14:53 |
BigBen |
|
|
|
24.09.2015 11:13:43 |
Gast99094 |
|
|
Von:
Enrico |
Datum:
11.09.2015 12:44:38 |
Views:
3113 |
Rating:
|
Antwort:
|
Thema:
Datei vor überschreiben schützen |
|
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
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Datei vor überschreiben schützen |
11.09.2015 12:44:38 |
Enrico |
|
|
|
11.09.2015 17:22:12 |
BigBen |
|
|
|
11.09.2015 17:34:39 |
Gast87410 |
|
|
|
14.09.2015 11:11:22 |
Gast85128 |
|
|
|
14.09.2015 11:48:50 |
BigBen |
|
|
|
14.09.2015 19:14:53 |
BigBen |
|
|
|
24.09.2015 11:13:43 |
Gast99094 |
|
|