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.

Kirim email ke