Làm sao để Workbook tự động Update khi hệ thống thay đổi?

[ndu96081631]

Tôi dùng đoạn code dưới đây để thay đổi Date Separator trong Control panel (hổ trợ bằng hàm API)

Private Declare Function SetLocaleInfo Lib "kernel32" _
   Alias "SetLocaleInfoA" _
   (ByVal Locale As Long, _
   ByVal LCType As Long, _
   ByVal lpLCData As String) As Boolean
Private Declare Function GetUserDefaultLCID% Lib "kernel32" ()
Const DATE_SEP As Long = &H1D

Sub ChangeDateSep()
  Call SetLocaleInfo(GetUserDefaultLCID(), DATE_SEP, "-")
End Sub

Code chạy tốt nhưng vấn đề ở đây là sau khi chạy code xong phải đóng Excel rồi mở lại thì mới thấy được cập nhật mới của hệ thống
Xin hỏi: Có cách nào cập nhật thay đổi của hệ thống ngay lập tức trên file không? Vì nếu ta chỉnh Control Panel bằng tay thì rõ rằng những thay đổi được cập nhật ngay lập tức cơ mà
-------------------------------
Tôi cũng đã tìm khắp trên mạng rồi mà không có câu trả lời thỏa đáng
Tại đây người ta cũng đang thắc mắc giống tôi:
http://www.mrexcel.com/forum/showthread.php?t=68165
Hic...

 

[Nguyễn Duy Tuân]

Em cũng đang dùng giải pháp như thế này và vẫn phải khởi động lại Excel thì mới nó mới chấp nhận thay đổi. Em sẽ tìm giải pháp cập nhật ngay tại Excel, nếu được sẽ post lên.

 

[ndu96081631]

Em cũng đang dùng giải pháp như thế này và vẫn phải khởi động lại Excel thì mới nó mới chấp nhận thay đổi. Em sẽ tìm giải pháp cập nhật ngay tại Excel, nếu được sẽ post lên.

Cảm ơn bạn đã quan tâm!
Mình vẫn thấy kỳ lạ ở chổ: Tại sao mình chỉnh Control Panel bằng tay thì Excel nó cập nhật, còn dùng code thì nó không nhúc nhích nhỉ?
Tuân là chuyên gia về các hàm API... Mong rằng Tuân nghiên cứu vụ này để mình học hỏi thêm... Còn mình thì bó tay rồi