Xin code SaveAs có điều kiện (1 người xem)

[DavidChau]

Thưa cả nhà!
Tôi có làm một file excel để quản lí học sinh hàng năm gồm 7 sheets (tên file là DGGD). Tôi muốn tạo một nút lệnh để khi bấm vào thì tạo ra một file mới có tên là DGGDCopy1, rồi đóng file cũ (DGGD) lại, và xoá toàn bộ nội dung (ở 7 sheets) trong file mới tạo nhưng vẫn giữ nội dung ở file cũ. Tôi đã viết thử nhiều code nhưng đều thất bại.
Là một thành viên mới, ham học hỏi, nhưng kiến thức ít nên bị thất bại hoài. Kính mong Cả Nhà chỉ giúp, xin chân thành cảm ơn!

 

[moctriet]

File DGGD, 7 sheets.
Tạo code: Check việc click vào button điểu khiển các code sau đây.
1. Khi click button thì chạy code copy và rename thành file DGGDCopy1.
2. Chạy code mở file DGGDCopy1, và xóa hết 7 sheets (lưu lại hay không thì tùy bạn thêm vào)
3. Sau khi hai code trên chạy thì thực hiện đóng file lại, không lưu.

Sử dụng các từ khóa search google nếu bạn không tìm được các giải quyết từng bước cụ thể.
How to copy and rename filename by vba
How to check opened file by vba
How to delete sheets by vba
How to close file but don't save by vba

 

[DavidChau]

Xin bạn cho dùm đoạn code