Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Hallo Sepp, Speichern verhindern bei Konflikt | Herbers Excel-Forum

• Hallo Sepp, Speichern verhindern bei Konflikt von Dietmar aus Aachen vom 02.02.2010 23:01:12
• AW: Hallo Sepp, Speichern verhindern bei Konflikt - von Josef Ehrensberger am 03.02.2010 08:08:51
  • Hallo Sepp, ja fast perfekt - von Dietmar aus Aachen am 03.02.2010 09:30:15
    • AW: Hallo Sepp, ja fast perfekt - von Josef Ehrensberger am 03.02.2010 11:06:40
      • Danke Sepp > Perfektissimo! - von Dietmar aus Aachen am 03.02.2010 11:41:26

Betrifft: Hallo Sepp, Speichern verhindern bei Konflikt von: Dietmar aus Aachen
Geschrieben am: 02.02.2010 23:01:12

Hallo Sepp,

ich habe Deinen Code mal mit meiner Idee angepasst, aber es funktioniert so noch nicht.

Was ist suche ist folgendes:
- User öffnet die Datei1
- Es erfolgt dann auch immer eine Zwangsspeicherung unter C:\OrdnerXY\Datei 1 (damit Updates die Datei finden können).
- Nun geht ein User hin und speichert die Datei, sagen wir unter "Datei2" irgendwo ab, denkt sich nichts dabei und schließt die Datei2 dann wieder
- Einige Zeit später arbeitet er (so wie es sein soll) mit Datei 1 weiter, die dadurch ja hinsichtlich des Änderungsdatums aktueller wird; dann schließt er die Datei wieder usw.
- Eines Tages kommt er auf die Idee seine unter "Datei2" gespeicherte Version zu öffnen, wo ja aufgrund des Makros die Zwangsspeicherung abläuft). NUN soll die Warnung erscheinen

Könntest Du den Code nochmals in diese Denkrichtung checken ?
Herzlichen Dank!

Viele Grüße
Dietmar aus Aachen

Danke für Deine Hilfe

Option Explicit

Const cstrSaveAsName As String = "C:\OrdnerXY\datei1.xls"

Private Sub Workbook_Open()

If Dir("C:\OrdnerXY\datei1.xls", vbDirectory) = "" Then
MsgBox "Ihr Abrechnungsprogramm wird wie folgt gespeichert: C:\OrdnerXY\datei1.xls",  _
vbInformation, "Hinweis"
Else

End If

Application.DisplayAlerts = False   'Nachfrage ausschalten
ActiveWorkbook.SaveAs Filename:="C:\OrdnerXY\datei1.xls"
Application.DisplayAlerts = True    'Nachfrage einschalten



  Dim bSave As Boolean
  bSave = True
  If Dir(cstrSaveAsName) = "C:\OrdnerXY\datei1.xls" Then
    If checkFileTime(cstrSaveAsName, Me.FullName) Then
      bSave = MsgBox("Die Datei die Sie speichern wollen, ist älter" & vbLf & _
        "als die bereits vorhandene Datei!" & vbLf & vbLf & "Wollen Sie" & _
        " trotzdem fortsetzen?", vbInformation + vbYesNo + vbDefaultButton2, _
        "Hinweis") = vbYes
    End If
  End If
  If bSave Then
    Application.DisplayAlerts = False
    Me.SaveAs cstrSaveAsName
    Application.DisplayAlerts = True
  End If
End Sub

Private Function checkFileTime(ByVal strOldFile As String, ByVal strNewFile As String) As  _
Boolean
  Dim objFSO As Object, objFile As Object
  Dim dblOldFTime As Double, dblNewFTime As Double
  
  If Dir(strOldFile) = "" Then Exit Function
  If Dir(strNewFile) = "" Then Exit Function
  
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  
  Set objFile = objFSO.GetFile(strOldFile)
  dblOldFTime = objFile.DateLastModified
  
  Set objFile = objFSO.GetFile(strNewFile)
  dblNewFTime = objFile.DateLastModified
  
  checkFileTime = dblOldFTime > dblNewFTime
  
  Set objFile = Nothing
  Set objFSO = Nothing
End Function

  

Betrifft: AW: Hallo Sepp, Speichern verhindern bei Konflikt von: Josef Ehrensberger
Geschrieben am: 03.02.2010 08:08:51

Hallo Dietmar,

  

Betrifft: Hallo Sepp, ja fast perfekt von: Dietmar aus Aachen
Geschrieben am: 03.02.2010 09:30:15

Guten Morgen Sepp,


das ist schon super!

Damit könnte ich auch gut klarkommen. Was jetzt gut funktioniert ist, dass die Datei 2 (wenn sie die ältere ist) die Datei 1 nicht überschreibt. Sie wird stattdessen als Datei 2 geöffnet.

Was noch nicht funktioniert ist, dass die Warnmeldung mit der anschließenden Auswahlmöglichkeit, die Speicherung als Datei1 dennoch zu zu lassen.

Aber wie gesagt, wenns zu aufwändig wäre: ich käme auch damit gut klar; nur dass dann die ganze Prozedur in Richtung Warnmeldung überflüssig wäre.

Danke für die tolle Hilfe!

Viele Grüße aus Aachen
Dietmar

  

Betrifft: AW: Hallo Sepp, ja fast perfekt von: Josef Ehrensberger
Geschrieben am: 03.02.2010 11:06:40

Hallo Dietmar,

  

Betrifft: Danke Sepp > Perfektissimo! von: Dietmar aus Aachen
Geschrieben am: 03.02.2010 11:41:26

Hallo Sepp,

das ist absolut spitze!

Mein Respekt vor Deinen Kenntnissen wächst mit jeder Nachfrage :-)
Und dann muss ich einfach mal wieder sagen: Danke für Deine scheinbar grenzenlose Geldud!

Viele Grüße
Dietmar aus Aachen

 

Beiträge aus den Excel-Beispielen zum Thema "Hallo Sepp, Speichern verhindern bei Konflikt"