Saya tengah membuat aplikasi yang digunakan oleh beberapa user. Setiap user diharuskan untuk login dengan memasukan username dan password. Untuk menunjang aplikasi agar lebih user friendly maka saya ingin menambahkan menu ganti password, namun saya terkendala dalam membuat menu tersebut. Saya mencoba dengan menggunakan cara find kemudian di offset baru diganti passwornnya, namun script saya masih belum benar maklum masih belajar.
Private Sub gantipass_Click()
Dim seleksicari As Range
Dim cari As String
cari = Sheets("Sheet1").nama.Text
Set seleksicari = wspass.Range("A2:A65536")
seleksicari.Find(What:=cari, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
'sampai bagian ini belum berhasil, jd penulisan scriptnya belum
dilanjutkan...
End Sub
Mohon bantuan para suhu untuk memberikan pencerahan bagaimana membuat menu
ganti password tersebut.
Terima Kasih.
ganti pass.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
