การเขียนโค้ดให้ป้องกันแผ่นงานแต่อนุญาตให้กรองข้อมูลในแผ่นงาน

[khanetnamnai]

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




With ActiveSheet
.Protect Password:="xxxx", AllowFiltering:=True
.EnableSelection = xlNoRestrictions
End With

If ActiveSheet.Protection.AllowSorting = False Then
ActiveSheet.Protect AllowSorting:=True
End If

[bank9597]

ต้องป้องกันแบบไหน เช่น ป้องการคีย์ข้อมูลลงในเซลล์และป้องกันการเปลี่ยนแปลงรูปแบบต่างๆ ลองอธิบายมาอีกครั้งครับ

[khanetnamnai]

ต้องป้องกันแบบไหน เช่น ป้องการคีย์ข้อมูลลงในเซลล์และป้องกันการเปลี่ยนแปลงรูปแบบต่างๆ ลองอธิบายมาอีกครั้งครับ

ป้องกันโดยอนุญาตให้เลือกเซลล์ที่ล็อคไว้ได้ แต่แก้ไขข้อมูลในเซลล์ไม่ได้ และ อนุญาติให้กรองข้อมูลครับ

[bank9597]

ลองตามนี้ครับ ไปที่แท็บ Review > protect sheet แล้วก็ใส่รหััสผ่าน > OK

หากจะล็อคด้วยโค๊ด ตัวอย่างเช่น

Code: Select all

Worksheets("TimeLog").Protect Password:="1234"

[khanetnamnai]

ลองตามนี้ครับ ไปที่แท็บ Review > protect sheet แล้วก็ใส่รหััสผ่าน > OK

หากจะล็อคด้วยโค๊ด ตัวอย่างเช่น

Code: Select all

Worksheets("TimeLog").Protect Password:="1234"

ครับ พอลองใส่โค้ดนี้ลงไปแล้ว แผ่นงานถูกป้องกันแล้วครับ แต่คลิกเลือกเซลล์ไหนไม่ได้เลยครับและก็กรองข้อมูลไม่ได้ด้วยครับ

[bank9597]

แนบไฟล์มาดูกันครับ

[khanetnamnai]

ตัวปัญหาอยู่ใน Module 6 ครับ


Sub AddNewEmp()

[snasui]

นำ Code นี้ไปใส่ไว้ที่ชีท Lis Name ก่อน Sort ให้คลิกบรรทัดที่ 2 ซึ่งเป็นหัว Field ก่อนเสมอครับ

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveSheet
        If Target.Row = 2 Then
            .Unprotect Password:=2112
        Else
            .Protect Password:=2112, AllowSorting:=True, AllowFiltering:=True
        End If
    End With
End Sub

[khanetnamnai]

นำ Code นี้ไปใส่ไว้ที่ชีท Lis Name ก่อน Sort ให้คลิกบรรทัดที่ 2 ซึ่งเป็นหัว Field ก่อนเสมอครับ

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveSheet
        If Target.Row = 2 Then
            .Unprotect Password:=2112
        Else
            .Protect Password:=2112, AllowSorting:=True, AllowFiltering:=True
        End If
    End With
End Sub

แผ่นงานถูกป้องกันแล้วครับแต่ยังเลือกกรองข้อมูลไม่ได้ครับอาจารย์ พอจะแนะนำโค้ดที่ทำให้กรองข้อมูลอัตโนมัติด้วยได้ไหมครับ

[snasui]

ที่เครื่องผมทำงานได้เป็นปกติ คือสามารถ Filter ได้ Sort ได้ครับ

ลองอ่านที่ผมแนะนำไปช้า ๆ อีกครั้งว่าก่อน Sort ให้ทำอย่างไร

กรณีที่ต้องการ Protect แล้วให้ Sort ได้ คอลัมน์ที่ต้องการ Sort จะต้องปลด Locked ทั้งหมดก่อน สำหรับ Code นี้เป็นการใช้การ Protect และยกเลิกการ Protect มาช่วย หากไม่เลือกบรรทัดที่เป็นหัว Field เอาไว้ก่อนจะไม่สามารถ Sort ได้

[khanetnamnai]

ที่เครื่องผมทำงานได้เป็นปกติ คือสามารถ Filter ได้ Sort ได้ครับ

ลองอ่านที่ผมแนะนำไปช้า ๆ อีกครั้งว่าก่อน Sort ให้ทำอย่างไร

กรณีที่ต้องการ Protect แล้วให้ Sort ได้ คอลัมน์ที่ต้องการ Sort จะต้องปลด Locked ทั้งหมดก่อน สำหรับ Code นี้เป็นการใช้การ Protect และยกเลิกการ Protect มาช่วย หากไม่เลือกบรรทัดที่เป็นหัว Field เอาไว้ก่อนจะไม่สามารถ Sort ได้

กรองได้แล้วครับ ขอบพระคุณมากครับอาจารย์