Hỏi về save as file (1 người xem)

[matran25251325]

Chủ đề này trên diễn đàn em có xem 1 số nhưng hình như không có chủ đề nào sát với ý em lắm. Nay em xin mạn phép hỏi về 2 trường hợp save as mong các anh giúp:
+ Trường hợp 1: Em có file gốc là file A, khi em mở file A lên làm việc thì file sẽ tự save as 1 file B và đóng file A lại (vì đôi lúc làm việc em quên tạo file khác mà làm trên file gốc luôn và file B vẫn giữ các code như file A).
+ Trường hợp 2: File gốc là file A, khi mở file A lên thì tự save as file B. File A ẩn đi, file B thì không có code và sử dụng code trên file A đang ẩn (khi tạo file B thì code trong workbook, Form, module sẽ bị xóa hết)
Mong các anh xem và giúp. Nếu có link về bài viết này trên diễn đàn thì cho em xin cũng được (có thể search mà em chưa thấy). Thank

 

[haonlh]

Tôi chỉ bình luận trường hợp 1 thôi nha

Đầu tiên, ta mở file A thì nó tự save as thanh BA (thêm B vào đầu tên file vừa mở)

lần làm việc tiếp, bạn muốn mở file mới nhất, là BA và bạn làm việc với BBA


như vậy file A và BA trở thành "thừa" vì nó chỉ chứa nội dung cũ. Và file rác sẽ nhiều lắm.

Tóm lại là không nên tự động mà phải tự mình save as những file mà mình tự chọn

 

[pro8x]

bạn tahm khảo topic này nhé
http://www.giaiphapexcel.com/forum/showthread.php?84992-Code-save-as-sheet-hiện-hành

 

[matran25251325]

bạn tahm khảo topic này nhé
http://www.giaiphapexcel.com/forum/showthread.php?84992-Code-save-as-sheet-hiện-hành

Dạ bài này em có xem rồi nhưng ko biết nó chạy thế nào vì chạy code bị báo lỗi chỗ xlExcel8 nên ko bít có đúng với mong muốn ko. Mà hình như link đó hỏi về sheet hiện hành thì phải, còn em hỏi là file hiện hành. Còn nếu nói như bác haonlh thì em cũng nói như trên là đôi lúc quên hay làm trên file chính và ae trong phòng cũng thế. Nên em mới hỏi 2 vấn đề đó, hoặc cũng có thể bẫy lỗi sao cho khi làm việc trên file A thì ko cho và bắt phải save as mới được.

 

[matran25251325]

Vấn đề save as em có viết sub này:
Sub TaoFileMoi()
On Error Resume Next
Dim Ask
Ask = MsgBox("Click 'Yes' de tao moi" & ChrW(13) & "Click 'No' de huy", vbYesNo)
If Ask = vbYes Then
With Application.FileDialog(msoFileDialogSaveAs)
.Show
.AllowMultiSelect = False
Application.ThisWorkbook.SaveAs .SelectedItems(1)
End With
Sheets("Trang chu").Select
MsgBox "Bat dau nao !", , "OK"
End If
End Sub
Em xin mạo muội hỏi 1 vấn đề ngoài topic (vì ngại mở thêm pic mới nhưng vấn đề vẫn chỉ có 1) là em muốn bẫy lỗi dạng này thì bổ sung code thế nào: ví dụ file đang làm có tên GPE.xls, vậy em muốn bẫy lỗi là nếu file đó là GPE.xls thì code sẽ không chạy và hiện thông báo "code ko chạy trên file này". Vì có như thế mới e nghĩ mới tránh được sự quên lãng khi làm trên file gốc.