mungkin begini ( module userform1 )
Dim OkUser As Boolean
Private Sub CommandButton1_Click()
If txt_user.Value <> Sheet1.Range("B1") Then
OkUser = False
MsgBox "User Name Anda Salah"
txt_user = ""
Exit Sub
ElseIf txt_pass.Value <> Sheet1.Range("B2") Then
OkUser = False
MsgBox "Password Anda Salah"
txt_pass = ""
ActiveWorkbook.Close
Else
OkUser = True
txt_user = ""
txt_pass = ""
MsgBox "Selamat Bekerja"
Sheet1.Select
Range("B10").Select
Unload Me
End If
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If Not OkUser Then ThisWorkbook.Close
End Sub
2011/11/16 Aziz Yudhistira Alaudin <[email protected]>
> **
>
> Wahai para pakar XL, aku coba bikin form login, sudah berhasil...
> Tetapi kenapa yah masih bisa ditembus dengan meng-klik tanda cross di form
> ?...
> Klo ga diperbaiki, bisa ditembus oleh user ilegal dong...
> Mohon pencerahannya dong kode syntax-nya.....
> Terima kasih sebelumnya
>
>
