การป้องกันเซล ร่วมกับ Pivot table

[yodpao.b]

การป้องกันเซล ร่วมกับ Pivot table
หลังจาก ป้องกันเซล ไม่สามารถ รีเฟรส ได้ครับ

ทดลองทำ โดยการ เลือกถอดล็กคเชลทุกเชลดังรุป

1.JPG

ทดรองกาถูกทุกคำสั่งตามรูป

2.JPG

ผลคำสั่งรีเฟรส ยังใช้ไม่ได้ครับ

3.JPG

[yodpao.b]

ไฟล์แนบครับ

[norkaz]

..

การให้ Refresh ได้ เมื่อถูก ป้องกัน Worksheet ไว้
เข้าใจว่า น่าจะยังไม่มีวิธีตามปกติ นอกจากการใช้ VBA

แต่เรื่อง VBA ผมความรู้น้อย รู้อยู่แค่นั้น ใช้อะไรได้ไม่มากครับ

Norkaz

[yodpao.b]

ขอบคุณมากครับผมเพิ่งอ่านเจอเหมือนกัน ว่าต้องใช้ VBA
ใช code ดังนี้

Code: Select all

Sub DataRefresh()
'Update by Extendoffice 5/28/2019
    ActiveSheet.Unprotect "123"
    ActiveWorkbook.RefreshAll
    Application.OnTime Now + TimeValue("00:00:01"), "DataRefresh2"
End Sub
Sub DataRefresh2()
    If Application.CommandBars.GetEnabledMso("RefreshStatus") Then
        Application.OnTime Now + TimeValue("00:00:01"), " DataRefresh2"
    Else
        ActiveSheet.Protect "123"
    End If
End Sub

อ้างอิงจาก https://th.extendoffice.com/documents/e ... fresh.html
แต่คงไม่ใช้ดีกว่า เพราะ code สั่ง ล็อคทุกหน้า
เดียวรองใช้งานไฟล์ดูก่อน ถ้ามีปัญหาสูตรหาย เดียวค่อยมาแก้ไขใหม่

ขอบคุณครับ