Xin code đóng các file đang mở và chỉ để lại file hiện hành

[quick87]

Kính gửi: Các Thầy và các anh chị !

Em có một vấn đề nhỏ mong các Thầy và các anh chị giúp đỡ ạ, cụ thể:
- Khi mở 1 file: " file a.xls " mới thì tất cả các workbook khác đang mở sẽ đều bị đóng lại, chỉ để lại workbook: " file a.xls "

 

[ndu96081631]

Kính gửi: Các Thầy và các anh chị !

Em có một vấn đề nhỏ mong các Thầy và các anh chị giúp đỡ ạ, cụ thể:
- Khi mở 1 file: " file a.xls " mới thì tất cả các workbook khác đang mở sẽ đều bị đóng lại, chỉ để lại workbook: " file a.xls "

Cho code này vào 1 Module của file hiện hành:

Sub Auto_Open()
  Dim wkb As Workbook
  For Each wkb In Application.Workbooks
    If UCase(wkb.Name) <> UCase(ThisWorkbook.Name) Then
      wkb.Close True '<--- Đóng và lưu
      'hoặc wkb.Close False '<--- Đóng và không lưu
    End If
  Next
End Sub

 

[quick87]

Em cảm ơn Thầy đã giúp đỡ.
Em có test thử thì code không tự động đóng các file excel mở từ file nén ( winrar ) thì phải thầy ạ.
Nó hiện ta thông báo cho mình chọn Save file, làm thế nào để nó tự đóng mà không phải click vô cái nút Save thầy ạ?

Mong thầy chỉ dạy thêm!
Em xin cảm ơn !

 

[ndu96081631]

Em cảm ơn Thầy đã giúp đỡ.
Em có test thử thì code không tự động đóng các file excel mở từ file nén ( winrar ) thì phải thầy ạ.
Nó hiện ta thông báo cho mình chọn Save file, làm thế nào để nó tự đóng mà không phải click vô cái nút Save thầy ạ?

Mong thầy chỉ dạy thêm!
Em xin cảm ơn !

File mở từ đâu nó cũng đóng cả, chỉ yêu cầu các file Excel được mở trên cùng 1 Session
Ví dụ thế này là mở trên 2 session:
- Bạn mở file excel từ WinRAR
- Xong, bạn khởi động Excel mới, chọn Open và mở file của bạn (có chứa code)
Tính từ lúc này, file có chứa code sẽ không "nhìn thấy" file mở từ WinRAR
Nói chung, khi mở bất cứ file nào, cứ double click vào nó để mở là được. Còn nếu khởi động phiên làm việc Excel mới, xong mở file từ hộp Open thì.. thua
Còn cái vụ hiện thông báo Save file thì.. không thể nào. Ở trên code viết thế này: wkb.Close True nghĩa là ĐÓNG VÀ LƯU FILE rồi còn gì, làm sao có cái vụ hiện thông báo được

 

[quick87]

File mở từ đâu nó cũng đóng cả, chỉ yêu cầu các file Excel được mở trên cùng 1 Session
Ví dụ thế này là mở trên 2 session:
- Bạn mở file excel từ WinRAR
- Xong, bạn khởi động Excel mới, chọn Open và mở file của bạn (có chứa code)
Tính từ lúc này, file có chứa code sẽ không "nhìn thấy" file mở từ WinRAR
Nói chung, khi mở bất cứ file nào, cứ double click vào nó để mở là được. Còn nếu khởi động phiên làm việc Excel mới, xong mở file từ hộp Open thì.. thua
Còn cái vụ hiện thông báo Save file thì.. không thể nào. Ở trên code viết thế này: wkb.Close True nghĩa là ĐÓNG VÀ LƯU FILE rồi còn gì, làm sao có cái vụ hiện thông báo được

Em cảm ơn Thầy đã chỉ dạy ạ, cái nút save em nói như hình phía dưới:

File excel em mở trực tiếp từ mail, khi em chạy code thì nó xuất hiện hộp thoại đó Thầy ạ !

 

[ndu96081631]

Em cảm ơn Thầy đã chỉ dạy ạ, cái nút save em nói như hình phía dưới:

File excel em mở trực tiếp từ mail, khi em chạy code thì nó xuất hiện hộp thoại đó Thầy ạ !

Thì phải rồi. File mở từ mail có thuộc tính Read Only, bạn Save đương nhiên nó không chịu
Bạn chỉ có thể đóng và không lưu thôi
(nếu lưu ắc nó sẽ hỏi)
Mà tại sao bạn không download về máy tính đàng hoàng
(ghét nhất là cái kiểu mở file trực tiếp từ diễn đàn, từ WinRAR, từ mail... code nó đếch biết mấy vụ này đâu)