Cara Protect Dan Unprotect Sheets Dengan Kode Macro Vba Excel

Salam Pengguna Excel..!! Pada kesempatan ini Admin akan berbagi tentang cara memberikan proteksi pada sheet dan cara membuka proteksi sheet kembali dengan menggunakan kode macro Excel.

Memberikan proteksi pada sheet Excel merupakan salah satu cara untuk memberikan keamanan pada data yang ada pada sheet.

Cara Protect Dan Unprotect Sheets

Melakukan proteksi pada sheet Excel sangat mudah. Cara yang sering dilakukan dalam berikan proteksi pada sheets yaitu dengan cara klik kanan pada sheet yang akan diproteksi dan pilih protect. 

Selanjutnya akan muncul kotak dialog untuk memasukkan password. Setelah password dimasukkan klik ok dan sheet sudah terkunci.

Data yang terdapat pada sheet excel yang sudah diprotect tentu tidak bisa di edit. Dengan memberikan proteksi pada excel data-data yang ada akan aman dari tindakan tidak sengaja atau tindakan jahil orang lain yang ingin mengacak-ngacak data.

Pada tingkat dasar bila sheet sudah diberikan proteksi tentu hanya orang yang mengetahui passwordnya saja yang dapat melakukan pengeditan pada data. 

Namun hal ini tidak berlaku untuk mereka yang mahir excel. 

Perhatikan gambar format gif diatas. Pada artikel posting ini Admin mencoba melakukan experiment dan berhasil membuat dua buah tombol. 

Tombol pertama dengan caption Protect All Sheets berfungsi memberikan protect kepada semua sheets dengan password. 

Tombol yang kedua dengan caption Unprotect All Sheet berfungsi untuk membuka kembali protect dengan password yang sama.

Cara Protect Dan Unprotect Sheets Dengan Kode Macro Vba Excel 

• Buka Excel, karena menggunakan kode macro tentu kita harus menyimpan file excel dalam format Enable Macro atau Binary. 
• Buatlah dua buah tombol dengan cara klik tab developer dan pilih insert. 
• Pada menu Insert, klik pada CommandButton yang terdapat pada ActiveX Controls. 
• Klik dan drag di sheet serta sesuaikan ukuran CommandButton dengan selera anda sendiri. 
• Buatlah dua CommandButton dengan tujuan satu untuk memasukkan kode protect dan yang kedua untuk memasukkan kode unprotect. 
• klik kanan pada CommandButton pertama pilih properties, ubah caption "Protect All Sheet", dan klik kanan pada CommandButton kedua pilih properties dan ubah caption "Unportect All Sheet". 
• Kode berikut ini berfungsi memberikan perintah untuk protect semua sheets. klik kanan pada CommandButton pertama dengan caption "Protect All Sheet", pilih View Code, Masukkan kode berikut ini pada CommandButton tersebut.

Private Sub CommandButton1_Click()
'Step 1:  Deklarasi variabel
    Dim ws As Worksheet

'Step 2: Memulai perintah untuk membaca semua Sheet
    For Each ws In ActiveWorkbook.Worksheets

'Step 3:  Memberikan perintah kunci semau sheet dengan password
    ws.Protect Password:="RED"
    Next ws
'Memunculkan dialogbox
MsgBox "WorkSheets Berhasil Di Proteksi", vbInformation, "Protect"
End Sub

• Kode berikut ini berfungsi memberikan perintah untuk Unprotect semua sheets. klik kanan pada CommandButton kedua dengan caption "UnProtect All Sheet", pilih View Code, Masukkan kode berikut ini pada CommandButton tersebut

Private Sub CommandButton2_Click()
'Step 1:  Declararsi variabel
    Dim ws As Worksheet

'Step 2: Memulai membaca semua sheets
    For Each ws In ThisWorkbook.Worksheets

'Step 3:  Memberikan perintah untuk Unprotect semua sheets dengan password
    ws.Unprotect Password:="RED"
    Next ws
'memunculkan dialogBox
    MsgBox "Proteksi WorkSheets Berhasil Di Buka", vbInformation, "Protect"
End Sub

Silahkan diuji aplikasi yang anda buat dengan kode diatas. Jika penempatkan kode sudah tepat dan benar, maka aplikasi yang anda bikin akan berfungsi dan menjalankan perintah sesuai tombol yang di klik seperti terlihat pada gambar format gif datas yang admin bikin.

Video Cara Protect dan UnProtet Sheet dengan Kode Vba Excel

Demikan posting Cara Protect Dan Unprotect Sheets Dengan Kode Macro Vba Excel. Semoga menjadi referensi bagi yang sedang mencari informasi tentang Cara Protect Dan Unprotect Sheets Dengan Kode Macro Vba Excel. 

Bila ingin menyampaikan pertanyaan, saran dan kritikan mohon dapat dituliskan pada kolom komentar.

Bagi anda yang ingin mendapatkan dan mempelajari semua file dan Aplikasi Vba Excel yang Admin sajikan di blog ini secara mandiri, mohon dapat mengubungi nomor WA Admin : 0811-6822-023.

Go to Link

Go to Link