Tạo File Excel đóng Tất Cả Các Workbook đang Mở Bằng VBA

Giải Pháp Excel
  • Trang chủ Có gì mới Hoạt động gần nhất Tác giả
  • Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
  • Video New Video về Excel Video về tin học khác Tin tức về tin học chung
  • Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
  • Tài nguyên Đánh giá mới nhất Tìm tài nguyên
  • Facebook
  • Đóng góp
Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…
  • Tìm bài viết mới
  • Tìm theo chuyên mục
Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

  • Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc
  • Trang chủ
  • Diễn đàn
  • Lập Trình với Excel
You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Tạo file excel đóng tất cả các workbook đang mở bằng VBA (1 người xem)
  • Thread starter Thread starter ads_ads
  • Ngày gửi Ngày gửi 8/2/13
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) A

ads_ads

Thành viên mới
Tham gia 15/1/13 Bài viết 21 Được thích 5 Em muốn tạo một file excel mà khi em mở nó ra thì tất cả các file excel đang mở khác tự động save và đóng lại, màn hình chỉ hiện mỗi file em mở thôi. Các anh giúp em tạo đoạn code VBA đó được không ạ? Em xin cảm ơn trước. Sắp xếp theo thời gian sắp xếp theo bầu chọn A

ads_ads

Thành viên mới
Tham gia 15/1/13 Bài viết 21 Được thích 5 Cuối cùng em cũng mò được trên mạng, em xin chia sẻ nếu ai thấy cần }}}}}
Sub Auto_Open()'This sub will close all workbooks 'except the workbook in which the code is located. 'Thanks to http://support.microsoft.com/kb/147742 Dim WkbkName As Object On Error GoTo Close_Error Application.ScreenUpdating = False For Each WkbkName In Application.Workbooks() If WkbkName.Name <> ThisWorkbook.Name Then WkbkName.Close Next 'If everything runs all right, exit the sub. Exit Sub 'Error handler. Close_Error: MsgBox Str(Err) & " " & Error() Resume Next End Sub Nhấp chuột vào đây để mở rộng...
Upvote 0 ndu96081631

ndu96081631

Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,981
ads_ads đã viết: Cuối cùng em cũng mò được trên mạng, em xin chia sẻ nếu ai thấy cần }}}}} Nhấp chuột vào đây để mở rộng...
Dám cá với bạn code này không ăn thua. Nó sẽ chẳng đóng được những file excel mở trên các session khác nhau Ví dụ thay vì người ta double click vào biểu tượng file để mở file thì người ta lại làm khác: - Khởi động Excel (từ Start menu\Program) - Xong, bấm Open để mở 1 file Excel - Tiếp theo lại khởi động Excel lần nữa rồi lại bấm Open để mở file khác - Với 2 lần Open như vậy thì 2 file Excel trên sẽ được xem là nằm trên 2 session khác nhau - Bây giờ, nếu ta khởi động Excel, bấm Open để mở file đang chứa code thì chắc chắn rằng code của ta không biết có sự tồn tại của 2 file Excel đã mở trước đó ------------- Bạn thí nghiệm sẽ biết Upvote 0 A

ads_ads

Thành viên mới
Tham gia 15/1/13 Bài viết 21 Được thích 5
ndu96081631 đã viết: Dám cá với bạn code này không ăn thua. Nó sẽ chẳng đóng được những file excel mở trên các session khác nhau Ví dụ thay vì người ta double click vào biểu tượng file để mở file thì người ta lại làm khác: - Khởi động Excel (từ Start menu\Program) - Xong, bấm Open để mở 1 file Excel - Tiếp theo lại khởi động Excel lần nữa rồi lại bấm Open để mở file khác - Với 2 lần Open như vậy thì 2 file Excel trên sẽ được xem là nằm trên 2 session khác nhau - Bây giờ, nếu ta khởi động Excel, bấm Open để mở file đang chứa code thì chắc chắn rằng code của ta không biết có sự tồn tại của 2 file Excel đã mở trước đó ------------- Bạn thí nghiệm sẽ biết Nhấp chuột vào đây để mở rộng...
E đã test theo cách của anh và thấy đúng. Nhưng khổ nỗi cái file excel cùi của em nó cứ lỗi lung tung nếu có các file excel khác đang mở. Giờ em muốn khi file của em được mở lên thì các file excel đang mở khác được save và đóng lại, và không cho mở thêm bất kỳ file excel nào khác nữa cho đến khi file của em đóng lại (chẳng phải pro gì, chỉ đơn giản là em không muốn cái file của em mắc lỗi mà thôi :)) ) Mò trên mạng mấy hôm rùi mà không thấy, mà tự viết code thì em chịu. Upvote 0 ndu96081631

ndu96081631

Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,981
ads_ads đã viết: E đã test theo cách của anh và thấy đúng. Nhưng khổ nỗi cái file excel cùi của em nó cứ lỗi lung tung nếu có các file excel khác đang mở.. Nhấp chuột vào đây để mở rộng...
Vậy sao không trị tận gốc cho nó? File của bạn bị lỗi thì trị chính file ấy, mắc mớ gì file khác? Đưa file của lên xem thử nào! Upvote 0 MinhKhai

MinhKhai

Giải pháp Ếc-xào
Tham gia 16/4/08 Bài viết 941 Được thích 574
ndu96081631 đã viết: Vậy sao không trị tận gốc cho nó? File của bạn bị lỗi thì trị chính file ấy, mắc mớ gì file khác? Đưa file của lên xem thử nào! Nhấp chuột vào đây để mở rộng...
Chào bác, xin phép được chen ngang 1 câu hỏi ngắn do chủ topic không thấy gửi file. Em xin code để: khi mở file A thì file B (D:\ABC\B.xls) cũng tự động mở theo và tự động đóng lại ngay mà không save. (Lý do là file A có dùng Vlookup để lấy dữ liệu trong file B, File B được thay đổi thường xuyên, nếu khi làm việc với file A mà ko mở file B lúc đó thì các hàm Vlookup không chịu cập nhật thông tin mới) Upvote 0 Quang_Hải

Quang_Hải

Thành viên gạo cội
Tham gia 21/2/09 Bài viết 6,077 Được thích 8,011 Nghề nghiệp Làm đủ thứ
MinhKhai đã viết: Chào bác, xin phép được chen ngang 1 câu hỏi ngắn do chủ topic không thấy gửi file. Em xin code để: khi mở file A thì file B (D:\ABC\B.xls) cũng tự động mở theo và tự động đóng lại ngay mà không save. (Lý do là file A có dùng Vlookup để lấy dữ liệu trong file B, File B được thay đổi thường xuyên, nếu khi làm việc với file A mà ko mở file B lúc đó thì các hàm Vlookup không chịu cập nhật thông tin mới) Nhấp chuột vào đây để mở rộng...
Đại khái thế này thì phải PHP: Sao chép. Sub mofile() Workbooks.Open duongdantenfile Workbooks("tenfile").Close False End Sub Upvote 0 Đ

Đoàn Ngoc Đức

Thành viên mới
Tham gia 29/11/19 Bài viết 7 Được thích 0
ndu96081631 đã viết: Dám cá với bạn code này không ăn thua. Nó sẽ chẳng đóng được những file excel mở trên các session khác nhau Ví dụ thay vì người ta double click vào biểu tượng file để mở file thì người ta lại làm khác: - Khởi động Excel (từ Start menu\Program) - Xong, bấm Open để mở 1 file Excel - Tiếp theo lại khởi động Excel lần nữa rồi lại bấm Open để mở file khác - Với 2 lần Open như vậy thì 2 file Excel trên sẽ được xem là nằm trên 2 session khác nhau - Bây giờ, nếu ta khởi động Excel, bấm Open để mở file đang chứa code thì chắc chắn rằng code của ta không biết có sự tồn tại của 2 file Excel đã mở trước đó ------------- Bạn thí nghiệm sẽ biết Nhấp chuột vào đây để mở rộng...
Em đang gặp trường hợp như thế. Có giải pháp nào để ta gộp hai session lại một không ạ Upvote 0 thnghiachau

thnghiachau

Chỉ biết ngồi BÈ và PHÁN chuyện!!!
Tham gia 14/9/09 Bài viết 844 Được thích 710 Giới tính Nam Nghề nghiệp Search
ndu96081631 đã viết: Dám cá với bạn code này không ăn thua. Nó sẽ chẳng đóng được những file excel mở trên các session khác nhau Ví dụ thay vì người ta double click vào biểu tượng file để mở file thì người ta lại làm khác: - Khởi động Excel (từ Start menu\Program) - Xong, bấm Open để mở 1 file Excel - Tiếp theo lại khởi động Excel lần nữa rồi lại bấm Open để mở file khác - Với 2 lần Open như vậy thì 2 file Excel trên sẽ được xem là nằm trên 2 session khác nhau - Bây giờ, nếu ta khởi động Excel, bấm Open để mở file đang chứa code thì chắc chắn rằng code của ta không biết có sự tồn tại của 2 file Excel đã mở trước đó ------------- Bạn thí nghiệm sẽ biết Nhấp chuột vào đây để mở rộng...
Thầy @ndu96081631 ơi, em thử làm như thầy nói là mở file excel theo session khác nhau và em dùng code: Mã: Sao chép. Sub CloseAllFiles() Dim wb As Workbook For Each wb In Application.Workbooks If wb.Name <> ThisWorkbook.Name Then wb.Close SaveChanges:=True End If Next wb End Sub Và e kiểm tra thì thấy nó vẫn đóng hết toàn bộ file mở cùng hay khác session đó ạ... Cứ mỗi làm vào một Session mới là em open excel từ START, rùi em open file trong cửa sổ Excel vừa mở mới... Không biết em có sai gì không? Cám ơn thầy nhiều Upvote 0 befaint

befaint

|||||||||||||
Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840
thnghiachau đã viết: START Nhấp chuột vào đây để mở rộng...
1595306657735.png Upvote 0 thnghiachau

thnghiachau

Chỉ biết ngồi BÈ và PHÁN chuyện!!!
Tham gia 14/9/09 Bài viết 844 Được thích 710 Giới tính Nam Nghề nghiệp Search
befaint đã viết: View attachment 241547 Nhấp chuột vào đây để mở rộng...
ah, thì ra là mở Excel theo kiểu này thì đúng là không thể close hết tất file khác session bằng code của mình dc. Cám ơn bác @befaint nha.... Upvote 0 Đ

Đoàn Ngoc Đức

Thành viên mới
Tham gia 29/11/19 Bài viết 7 Được thích 0
thnghiachau đã viết: ah, thì ra là mở Excel theo kiểu này thì đúng là không thể close hết tất file khác session bằng code của mình dc. Cám ơn bác @befaint nha.... Nhấp chuột vào đây để mở rộng...
Có cách nào để nó đóng tất cả các file khác session không bác Upvote 0 truongvu317

truongvu317

Thành viên tích cực
Tham gia 15/11/10 Bài viết 957 Được thích 699 Giới tính Nữ
thnghiachau đã viết: session bằng code của mình dc. Nhấp chuột vào đây để mở rộng...
nhiều sesion thì vào từng sesion mà đóng file hết lại chứ nhờ, Upvote 0 Đ

Đoàn Ngoc Đức

Thành viên mới
Tham gia 29/11/19 Bài viết 7 Được thích 0
truongvu317 đã viết: nhiều sesion thì vào từng sesion mà đóng file hết lại chứ nhờ, Nhấp chuột vào đây để mở rộng...
Không có cách nào dùng code để đóng à bá Upvote 0 lehungpharmacist

lehungpharmacist

Thành viên mới
Tham gia 21/7/20 Bài viết 3 Được thích 0 Khó nhỉ. chắc phải viết phần mềm riêng chứ Upvote 0 truongvu317

truongvu317

Thành viên tích cực
Tham gia 15/11/10 Bài viết 957 Được thích 699 Giới tính Nữ
Đoàn Ngoc Đức đã viết: Không có cách nào dùng code để đóng à bá Nhấp chuột vào đây để mở rộng...
Dùng code để đóng, chứ ai đóng bằng tay. Upvote 0 Đ

Đoàn Ngoc Đức

Thành viên mới
Tham gia 29/11/19 Bài viết 7 Được thích 0
truongvu317 đã viết: Dùng code để đóng, chứ ai đóng bằng tay. Nhấp chuột vào đây để mở rộng...
Bác cho em xin code được không ạ Upvote 0 truongvu317

truongvu317

Thành viên tích cực
Tham gia 15/11/10 Bài viết 957 Được thích 699 Giới tính Nữ Hướng làm là như vậy, còn cụ thể ra sao thì hiện giờ mình chưa nghĩ ra. Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

S TỰ ĐỘNG CẬP NHẬT DỮ LIỆU (3 người xem)
  • sangdennh
  • Thứ sáu lúc 09:55
  • Hàm và công thức Excel
Trả lời 14 Đọc 394 35 phút trước le_vis L V Giúp tạo bảng phân công lịch trực tự động (4 người xem)
    • Cười
  • vudaicacvatn
  • Thứ tư lúc 17:05
  • Những vấn đề chung
Trả lời 5 Đọc 171 46 phút trước vudaicacvatn V SA_DQ Copilot bình luận các ván cờ vua từng ngày.
    • Thích
  • SA_DQ
  • 3/11/25
  • Chia sẻ
Trả lời 23 Đọc 956 Hôm nay lúc 06:35 SA_DQ SA_DQ T Mọi người giúp mình lập bảng tính sao hạn ạ (2 người xem)
  • thinhthien1
  • Hôm qua, lúc 22:23
  • Tìm kiếm, dò tìm và tham chiếu
Trả lời 1 Đọc 46 Hôm nay lúc 06:15 Phan Thế Hiệp Phan Thế Hiệp Momominh hỏi về công thức tách kí tự từ chuỗi (2 người xem)
  • Momominh
  • Thứ bảy lúc 11:52
  • Hàm và công thức Excel
Trả lời 9 Đọc 183 Hôm nay lúc 03:24 DeTong D zonmaomao File.xlsx hay bị tự động out, khi mở lại báo lỗi repaired và chỉ lưu được đến lần last saved gần nhất ạ
  • zonmaomao
  • Thứ sáu lúc 21:50
  • Giải thích, gỡ rối, xử lý lỗi công thức
Trả lời 3 Đọc 90 Hôm qua, lúc 12:38 huhumalu H T Nhờ làm file excel quản lý kho N-X-T theo vị trí
    • Thích
  • Tuan_Leok
  • 1/11/18
  • Excel Ứng Dụng
Trả lời 15 Đọc 6K Thứ bảy lúc 18:11 thanhphongtslocphat thanhphongtslocphat NguyenNgocThuHien
  • Question Question
Liệt kê tổ hợp chập k của nhóm n phần tử.
    • Thích
    • Yêu thích
  • NguyenNgocThuHien
  • 5/12/17
  • Lập Trình với Excel
Trả lời 55 Đọc 19K Thứ sáu lúc 14:14 tohop T G Em xin hỏi hàm Vlook up ạ!
  • giangong
  • Thứ sáu lúc 10:23
  • Hàm và công thức Excel
Trả lời 1 Đọc 75 Thứ sáu lúc 10:38 dungpham01 D PhanTuHuong Chương trình lập Báo cáo khảo sát Địa chất công trình GeoSection
    • Thích
  • PhanTuHuong
  • 7/10/21
  • Xây dựng ứng dụng.
Trả lời 10 Đọc 7K Thứ năm lúc 14:52 PhanTuHuong PhanTuHuong 2 Xin hỏi về Công thức tính tiết theo PPCT (phân phối chương trình) trong Lịch báo giảng tự động
  • 2013myvietnam
  • Thứ tư lúc 20:22
  • Excel và Giáo Dục
Trả lời 9 Đọc 311 Thứ năm lúc 14:25 2013myvietnam 2 GPE-Trợ Lý [GPE21] ỨNG DỤNG POWER QUERY TRONG ĐỐI CHIẾU DỮ LIỆU HÓA ĐƠN ĐIỆN TỬ VÀ DỮ LIỆU KẾ TOÁN (1 người xem)
    • Thích
  • GPE-Trợ Lý
  • 21/12/25
  • Học tập Online
Trả lời 1 Đọc 10K Thứ năm lúc 05:26 GPE-Trợ Lý GPE-Trợ Lý hanhlx88 Nhờ các cao nhân chỉ giúp file excel quá nặng. không không biết nguyên nhân
  • hanhlx88
  • 29/12/25
  • Giải thích, gỡ rối, xử lý lỗi công thức
Trả lời 5 Đọc 236 Thứ tư lúc 22:56 Mr.hieudoanxd Mr.hieudoanxd Q Nhờ các anh chị giúp cho công thức đếm số khách hàng theo File đính kèm
  • QUANSUNG
  • 29/12/25
  • Hướng dẫn sử dụng các hàm trong Excel
Trả lời 8 Đọc 282 Thứ tư lúc 16:31 dungpham01 D T Nhờ các Pro giúp thiết lập bảng excel (1 người xem)
  • thanhkybk
  • 29/12/25
  • Hàm và công thức Excel
Trả lời 10 Đọc 458 Thứ tư lúc 15:19 thanhkybk T D
  • Question Question
Tách dòng tự động theo điều kiện bằng VBA
    • Cười
  • duongnhuxuyen
  • 12/12/25
  • Lập Trình với Excel
Trả lời 20 Đọc 772 Thứ ba lúc 10:32 ptm0412 ptm0412 D Công thức tính thuế TNCN cho người lao động nước ngoài
  • Dinh Hong Nhung
  • 29/12/25
  • Hàm và công thức Excel
Trả lời 1 Đọc 212 29/12/25 Phan Thế Hiệp Phan Thế Hiệp D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc (4 người xem)
  • Dinh Hong Nhung
  • 11/12/25
  • Hàm và công thức Excel
Trả lời 16 Đọc 2K 29/12/25 dungpham01 D L [Nhờ giúp đỡ] Tìm khoảng thời gian bị gối, hoặc trùng nhau
  • Lá chanh
  • 26/12/25
  • Hàm và công thức Excel
Trả lời 8 Đọc 248 29/12/25 lamvankhoat1 L B Tính 1 đồng Doanh thu thuần mang về thì còn lại được bao nhiêu đồng EBITDA (1 người xem)
  • Bobby52
  • 27/12/25
  • Hàm và công thức Excel
Trả lời 0 Đọc 127 27/12/25 Bobby52 B Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

  • sangdennh 7
  • Phan Thế Hiệp 6
  • dungpham01 5
  • 2013myvietnam 4
  • DeTong 4
  • Duy Tùng 9x 3
  • thanhphongtslocphat 2
  • zonmaomao 2
  • huhumalu 2
  • SA_DQ 2
  • thanthanhan 1
  • huuthang_bd 1
  • PhanTuHuong 1
  • giangong 1
  • tohop 1
  • Momominh 1
  • thinhthien1 1
  • vudaicacvatn 1
  • le_vis 1

Thành viên có điểm tương tác cao nhất tháng

  • Phan Thế Hiệp 15
  • 2013myvietnam 5
  • dungpham01 3
  • thanthanhan 2
  • PhanTuHuong 2
  • huhumalu 2
  • Duy Tùng 9x 1
  • SA_DQ 1

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025
  • Trang chủ
  • Diễn đàn
  • Lập Trình với Excel
  • Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…
Back Top Bottom

Từ khóa » Mở Workbook Bằng Vba