Page 1 of 1

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

Posted: Tue Apr 20, 2021 12:36 am
by yodpao.b
การป้องกันเซล ร่วมกับ Pivot table
หลังจาก ป้องกันเซล ไม่สามารถ รีเฟรส ได้ครับ

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



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

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

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

Posted: Tue Apr 20, 2021 12:37 am
by yodpao.b
ไฟล์แนบครับ

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

Posted: Tue Apr 20, 2021 1:10 am
by norkaz
..

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

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

Norkaz

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

Posted: Tue Apr 20, 2021 1:39 am
by 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 สั่ง ล็อคทุกหน้า
เดียวรองใช้งานไฟล์ดูก่อน ถ้ามีปัญหาสูตรหาย เดียวค่อยมาแก้ไขใหม่

ขอบคุณครับ