Hỏi code đóng workbook mà không save (1 người xem)

[buivankiet]

Tôi mở 2 workbook, từ workbook 1, tôi chạy một macro copy 1 range từ workbook 2 vào workbook 1, sau đó đóng workbook 2, không save ( không muốn xuất hiện hộp thoại hỏi có save hay không ?). tôi đã thử nhiều code trên diễn đàn nhưng vẫn không tự động đóng file mà không hỏi.
Nhờ giúp code tự động đóng workbook mà không hỏi.
cám ơn

 

[rollover79]

Bạn thử thêm code này để đóng workbook xem sao

<Workbook>.Close False

Ví dụ:

objWorkbook2.Close False

 

[lsxinh]

Tôi làm được rồi, cảm ơn anh Rollover79
Để đóng workbook hiện hành mà không lưu
Sub DongKhongLuu()
Thisworkbook.Close False
End Sub

 

[ndu96081631]

Tôi làm được rồi, cảm ơn anh Rollover79
Để đóng workbook hiện hành mà không lưu
Sub DongKhongLuu()
Thisworkbook.Close False
End Sub

Cẩn thận điều này:
- Cái Workbook hiện hành mà bạn đang nói đến cũng có khi là ActiveWorkbook chứ không phải Thisworkbook
- Thisworkbook, nói nôm na là Workbook chứa code VBA dùng để gọi lệnh
- Activeworkbook là cửa sổ file Excel đang hoạt động (nơi con nháy chuột đang đứng).. và nó có thể không chứa code
- Nếu trên màn hình chỉ có duy nhất 1 file Excel đang mở thì Activeworkbook và Thisworkbook là như nhau
- Nếu có từ 2 file Excel trở lên đang chạy và chúng ta viết code tại Workbook này nhưng làm việc trên Workbook khác thì phải phân biệt thật rõ 2 thuật ngữ này ---> Có khi toi công!

 

[dungnvps]

Không biết còn ai đọc bài này ko nhưng mình tìm ra đoạn này để dành có ai cần
Sub Auto_Close()
ThisWorkbook.Saved = True
End Sub

Nguồn: https://support.microsoft.com/vi-vn/kb/129153