VBA CODING .VBA EXCEL

Selamat siang brother , agan dan aganwati sekalian
Dalam kesempatan siang yang sangat panaaaaaas binggo  admin ingin share beberapa coding vba excel yang super duper simple and mudah mudahan bermanfaat untuk brother sekalian oke...tanpa panjang  tangan admin share codingnya
Coding 1.
MENYIMPAN SEMUA WORKBOOK SEKALIGUS

Subsimpan()
Dim WB as workbook
For each WB In workbooks
  If Not WB.Readonly And Windows(WB.Name).Visible Then WB.Save
End If
Next
End sub

Coding 2.
MENUTUP SEMUA WORKBOOK SEKALIGUS

Sub Tutup()
Dim WB  As workbook
For Each WB In Workbooks
   WB.Close False
Next WB
End sub

Coding 3.
MENGHAPUS SEMUA WORKSHEETS KECUALI WORKSHEETS YANG AKTIF

Sun WBhapus()
Dim WB As worksheet
Applocation.DisplayAlerts=False
For Each WB In Worksheets
If WB.Name <> Activesheet.name then WB.Delete
Next WB
Application.DisplayAlerts =true
End Sub

Ok gan 3 coding simple vba sdh adm share ... semiga bermanfaat and di tunggu komen nya y gan

Salam
Dhany47