Membuat Login Form Multi User pada excel dengan macro

Beranda
Komunitas
Tech
Computer Stuff
Membuat Login Form Multi User pada excel dengan macro

kelasmekanik

10-10-2021 09:45

Membuat Login Form Multi User pada excel dengan macro

[url=https://draft.SENSOR 670351496852253621/9056676415298694911#][/url]

Berikit ini cara pembuatan Login Form Multi User pada Excel dengan pilihan otoritas menu pada saat login.

'1. CODING USERFORM INITIALIZE

Private Sub UserForm_Initialize()

Me.MultiPage1.Value = 0

Me.Frame3.Height = Me.MultiPage1.Height

Me.Frame4.Height = Me.MultiPage1.Height

Me.ONOFF1.BackColor = RGB(219, 42, 89)

Me.ONOFF1.ForeColor = RGB(0, 0, 0)

Me.ONOFF2.BackColor = RGB(219, 42, 89)

Me.ONOFF2.ForeColor = RGB(0, 0, 0)

Me.ONOFF3.BackColor = RGB(219, 42, 89)

Me.ONOFF3.ForeColor = RGB(0, 0, 0)

Me.Line1.BackColor = RGB(56, 66, 66)

Me.Line2.BackColor = RGB(56, 66, 66)

Me.Line3.BackColor = RGB(56, 66, 66)

Me.TXTADMINPASSWORD.Visible = False

Me.CMDOK.Visible = False

Me.TXTCHECKPASSWORD.Visible = False

End Sub

'2. CODING TOMBOL SIGNUP

Private Sub CMDSIGNUP_Click()

Me.TXTADMINPASSWORD.Visible = True

Me.CMDOK.Visible = True

End Sub

'3. CODING TOMBOL OK (SIGNUP)

Private Sub CMDOK_Click()

If Me.TXTADMINPASSWORD.Value <> "kelasmekanik" Then

Call MsgBox("Maaf, Password Admin salah, silahkan hubungi Administrator", vbInformation, "Password Salah")

Me.TXTADMINPASSWORD.Value = ""

Me.TXTADMINPASSWORD.Visible = False

Me.CMDOK.Visible = False

Else

Me.TXTADMINPASSWORD.Value = ""

Me.TXTADMINPASSWORD.Visible = False

Me.CMDOK.Visible = False

Me.MultiPage1.Value = 1

End If

End Sub

'4. CODING TOMBOL LOGIN1 PAGE2

Private Sub CMDLOGIN1_Click()

Me.MultiPage1.Value = 0

End Sub
...

Untuk panduan dan cosing selengkapnya bisa di lihat di :
https://www.kelasmekanik.com/2021/08...ulti-user.html

866

Kutip

Balasan

Komentar yang asik ya

Komunitas Pilihan