ວິທີສ້າງ Form ເພື່ອ Login ເຂົ້າ Excel

ຂັ້ນຕອນຂອງການສ້າງມີດັ່ງນີ້:
1. ຕັ້ງຊື່ Sheet1 = Data ; Sheet2 = Login.
2. ຂິກຂວາໃສ່ຊື່ Sheet"Data" ແລ້ວເລືອກ View code
3. ຂິກໃສ່ Insert / User Form.
4. ໃນກ່ອງ Toolbox ໃຫ້ຂິກໃສ່ Lebel ແລ້ວເອົາມາວາງໃສ່ User Form ,ຂຽນຄຳວ່າ: ລະຫັດ ; ຂິກໃສ່ Textbox ແລ້ວເອົາມາວາງໃສ່ User Form
ເພື່ອເປັນບ່ອນໃສ່ລະຫັດ ; ຂິກໃສ່ Commandbutton ແລ້ວເອົາມາວາງໃສ່ User Form ເພື່ອສ້າງປຸ່ມ "ຕົກລົງ" ແລະ ໃຫ້ເຮັດເຊັ່ນດຽວກັນກັບການ
ສ້າງປຸ່ມ "ອອກ"
5. ການຕັ້ງຊື່:
5.1. ຊື່ຂອງ Form: frmLogin.
5.2. ຊື່ຂອງປຸ່ມ "ຕົກລົງ" = cmdOK ; ຊື່ຂອງປຸ່ມ "ອອກ" = cmdCancel
6. ຂັ້ນຕອນການໃສ່ Code:
6.1. ຂິກໃສ່ Insert / Module ຂິກຄູ່ໃສ່ Module ແລ້ວໃສ່ Code ລຸ່ມນີ້:
Sub Auto_Open()
frmLogin.Show
End Sub
6.2. ຂິກຂວາໃສ່ "frmLogin" ທີ່ຢູ່ເບຶ້ອງຊ້າຍມື(ເທິງ) ເລືອກ View code ແລ້ວໃສ່ Code ລຸ່ມນີ້:
Const sPassword = "metxai"
Private Sub cmdCancel_Click()
MsgBox "Sorry you can not prove that they have permission to open the workbook!"
ActiveWorkbook.Close
End Sub
Private Sub cmdOK_Click()
With TextBox1
If .Text = sPassword Then
ActiveWorkbook.Sheets("Data").Activate
Unload Me
Exit Sub
End If
MsgBox "incorrect password!"
.SetFocus
End With
End Sub
Private Sub UserForm_Initialize()
ActiveWorkbook.Sheets("Login").Activate
With TextBox1
.Text = ""
.PasswordChar = "*"
End With
End Sub
7. ປ່ຽນລະຫັດໃໝ່ໂດຍການແທນລະຫັດໃໝ່ໃສ່: "metxai" = "*************" (ຕາມໃຈ,ແຕ່ບໍ່ໃຫ້ໃສ່ພາສາລາວ)
ດາວໂຫຼດຕົວຢ່າງໄດ້ທີ່ນີ້