Langkah-langkah yang dapat anda ikuti adalah sebagai berikut:
- Buka file Excel yang ada di komputer anda atau buat workbook baru.
- Buat password sheet dengan cara membuka menu ribbon Review > Changes > Protect Sheet. Contoh passwordnya: 123456.
- Setelah password sheet ditetapkan, tekan ALT+F11 untuk menampilkan VBE.
- Buka menu Insert > Module.
- Tulis susunan kode macro di bawah ini pada jendela Module1.
- Buka Excel kembali lalu tekan ALT+F8.
- Pada kotak dialog Macro pilih 'BukaPassword' lalu klik tombol 'Run'.
Sub BukaPassword()
Select Case MsgBox( _
"Apakah anda ingin membuka proteksi worksheet?", _
vbYesNo + vbQuestion, _
"Buka Password")
Case vbNo
MsgBox "Kembali ke worksheet.", vbInformation, "Dibatalkan"
Exit Sub
Case vbYes
Dim Buka As String
Buka = _
InputBox("Silakan masukkan password:", _
"Password wajib diisi")
If Buka = "" Then Exit Sub
If Buka <> "123456" Then
MsgBox _
"Maaf, " & Buka & " bukan password yang tepat.", _
vbCritical, _
"Salah"
Else
MsgBox _
"Terima kasih, Anda berhasil membuka worksheet.", _
vbInformation, _
"Password Benar"
ActiveSheet.Unprotect "123456"
End If
End Select
End Sub
0 Comments