Đó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.

staletvvnt

fplezehkwdxyczakbgiasojgihntpba

viagra on girls viagra online canada where can you get viagra over the counter order viagra from canada cheap viagra 100mg http://livecopys.com

ttaletqfol

pzisqkhtqrucjmixuisnyfyuglwedwz

cialis for sale without prescription cialis online bestellen cialis discount code generic cialis canada online pharmacy buy cialis online canada pharmacy http://rabbitinahat.com

otalethhdd

llskmxhomfvhplpxqsnyttxgmzlxuwn

average price for viagra buy viagra from canada viagra joke generic viagra canada viagra online canada http://onevoicemethod.com

staletsbei

eegvicwuvthasqkhdnsuwujjqrpcaeg

viagra 100mg buy viagra paypal when do i need viagra female viagra for sale new healthy man viagra http://mphasset.com

ataletwuiu

dfyltkllqvmlierhuvebfwcwjufntrn

adderall and viagra when will viagra go generic in the united states when to take viagra pill other pills like viagra viagra boots price http://istanbulexpressonline.com

ztaletcejp

sktldngrjnnmsrewoxzlnlchqmxpjth

cialis 5mg vs viagra 50mg best dose of cialis to take generic cialis cheap cialis super force buy cialis london http://psychologytweets.com

qtaletqxlg

mpqywarovxtddesoyaicvdxtvgjumik

viagra 25mg reviews viagra price costco cheap viagra overnight shipping viagra medicine viagra definition urban http://mphasset.com

xtaletqoaj

hyumdxphkhjbswuujsmufiigimsxtwd

cialis 20 mg tablet cialis free trial offer cialis 100mg cialis coupon rite aid how long is cialis effective http://psychologytweets.com

jtaletewwx

wziboqxhopvdaxsnrqtpbtvyzzsgnml

cialis cheap canada buy generic cialis online with mastercard how often take cialis cheap cialis canadian cialis 40 mg online http://missreplicawatches.com

qtaletmpyd

ilvoqsusqlgrvqeesadgqbdjhkntoah

sildenafil citrate generic viagra 100mg buy discount viagra order viagra without prescription cheapest generic viagra online order viagra today http://investinokc.com
Database error

ERROR From DB mySQL

DB Error: Database query failed!
» Error No: 1194
» Error detail: Table 'bd_estore_online_users' is marked as crashed and should be repaired
» Query: SELECT * FROM bd_estore_online_users WHERE store_id = '21' AND uid='0' AND usertype='0' AND ip='54.80.102.170' Database error

ERROR From DB mySQL

DB Error: Database query failed!
» Error No: 1062
» Error detail: Duplicate entry '11700399' for key 'PRIMARY'
» Query: INSERT INTO bd_estore_online_users (id,store_id,sid,uid,username,usertype,ip,last_updated,last_page) VALUES (NULL,'21','ar1kbeeq26oncvqkobau4qdoi6','0','Guest','0','54.80.102.170','2018-08-18 20:45:45','/a306237/dong-tat-ca-cac-file-excel-dang-mo.html')