Xuất 1 sheet sang file mới có tên là ngày thang năm hiện tại bằng VBA

[siv2]

Mình có 1 file , mình cần làm như sau bằng VBA mà cà rốt quá mong các bạn giúp đỡ:
- Ở sheet Bảng Kê khi click shapes " Lưu Cuối Ngày" thì sẽ xuất sheet Lưu sang 1 file khác , file này có tên bằng với ngày tháng năm tại thời điểm hiện tại, sau đó sẽ hiện nên cửa sổ hỏi có hoặc không save file này :
+ Nếu chọn không save thì quay lại xóa vùng C6-P605 ở sheet Lưu tại file ban đầu > về sheet Bảng Kê lúc đầu tiên
+ Nếu chọn có save, thì sau đó mình sẽ chọn nơi save > save xong > quay lại xóa vùng C6-P605 ở sheet Lưu tại file ban đầu > về sheet Bảng Kê lúc đầu tiên.
Cụ thể như file kèm theo !