bei öffnen einer Datei Speicherabfrage

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
dann in das Modul DieseArbeitsmappe:

Option Explicit

Private Sub Workbook_Open()

    Const BACKUP_DATE As String = "BackupDate"
    Const BACKUP_PATH As String = "BackupPath"

    Dim dprItem As DocumentProperty
    Dim blnFound As Boolean

    If Not ReadOnly Then

        For Each dprItem In CustomDocumentProperties
            If dprItem.Name = BACKUP_DATE Then
                blnFound = True
                Exit For
            End If
        Next

        If Not blnFound Then
            Call CustomDocumentProperties.Add(Name:=BACKUP_DATE, _
                LinkToContent:=False, Value:=Date - 1, Type:=msoPropertyTypeDate)
            Call CustomDocumentProperties.Add(Name:=BACKUP_PATH, _
                LinkToContent:=False, Value:=Path & "\", Type:=msoPropertyTypeString)
        End If

        If CustomDocumentProperties.Item(BACKUP_DATE) < Date Then

            If MsgBox("Die Datei wurde heute das erste mal geöffnet. Soll die letzte Version " & _
                "gesichert werden?", vbQuestion Or vbYesNo, "Backup anlegen") = vbYes Then

                With Application.FileDialog(msoFileDialogSaveAs)

                    .InitialFileName = CustomDocumentProperties.Item(BACKUP_PATH) & _
                        Left$(Name, InStrRev(Name, ".") - 1) & Format(Date, "_yyyy_nn_dd")
                    .FilterIndex = 2

                    If .Show Then

                        CustomDocumentProperties.Item(BACKUP_DATE).Value = Date
                        CustomDocumentProperties.Item(BACKUP_PATH).Value = _
                            Left$(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))

                        Save

                        SaveCopyAs (.SelectedItems(1))

                    End If
                End With
            End If
        End If
    End If
End Sub

Gruß
Nepumk

Hallo,
3 winzige Änderungen eingebaut:

Option Explicit

Private Sub Workbook_Open()

    Const BACKUP_DATE As String = "BackupDate"
    Const BACKUP_PATH As String = "BackupPath"

    Dim dprItem As DocumentProperty
    Dim blnFound As Boolean

    If Not ReadOnly Then

        For Each dprItem In CustomDocumentProperties
            If dprItem.Name = BACKUP_DATE Then
                blnFound = True
                Exit For
            End If
        Next

        If Not blnFound Then
            Call CustomDocumentProperties.Add(Name:=BACKUP_DATE, _
                LinkToContent:=False, Value:=Date - 1, Type:=msoPropertyTypeDate)
            Call CustomDocumentProperties.Add(Name:=BACKUP_PATH, _
                LinkToContent:=False, Value:=Path & "\", Type:=msoPropertyTypeString)
        End If

        If CustomDocumentProperties.Item(BACKUP_DATE) < Date Then

            If MsgBox("Die Datei wurde heute das erste mal geöffnet. Soll die letzte Version " & _
                "gesichert werden?", vbQuestion Or vbYesNo, "Backup anlegen") = vbYes Then

                With Application.FileDialog(msoFileDialogSaveAs)

                    .InitialFileName = CustomDocumentProperties.Item(BACKUP_PATH) & _
                        Left$(Name, InStrRev(Name, ".") - 1) & Format(Date, "_yyyy_mm_dd")
                    .FilterIndex = 2

                    If .Show Then

                        CustomDocumentProperties.Item(BACKUP_DATE).Value = Date
                        CustomDocumentProperties.Item(BACKUP_PATH).Value = _
                            Left$(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))

                        Call Save

                        Call SaveCopyAs(.SelectedItems(1))

                    End If
                End With
            End If
        End If
    End If
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

bei öffnen einer Datei Speicherabfrage

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

157 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

bei öffnen einer Datei Speicherabfrage

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

157 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread