Alhamdulillah ternyata berhasil pak NangAgus, terimakasih atas masukkannya yang sangat menbantu pekerjaan saya
Pada Senin, 9 Juni 2014 16:49, "NangAgus [email protected] [belajar-excel]" <[email protected]> menulis: Asalamualaikum coba ubah ActiveSheet.Protect menjadi ActiveSheet.Protect "password" dan ActiveSheet.Unrotect menjadi ActiveSheet.Unrotect "password" wasalam NangAgus On 09/06/2014 16:23, Semut Seto [email protected] [belajar-excel] wrote: >Assalamu'alaikum Warohmatullohi Wabarokatuh > > >Salam sukses semuanya, mohon bantuannya kembali terkait dengan VBA Macro di >excel. Saya ingin memproteksi cell yang berisi formula dengan Macro VBA, >iseng-iseng jelajah google dapat kode untuk proteksi cell yang berisi formula >dengan macro. Adapun kodenya seperti ini : > > >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 > > >Ketika saya coba masukkan kode tsb di macro excel, cell yang berisi formula >berhasil di lock dan tidak bisa di edit, tapi ketika saya klik kanan sheet dan >pilih unprotect tanpa memasukkan password maka cell yang berisi formula tsb >bisa dihapus/ di edit. Yang ingin >saya tanyakan adalah bagaimana caranya dari kode macro di atas agar ketika >kita akan melakukan unprotected sheet maka akan diminta untuk memasukkan >password terlebih dahulu. Mohon maaf jika saya sering bertanya dan mohon tidak >bosan untuk menjawabnya :), terimakasih.
