Hi Aziz
Coba anda tambahkan ini di koding macronya
Private Sub UserForm_Terminate()
If txt_user.Value <> Sheet1.Range("B1") And txt_pass.Value <>
Sheet1.Range("B2") Then
ActiveWorkbook.Close
Else
Unload Me
End If
End Sub
________________________________
From: Aziz Yudhistira Alaudin <[email protected]>
To: [email protected]
Sent: Wednesday, November 16, 2011 10:47 AM
Subject: ]] XL-mania [[ Login Masih Bisa Di Tembus
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
