save và thoát (1 người xem)

[ExcelQN]

Tôi muốn khi bấm vào nút save thì file được ghi lại và thoát khỏi Excel luôn thì làm sao? Mong các bạn chỉ giúp. Cám ơn nhiều.

 

[lq177]

Bạn dùng lệnh này nhé,

Sub Luu()
ThisWorkbook.Save
Application.Quit
End Sub

 

[ExcelQN]

Bạn dùng lệnh này nhé,

Không phải bạn à. Như bạn thì phải chạy macro luu. Còn tôi thì muốn bấm vào nút lưu là ghi lại nhũng thay đổi và thoát khỏi excel luôn. Bạn nghiên cứu thêm. Tôi chưa biết cách nào cả. Cám ơn.

 

[Quang_Hải]

Không phải bạn à. Như bạn thì phải chạy macro luu. Còn tôi thì muốn bấm vào nút lưu là ghi lại nhũng thay đổi và thoát khỏi excel luôn. Bạn nghiên cứu thêm. Tôi chưa biết cách nào cả. Cám ơn.

Trong VBA có thể dùng sự kiện Workbook_BeforeSave bạn có thể vào VBE để thử

 

[ExcelQN]

Sao bạn nói thế. Trên diễn đàn nhiều người vẫn giúp nhau nhiều điều tưởng như không thể mà. Tôi muốn thao tác này vì muốn copy một file trên mạng nội bộ, mà lúc đó đang có một người đang làm việc trên đó. Nếu người đó nhập xong số liệu, bấm save thì tháo ex luôn, lúc đó tôi mới copy file đó về máy mình để lưu lại, phòng khi máy của người kia hư đĩa cứng.

 

[suteki12]

Cái này bạn nhờ Microsoft làm cho bạn 1 bộ Office mới thì có thể được. ^^.

 

[nghiaphuc]

Sao bạn nói thế. Trên diễn đàn nhiều người vẫn giúp nhau nhiều điều tưởng như không thể mà. Tôi muốn thao tác này vì muốn copy một file trên mạng nội bộ, mà lúc đó đang có một người đang làm việc trên đó. Nếu người đó nhập xong số liệu, bấm save thì tháo ex luôn, lúc đó tôi mới copy file đó về máy mình để lưu lại, phòng khi máy của người kia hư đĩa cứng.

Không biết có cần thiết phải "nghiêm trọng hóa" như vậy không nhưng vấn đề của bạn có thể giải quyết được bằng code sau (dành cho đối tượng ThisWorkbook):

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Me.Save
    Application.Quit
End Sub

 

[ExcelQN]

OK. Cảm ơn nghiaphuc. Đúng ý rồi.