Hapus Semua Sheet Kecuali Sheet Aktif

VBA 36.jpg

Kali ini admin akan berbagi bagaimana menghapus semua sheet yang ada pada lembar kerja kita kecuali sip yang aktif.

Kode hari ini akan sangat berguna apabila kita memiliki banyak sheet tapi kita ingin menghapusnya kecuali sheet yang sedang kita kerjakan atau sheet yang sedang aktif.

Peringatan. Sebelum menjalankan kode ini pastikan tidak ada sheet penting yang akan kita hapus karena saat kita menghapus menggunakan kode vba maka tombol undo tidak akan berfungsi lagi.

Berikut adalah kode untuk menghapus semua kecuali yang sedang aktif.

Sub HapusSemuaKecualiSheetAktif()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ThisWorkbook.ActiveSheet.Name Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
Next ws
End Sub

 

Download File Contoh

zip.png Hapus Semua Sheet Kecuali Sheet Aktif - OK.zip

 

Semoga bermanfaat,

Salam ALMaS.

 

 

HUBUNGI KAMI

Kantor berkreasi.net
Alamat :
 

Pens Sky Venture - Sukolilo Surabaya

Jl. Cilincing jakarta utara

Email              : Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya.
Form Kontak  : Klik Disini
WA : 085 606 139 312  im3 (CS / Ali)

Pembayaran Via Transfer :

bni.jpg
Bank BNI Cab. Jember
No.rek. 019 598 5992
Atas nama Sdri IMAS KHASANAH

bri.jpg
Bank BRI Cab. Wonokromo
No.rek. 0976 01 004629 50 8
Atas nama IMAS KHASANAH

TIM PENGEMBANG

Dr. Nugroho Eko Putro, M.Pd.
Amien sawedi, S.Pd.
Aries Eko Wibowo, S.Pd. MM.
Fauzan, M.Kom.
Sahrudin, M.Pd.
Budi Prasetya, ST., MM.
Muhammad Risal Maros, M.Pd.
Didik P Wicaksono, M.Pd.
Wayan Mulyana, M.Pd.
Patrick A. Kembuan, S.Kom
Ali, M.Pd.