Auto Save để update CSDL khi share workbook (6 người xem)

[thanhtaiteo]

Cao nhân nào hướng dẫn giúp em cách đặt Auto save để update dữ liệu khi share workbook với .

Chức năng Save auto recover information every chỉ save lại để có file restore khi bị tắt đột ngột,

Hiện giờ em muốn update dữ liệu cho người khác thấy em phải nhấp save bằng tay thì mới dc .

Có anh chị nào giúp em cách tự động save để update vơi

Chân thàn cám ơn

 

[thanhtaiteo]

Haizzz sau tám ngày post bài hem ai trả lời thì đi hỏi khắp nơi được bác befaint trong GPE bày cho 1 cách macro

ai gặp trường hợp này thì dùng cách này nhé

Sub autosave()
' goi run macro 5 phut 1 lan
' Keyboard Shortcut: Ctrl+q
   Range("A8").Select
   ActiveWorkbook.Save
call CallAutoSave
End Sub
Sub CallAutoSave()
Application.OnTime Now + TimeValue("00:01:00"), "autosave"
End Sub

 

[thoai]

Haizzz sau tám ngày post bài hem ai trả lời thì đi hỏi khắp nơi được bác befaint trong GPE bày cho 1 cách macro

ai gặp trường hợp này thì dùng cách này nhé

Sub autosave()
' goi run macro 5 phut 1 lan
' Keyboard Shortcut: Ctrl+q
   Range("A8").Select
   ActiveWorkbook.Save
call CallAutoSave
End Sub
Sub CallAutoSave()
Application.OnTime Now + TimeValue("00:01:00"), "autosave"
End Sub

Code này lưu sau khi bấm nút ở cell A8 khoang 1 phút hả bạn. Có thể la 30s được không, nó khác gì so voi chức năng auto sản

 

[thanhtaiteo]

Range("A8").Select

Khi share workbook nhiều người dùng 1 file gốc update dữ liệu thì phải Save như thế này, user con mới update dc thông tin .

Còn AutoSave chỉ có chức năng, phục hồi lại khi bạn bị thoát file đột ngột

cái này mình quên, nó thừa, .

Sub autosave()
' goi run macro 5 phut 1 lan
' Keyboard Shortcut: Ctrl+q
   ActiveWorkbook.Save
call CallAutoSave
End Sub
Sub CallAutoSave()
Application.OnTime Now + TimeValue("00:30:00"), "autosave"
End Sub

Code này lưu sau khi bấm nút ở cell A8 khoang 1 phút hả bạn. Có thể la 30s được không, nó khác gì so voi chức năng auto sản

 

[thoai]

Range("A8").Select

Khi share workbook nhiều người dùng 1 file gốc update dữ liệu thì phải Save như thế này, user con mới update dc thông tin .

Còn AutoSave chỉ có chức năng, phục hồi lại khi bạn bị thoát file đột ngột

cái này mình quên, nó thừa, .

Sub autosave()
' goi run macro 5 phut 1 lan
' Keyboard Shortcut: Ctrl+q
   ActiveWorkbook.Save
call CallAutoSave
End Sub
Sub CallAutoSave()
Application.OnTime Now + TimeValue("00:30:00"), "autosave"
End Sub

thừa cái này đúng k bạn: Range("A8").Select . Cái thủ tục gọi ActiveWorkbook.Save là nó đã lưu rồi vậy còn gọi lưu tự động sau 1 phut. code này chép vào this workbook hay vào modul vậy

 

[thanhtaiteo]

thừa cái này đúng k bạn: Range("A8").Select . Cái thủ tục gọi ActiveWorkbook.Save là nó đã lưu rồi vậy còn gọi lưu tự động sau 1 phut. code này chép vào this workbook hay vào modul vậy

Module nha bạn, tùy theo mục đích sử dụng mà Set Workbook cho nó hoặc All

 

[thoai]

Module nha bạn, tùy theo mục đích sử dụng mà Set Workbook cho nó hoặc All

Code này có một vấn đề là khi bạn mở 2 file excel lên va lưu là nó sẽ căn theo thời gian gán luu tự động để luu cả 2 file. Có cách nao để cho nó chỉ luu tự động file mình cần luu. File kia van dung binh thuong k cân luu được k!

 

[giaiphap]

Code này có một vấn đề là khi bạn mở 2 file excel lên va lưu là nó sẽ căn theo thời gian gán luu tự động để luu cả 2 file. Có cách nao để cho nó chỉ luu tự động file mình cần luu. File kia van dung binh thuong k cân luu được k!

Bạn sửa chổ activeworkbook thành thisworkbook xem thế nào.

 

[thoai]

Bạn sửa chổ activeworkbook thành thisworkbook xem thế nào.

K dc ban ah. Có cách nao khác không

 

[giaiphap]

K dc ban ah. Có cách nao khác không

Bạn thử chưa, tôi thực hiện được mà.