อยากทำ form login ครับ แต่กลัวเค้ากด shift ผ่าน

[pboonwang]

ผมอยากทำ Form Login พอเปิดโปรแกรม Formก็เริ่มทำงาน มีชีทเก็บยูเซอร์กับรหัสผ่าน ถ้าไม่มีก็ปิดไฟล์ แต่ติดที่ไม่รู้จะป้องกันเค้ากด Shift เพื่อข้ามยังงัย พอมีคำแนะนำมั้ยครับ

[snasui]

แนบไฟล์ แนบ Code ที่เขียนไว้แล้วมาด้วยครับ จะได้ช่วยกันทดสอบได้

[pboonwang]

ตัวอย่างครับ ผมใช้ very hide ซ่อนชีทเอา
พนักงานคือ admin พาสเวิร์ดคือ 11
พาสเวิร์ดดูโค้ดคือ 123456 ครับ
พอจะเพิ่มความปรอดภัยได้อีกมั้ยครับ

[snasui]

การกด Shift ค้างไว้ตอนเปิดไฟล์ก็เหมือนกับการปิดการใช้งาน Macro ดังนั้น Code ต่าง ๆ จึงหยุดทำงาน

ลองตามนี้ครับ

1. ปัองกัน Sheet1 ไว้ก่อนทุกเซลล์ การปลดการป้องกันต้องทราบ Password หรือต้องผ่านการ Login
2. ใน Event สำหรับการปิดไฟล์จะทำการป้องกัน Sheet1, Save และปิด โดยตัวอย่าง Code ที่ ThisWorkbook เป็นตามด้านล่าง

   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

3. ตัวอย่างการปรับ Code ที่ LoginForm เป็นตามด้านล่าง

   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
   

ดูไฟล์แนบประกอบครับ

[pboonwang]

เจตนาเพื่อ lock การแก้ใขในชีท1 ใช่มั้ยครับ

[snasui]

การ Lock Sheet1 ไว้ก็เพื่อไม่ให้แก้ไขได้ถ้ามีการกด Shift ป้องกันการใช้งาน Macro ตอนเปิดไฟล์ จะเห็นว่าแม้ไม่มีหน้าต่าง Login ให้เห็นแต่ก็ทำงานกับไฟล์นี้ไม่ได้อยู่ดี การจะทำงานได้ต้องรู้ Password ในการปลดการป้องกัน Sheet1 ออกก่อน หรือไม่ก็ต้อง Login ด้วย Password ที่ถูกต้องเท่านั้นครับ

[tahc]

ขอบคุณมากครับ ขออนุญาตนำไปใช้ประโยชน์ด้วยคนครับ