Code tự động lưu Excel (1 người xem)

[hungvn]

Các bác cho hỏi đoạn mã Code để tự động lưu file Excel trong khoảng thời gian đặt trước mà không cần phải ấn vào nút Save. Thank !!!!

 

[tedaynui]

Bạn vào Tools / Options... / Save và đặt thời gian cho Save AutoRecover

TDN

 

[hungvn]

Tôi cũng đã làm theo cách đó nhưng khi người sử dụng thoát ra mà chọn No để không lưu thì file excell cũng không lưu. Ý tôi là để excel tự động lưu mà bất kể người sử dụng có muốn lưu hay không.

 

[Po_Pikachu]

Vậy bạn chép đoạn code này vào ThisWorkbook là được. Bạn mở file đó ra, nhấn Alt + F11 -> Nhấp đúp vào chữ ThisWorkbook và chép đoạn code này vào. Khi nào thoát khỏi Excel thì nó sẽ lưu lại hết. Bất chấp bạn có muốn hay không.

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False ThisWorkbook.Save Application.Quit End Sub

Thân.

 

[hungvn]

Bác xem lại hộ tôi file này. Thank!!!

 

[ndu96081631]

Bác xem lại hộ tôi file này. Thank!!!

Bạn đặt code sai vị trí rồi!
Đặt vào This Workbook chứ không phải trong sheet

 

[Lệnh Hồ Đại Hiệp]

Tôi cũng đã làm theo cách đó nhưng khi người sử dụng thoát ra mà chọn No để không lưu thì file excell cũng không lưu. Ý tôi là để excel tự động lưu mà bất kể người sử dụng có muốn lưu hay không.

Bạn tham khảo ở đây nhé :
Scheduling Events With OnTime And Windows Timers

Chúc vui

 

[congnguyen88]

Vậy bạn chép đoạn code này vào ThisWorkbook là được. Bạn mở file đó ra, nhấn Alt + F11 -> Nhấp đúp vào chữ ThisWorkbook và chép đoạn code này vào. Khi nào thoát khỏi Excel thì nó sẽ lưu lại hết. Bất chấp bạn có muốn hay không.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.Quit
End Sub

Thân.

Cài này cũng không đáp ứng được. ý người ta muốn là ví dụ cứ 5 phút nó tự động Lưu 1 lần ( giống nhứ cứ 5 phút ta nhấn CTrl + S 1 lần ). Code này bây giờ cúp điện thì sao, có lưu không......tôi xin trả lời luôn Code này cúp điện hok có lưu. Thành ra bạn phải viết làm sao cứ 5 phút lưu 1 lần ( số phút đó phải cho người ta thay đổi )

 

[Kiều Mạnh]

Cài này cũng không đáp ứng được. ý người ta muốn là ví dụ cứ 5 phút nó tự động Lưu 1 lần ( giống nhứ cứ 5 phút ta nhấn CTrl + S 1 lần ). Code này bây giờ cúp điện thì sao, có lưu không......tôi xin trả lời luôn Code này cúp điện hok có lưu. Thành ra bạn phải viết làm sao cứ 5 phút lưu 1 lần ( số phút đó phải cho người ta thay đổi )

Nếu Vậy Bạn thử dùng 3 code sau xem sao nha

Sub Auto_Open()
    HenGio_Save
End Sub

Sub HenGio_Save()
    Application.OnTime Now + TimeValue("00:04:59"), "AuTo_Save"
End Sub

Sub AuTo_Save()
    ActiveWorkbook.Save
    HenGio_Save
End Sub

 

[minhtuan55]

Nếu Vậy Bạn thử dùng 3 code sau xem sao nha

Sub Auto_Open()
    HenGio_Save
End Sub

Sub HenGio_Save()
    Application.OnTime Now + TimeValue("00:04:59"), "AuTo_Save"
End Sub

Sub AuTo_Save()
    ActiveWorkbook.Save
    HenGio_Save
End Sub

Code anh nó bị lỗi như bài này anh sữa lại giúp em
http://www.giaiphapexcel.com/diendan/threads/giúp-sửa-code-tự-động-lưu-theo-thời-gian.132197/

 

[Kiều Mạnh]

Code anh nó bị lỗi như bài này anh sữa lại giúp em
http://www.giaiphapexcel.com/diendan/threads/giúp-sửa-code-tự-động-lưu-theo-thời-gian.132197/

1/ code đó áp dụng cho file đó không có lỗi gì hết ...
2/ Lỗi là do bạn mở thêm file khác nữa .....trong bộ nhớ Excel nó vẫn còn nhớ đoạn code của file kia nên báo lỗi