Làm sao có thể Save các file cùng lúc mà không save từng file khi rời máy

[tutientrung]

Nhờ các bạn giúp .
Chẳng là thế này ,mình làm việc trên rất nhiều file và có chỉnh sửa các file đó ,khi có việc đi đâu đó mình muốn save một lúc tất cả các file đó lại mà không tắt file đi.Lát sau quay lại tiếp tục làm việc trên những file đó .
Cám ơn các bạn trước nha.

 

[khoavu87]

Nhờ các bạn giúp .
Chẳng là thế này ,mình làm việc trên rất nhiều file và có chỉnh sửa các file đó ,khi có việc đi đâu đó mình muốn save một lúc tất cả các file đó lại mà không tắt file đi.Lát sau quay lại tiếp tục làm việc trên những file đó .
Cám ơn các bạn trước nha.

cái này các file của bạn đang bật để sử dụng đúng ko?
nếu thế chỉ cần tạo một nút Comanbutton rùi gán cho nó đoạn code Save là được.
Ví dụ mình có hai file ( Book1, Book2)
đặt đoạn code trên sheet1 của Book1 chẳng hạn

Private Sub CommandButton1_Click()
Workbooks("Book1").Save
Workbooks("Book2").Save
End Sub

 

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

Nhờ các bạn giúp .
Chẳng là thế này ,mình làm việc trên rất nhiều file và có chỉnh sửa các file đó ,khi có việc đi đâu đó mình muốn save một lúc tất cả các file đó lại mà không tắt file đi.Lát sau quay lại tiếp tục làm việc trên những file đó .
Cám ơn các bạn trước nha.

Dùng code sau nhé:

Sub SaveTatCa()
     Set AW = ActiveWorkbook
           For Each wb In Workbooks
               If wb.Path <> "" Then
                   wb.Save
               Else
                   If MsgBox(wb.Name & " chua duoc luu vao o cung cua ban " & vbNewLine & _
                             "Ban co that su muon luu khong ?", vbYesNo, "Xac nhan") = vbYes Then
                      wb.Activate
                      Application.Dialogs(xlDialogSaveAs).Show
                   End If
               End If
           Next
       AW.Activate
   End Sub