Apakah Anda pernah mengalami rumus-rumus pada excel yang telah Anda buat susah payah tidak sengaja terhapus atau teredit, dan akhirnya pekerjaan anda akan lebih banyak karena harus memulai lagi dari awal.
Kejadian - kejadian seperti itu sering sekali dialami oleh sebagian besar orang, bukannya pekerjaan Anda selesai malah akan menambah karena kejadian yang ditimbulkan akibat salah rumus akan berakibat fatal pada aplikasi excel Anda.
Cara yang paling efektif agar rumus Anda aman adalah dengan memproteksi atau mengunci cell rumus Anda dengan script VBA. Kenapa menggunakan script VBA ? Karena dengan sekali membuat script VBA cell rumus yang Anda buat baik satu ataupun lebih, itu semua sudah terproteksi dengan aman. Atau dengan istilah lain sekali mendayung dua tiga pulau terlampaui.
Oke tanpa panjang lebar lagi, saya akan memberitahukan caranya yaitu sebagai berikut :
1. Buka tab Developer pada aplikasi excel Anda
2. Klik Visual Basic maka akan muncul jendela microsoft visual basic
3. Buka VBAProject lalu Microsoft Excel Object lalu klik kanan pada thisworkbook dan klik view code
4. Selanjutnya copy dan paste script berikut disana
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim A As Range
For Each A In Target.Cells
If A.HasFormula Then
ActiveSheet.Protect
Exit Sub
Else
ActiveSheet.Unprotect
End If
Next A
End Sub
5. Setelah itu coba anda pilih cell yang berisi rumus dan klik di bagian insert function maka akan muncul pemberitahuan bahwa cell sudah diproteksi tidak bisa diedit dan hanya bisa dibaca saja.
Demikian cara gampang memproteksi cell yang berisi rumus dengan script VBA agar rumus yang Anda buat tidak bisa diutak atik atau dirubah oleh siapapun. silahkan berikan komentarnya
Terimakasih.
