Đóng tất cả các file Excel đang mở

Vì một lí do nào đó mà bạn phải mở rất nhiều file Excel và khi kết thúc công việc bạn chỉ cần đóng lại mà không cần phải lưu tất cả những file này .

Trong Excel có tính năng đóng lại tất cả các file nhưng sẽ hỏi có lưu hay không nếu như bạn đã thay đổi nội dung trong đó bằng cách giữ phím SHIFT rồi bấm vào nút đóng. Nhưng bạn đã phải mở nhiều file cùng một lúc và chỉ muốn đóng lại ngay lập tức mà không cần lưu thì phải cần có một macro .

Mở Excel , bấm tổ hợp phím Alt-F11 để mở cửa sổ Microsoft Visual Basic

Trong cửa sổ Microsoft Visual Basic , chọn menu Insert > Module , bạn sao chép nội dung bên dưới

Sub CloseAllSheets()
Dim WBs As Workbook
For Each WBs In Application.Workbooks
WBs.Close (False)
Next WBs
End Sub

Quay trở lại Excel . Chọn menu Developer > Macro , chạy macro có tên là CloseAllSheets

Nếu như bạn muốn đóng tất cả nhưng chỉ để lại file đang làm việc thì cần macro sau

Sub CloseAllSheetsExActive()
Dim WBs As Workbook
For Each WBs In Application.Workbooks
If Not WBs.Name = ThisWorkbook.Name Then WBs.Close (False)
Next WBs
End Sub

Trong những macro trên nếu như bạn thay từ khóa False thành True thì nó sẽ đóng và tự động lưu lại mà không cần hỏi.

ptalettekt

zzjybujhrfagpcepeyjqsgsoaxvgqea

buy viagra cheaply online pharmacy viagra does viagra works online pharmacy viagra best place to buy generic viagra http://lizlarssen.com

wtaletzqeq

lfmyrbkxkllfesblxnajpxhneccurnu

cialis and viagra combo buy viagra 100mg viagra for sale india buy viagra no prescription best place to buy generic viagra http://livecopys.com

ftaletirle

terbhxgrobsfyllnblpvwjwqrapvnss

viagra vs cialis which is better cialis daily for bph cialis benefits is there a generic cialis in canada where to buy cialis australia http://skyrank.com

wtaletwmne

lcjojxnjflczesfttcghfbizqarlnkq

viagra like drugs buy generic viagra cheap taking viagra with food cheapest generic viagra prices online viagra pills http://livecopys.com

staletoyfz

isfecdwyzynktwekrjzodaxajklmuij

is viagra available on the nhs canada drugs viagra pfizer viagra patent viagra card 100mg viagra price http://mphasset.com

utaletwyjb

shxqbxxacswslhfcrahrnlwyjsxphjt

generic cialis free shipping buy cialis without a prescription when will cialis be available over the counter very cheap cialis best online cialis http://rabbitinahat.com

vtaletrobv

txojnopklldfyetvjrgcekcxtnmvoqo

viagra origin what will happen if a girl takes viagra viagra generic brand what if a woman took viagra viagra tablet sizes http://istanbulexpressonline.com

italetibos

blretdguljsxydqaicwjzpnpaufefsl

canadian pharmacy online cialis how to buy cialis online how long till cialis works order cialis with paypal brand cialis online http://rabbitinahat.com

staletggnr

orlerkkcnjbizdanazffpsvjnjpffac

cialis side effects heartburn can you take viagra and cialis together do you need a prescription for cialis cialis price in usa cialis picture http://skyrank.com

vtaletjmnm

ghkbbgnqjsgkmbrcmuvzskmsohwislm

can you take viagra while on blood pressure medication womens viagra pill viagra from india generic viagra in usa order herbal viagra http://kqcopy.com