Tự động sao lưu dữ liệu

[doanhhoang79]

Chào các anh chị,

Với sự giúp đỡ của bạn hoa35ktxd tối đã tạo cho mình một file sao lưu dữ liệu vào ngày 31/12. Tuy nhiên tôi muốn nó tự động sao lưu vào lúc 17h00 ngày 31/12 hàng năm dựa vào thời gian của hệ thống máy tính mà không cần click nút sao lưu (Đề phòng người sử dụng quên không sao lưu). Không biết có cách nào không???

Tôi gửi file đính kèm mong các cao thủ tư vấn giúp

 

[hoa35ktxd]

Vì trong VBA không có control Timer nên việc kiểm tra sự kiện tức thời có lẽ là rất khó khăn.
Theo tôi thì ta hãy tạo 1 giá trị và lưu vào 1 nơi nào đó trên file mỗi lần sao lưu. Sau đó mỗi lần mở file hoặc đóng file thì tiến hành kiểm tra.
Ví dụ: Mỗi lần sao lưu thì ghi giá trị ngày tháng tiến hành vào ô A1
Khi mở hoặc đóng sẽ kiểm tra xem từ lần sao lưu trước đến thời điểm hiện tại, nếu quá 1 năm thì yêu cầu sao lưu.

 

[doanhhoang79]

Vì trong VBA không có control Timer nên việc kiểm tra sự kiện tức thời có lẽ là rất khó khăn.
Theo tôi thì ta hãy tạo 1 giá trị và lưu vào 1 nơi nào đó trên file mỗi lần sao lưu. Sau đó mỗi lần mở file hoặc đóng file thì tiến hành kiểm tra.
Ví dụ: Mỗi lần sao lưu thì ghi giá trị ngày tháng tiến hành vào ô A1
Khi mở hoặc đóng sẽ kiểm tra xem từ lần sao lưu trước đến thời điểm hiện tại, nếu quá 1 năm thì yêu cầu sao lưu.

Cảm ơn bạn, bạn nói cụ thể hơn được không hoặc 01 ví dụ cụ thể được không?

 

[hoa35ktxd]

Đây là ví dụ cụ thể. Bạn nghiên cứu để vận dụng nhé.

Private Sub Workbook_Activate()
    Dim YeaDay As Long
    YeaDay = DateSerial(Year(Now), Month(Now), Day(Now)) - DateSerial(Year(Now) - 1, Month(Now), Day(Now))
    If DateValue(Now) - DateValue(ThisWorkbook.Sheets(1).Cells(1, 1).Value) >= YeaDay Then
        MsgBox "Hay sao luu tai lieu"
    End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI Then
        ThisWorkbook.Sheets(1).Cells(1, 1).Value = DateValue(Now)
    End If
End Sub

From Doanhhoang79:

Cảm ơn bạn hoa35ktxd nhé