Metode pengulangan While dan Wend fungsinya sama saja seperti pada metode Do dan While, yaitu dapat mengeksekusi perintah jika kondisi dinyatakan True/Benar dan melanjutkan tugasnya (mengulangi) perintah tersebut hingga kondisinya dinyatakan False/Salah. Susunan kodenya sebagai berikut:
Sub BukaPassword()Adapun langkah-langkah yang dapat anda ikuti adalah sebagai berikut:
While InputBox("Silakan masukkan password:", "Password") <> "123456"
If MsgBox( _
"Maaf, password salah.", _
vbOKCancel, _
"Password Salah") _
= vbCancel Then End
Wend
MsgBox "Password anda tepat sekali!", vbOKOnly, "Terima kasih!"
End Sub
- Buka file Excel yang ada di komputer anda atau buat workbook baru.
- Tekan ALT+F11 untuk menampilkan VBE.
- Buka menu Insert > Module
- Tulis kode macro di atas pada jendela Module1.
- Buka Excel kembali lalu tekan ALT+F8.
- Pada kotak dialog Macro pilih 'BukaPassword' lalu klik 'Run'.
- Password dalam contoh adalah 123456.
0 Comments