Snasui Excel Forum

Code: Select all

Public passOK As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheet2.Visible = xlSheetVeryHidden
    Sheet8.Visible = xlSheetVeryHidden
    Sheet1.Range("C5").Locked = True
    Sheet1.Protect Password:=1
    ThisWorkbook.Save
End Sub

Private Sub Workbook_Open()
    passOK = False
    LoginForm.Show
End Sub

Code: Select all

Private Sub Okcmd_Click()
    'On Error Resume Next
    Dim row As Byte
    If UserText = "" Or PassText = "" Then
        MsgBox "กรุณากรอกข้อมูลให้ครบ"
        Exit Sub
    End If
    For row = 2 To 10
        If UserText = Sheet8.Cells(row, 1) Then
            If CLng(PassText) = Sheet8.Cells(row, 2) Then
                passOK = True
                Sheet1.Unprotect Password:=1
                Sheet1.Range("C5").Locked = False
                Select Case Sheet8.Cells(row, 3)
                    Case 1
                        Sheet2.Visible = xlSheetVisible
                        Sheet8.Visible = xlSheetVisible
                        passOK = True
                        LoginForm.Hide
                    Case 2
                        Sheet2.Visible = xlSheetVeryHidden
                        Sheet8.Visible = xlSheetVeryHidden
                        passOK = True
                        LoginForm.Hide
                    Case 3
                        Sheet2.Visible = xlSheetVeryHidden
                        Sheet8.Visible = xlSheetVeryHidden
                        passOK = True
                        LoginForm.Hide
                    Case Else
                        MsgBox "ข้อมูลพนักงานไม่ครบ กรุณาติดต่อ Admin "
                End Select
'            Else
'                MsgBox "รหัสผ่านไม่ถูกต้อง กรุณาพิมพ์ใหม่อีกครัง", vbInformation, "แจ้งเตือน"
            End If
        End If
    Next
    If passOK = False Then
        MsgBox "รหัสผ่านไม่ถูกต้อง กรุณาพิมพ์ใหม่อีกครัง", vbInformation, "แจ้งเตือน"
    End If
End Sub

Private Sub UserForm_Terminate()
    Thisworkbook.Close
End Sub