Xin code : Lưu file Excel lại và tự động đổi tên

[USB1394]

Em xin code thực hiện 3 hành động sau :
1. Dóng workbook và lưu tất cả thay đổi (ko hiện hộp thoại có hỏi lưu hay ko)
2. Sau khi đóng sẽ tự động đổi tên theo CT sau :
VD
Tại sheet8 , cell A1 , có giá trị 01(number)
Tại sheet8 , cell A2 , có giá trị 2009(number)

Tên file : "TL - "<giá trị cell A1> <giá trị cell A2>

Có bạn nào biết xin giúp dùm , xin cám ơn

 

[Hai Lúa Miền Tây]

Cho mình hỏi thêm là lưu thành file mới hay là trên file cũ vậy bạn?

 

[USB1394]

Lưu trên file cũ . Nếu được bạn cho mình xin thêm code phần lưu thành file mới luôn . Mình ko rành vê VBA lắm nên khi viết bạn cho càng nhiều ghi chú miêu tả hành động bạn thực hiện để mình dễ hiểu
Xin cám ơn

 

[ndu96081631]

Lưu trên file cũ . Nếu được bạn cho mình xin thêm code phần lưu thành file mới luôn . Mình ko rành vê VBA lắm nên khi viết bạn cho càng nhiều ghi chú miêu tả hành động bạn thực hiện để mình dễ hiểu
Xin cám ơn

Thật ra nếu bạn biết code TỰ XÓA FILE thì hoàn toàn có thể làm bài này (tự hắn xóa hắn còn được huống chi Rename)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.DisplayAlerts = False
  With ThisWorkbook
    .ChangeFileAccess xlReadOnly
    Name (.FullName) As (.Path & "\TL - " & [A1] & [A2] & ".xls")
    .Save
  End With
End Sub

 

[Tường_Vi]

Anh NDU ơi
Tại sao code đổi tên file lại có đoạn code này?
Tks Anh

.ChangeFileAccess xlReadOnly

 

[long hoang duc]

sao no bao khong tim thay file nhi