Giúp vấn đề chống mở File trùng tên (1 người xem)

[minhtuan55]

Chào cả nhà GPE ! Vấn để em hỏi từ 2016 đến nay mà chưa có cách nào giải quyết triệt để.Ví dụ giờ mình mở File word từ màn hình Desktop lên rồi đánh văn bản, rồi chưa tắt file word đi , mình lại mở tiếp File word từ màn hình Desktop lần 2, thì file word nó không cho mở gì cả, và cũng không hiện bản thông báo gì cả.
Còn đối với Excel thì sao. Khi mình mở 1 File X lên rồi mình cũng nhập liệu vào rồi cái mình quên Lưu Rồi mình thu nhỏ các File excel lại xuống thanh Toolbar của Window, rồi người dùng làm 1 cái gì đó ( lên Youtube mở nhạc nghe....) rồi bây giờ mở lại File Excel lúc nảy lên, mà tại Quên nên lại mở từ file X ở ngoài Dekstop ( đáng lý ra là phải mở từ Toolbar mà đả thu trước đó ) thì Excel sẽ hiện lên 1 bảng thông báo Filename’ is already open. Reopening will cause..." . Nếu File excel mình chưa Lưu thì chọn Yes thì coi Như không lưu gì cả. Rất mong các Admin giúp cho mình triệt để. Mình xin chân thành cảm ơn !

Mình có hỏi ở Đây, và cũng có người trả lời mà hình như code bị lỗi không chạy được
http://www.giaiphapexcel.com/forum/...e-chống-mở-2-file-trùng-tên-trong-Excel/page2

 

[be_09]

Chào cả nhà GPE ! Vấn để em hỏi từ 2016 đến nay mà chưa có cách nào giải quyết triệt để.Ví dụ giờ mình mở File word từ màn hình Desktop lên rồi đánh văn bản, rồi chưa tắt file word đi , mình lại mở tiếp File word từ màn hình Desktop lần 2, thì file word nó không cho mở gì cả, và cũng không hiện bản thông báo gì cả.
Còn đối với Excel thì sao. Khi mình mở 1 File X lên rồi mình cũng nhập liệu vào rồi cái mình quên Lưu Rồi mình thu nhỏ các File excel lại xuống thanh Toolbar của Window, rồi người dùng làm 1 cái gì đó ( lên Youtube mở nhạc nghe....) rồi bây giờ mở lại File Excel lúc nảy lên, mà tại Quên nên lại mở từ file X ở ngoài Dekstop ( đáng lý ra là phải mở từ Toolbar mà đả thu trước đó ) thì Excel sẽ hiện lên 1 bảng thông báo Filename’ is already open. Reopening will cause..." . Nếu File excel mình chưa Lưu thì chọn Yes thì coi Như không lưu gì cả. Rất mong các Admin giúp cho mình triệt để. Mình xin chân thành cảm ơn !

Mình có hỏi ở Đây, và cũng có người trả lời mà hình như code bị lỗi không chạy được
http://www.giaiphapexcel.com/forum/showthread.php?122882-Giúp-code-chống-mở-2-file-trùng-tên-trong-Excel/page2

Do không vào bài cũ được nên tôi trả lời cho bạn tại bài viết này (do 2 bài viết cùng nội dung trong 1 Box là vi phạm nội quy).

Nên suy nghĩ 1 cách đơn giản nhất là khi Worksheet thay đổi thì lưu, bạn sẽ được kết quả như mong muốn và chẳng hiện thông báo gì cả, click phải vào sheet dùng nhập liệu theo dõi rồi Copy đoạn code sau Paste vào.

Private Sub Worksheet_Change(ByVal Target As Range)
             ThisWorkbook.Save
End Sub

 

[be_09]

Do không vào bài cũ được nên tôi trả lời cho bạn tại bài viết này (do 2 bài viết cùng nội dung trong 1 Box là vi phạm nội quy).

Do gõ thiếu nội dung nhưng chưa có nút sửa, đành sửa kiểu này.
Nên suy nghĩ 1 cách đơn giản nhất là khi Worksheet thay đổi thì lưu, bạn sẽ được kết quả như mong muốn và chẳng hiện thông báo gì cả, click phải vào sheet dùng nhập liệu theo dõi, chọn View code rồi Copy đoạn code sau Paste vào.

Private Sub Worksheet_Change(ByVal Target As Range)
             ThisWorkbook.Save
End Sub

 

[minhtuan55]

Do không vào bài cũ được nên tôi trả lời cho bạn tại bài viết này (do 2 bài viết cùng nội dung trong 1 Box là vi phạm nội quy).

Nên suy nghĩ 1 cách đơn giản nhất là khi Worksheet thay đổi thì lưu, bạn sẽ được kết quả như mong muốn và chẳng hiện thông báo gì cả, click phải vào sheet dùng nhập liệu theo dõi rồi Copy đoạn code sau Paste vào.

Private Sub Worksheet_Change(ByVal Target As Range)
             ThisWorkbook.Save
End Sub

trời File gần 15 MB mà mỗi lần lưu mất 5 giay sao mà làm anh Nhĩ.