การใช้ refresh ใน Pivotable

[yodpao.b]

การใช้ refresh ใน Pivotable
เมื่อเรา Protec sheet แล้ว
คำถาม ต้องทำอย่างไรถึง refresh ได้ครับ

[parakorn]

ลองบันทึก Macro แล้วทำเป็นปุ่มดูครับ

[snasui]

ในขั้นตอนการ Protect จะมีให้เลือกว่ายอมให้ทำอะไรได้บ้างหลังจาก Protect ไปแล้ว การยอมให้ใช้ PivotTable ก็เป็นหนึ่งในตัวเลือกนั้นครับ

[yodpao.b]

กาทุกข้อแล้วครับ แล้ว Protect
ปุ่ม refresh ไม่สามารถ refresh ได้

[snasui]

หากเป็นเช่นนั้นก็ต้องใช้ VBA ครับ

สร้างปุ่ม Refresh ต่างหาก การทำงานคือ ปลด Password > Refresh > ใส่ Password

[yodpao.b]

ต้องการ Protect ทุกหน้า โดยให้ Protect เฉพาะ 2 หัวข้อ หัวข้อดังนี้

Protect1.JPG (30.14 KiB) Viewed 23 times

Protect2.JPG (29.07 KiB) Viewed 23 times

เขียน code อย่างไรครับ ให้ทุก Sheet Protect เหมือนกัน

Code: Select all

Sub ProtectAllsheets()

Application.ScreenUpdating = False

   For Each sht In ThisWorkbook.Worksheets
       sht.Protect PassWord:="abc123"
            ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
                , AllowUsingPivotTables:=True
            ActiveSheet.EnableSelection = xlUnlockedCells

   Next
Application.ScreenUpdating = True
End Sub

[puriwutpokin]

ต้องการ Protect ทุกหน้า โดยให้ Protect เฉพาะ 2 หัวข้อ หัวข้อดังนี้
Protect1.JPG
Protect2.JPG
เขียน code อย่างไรครับ ให้ทุก Sheet Protect เหมือนกัน

Code: Select all

Sub ProtectAllsheets()

Application.ScreenUpdating = False

   For Each sht In ThisWorkbook.Worksheets
       sht.Protect PassWord:="abc123"
            ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
                , AllowUsingPivotTables:=True
            ActiveSheet.EnableSelection = xlUnlockedCells

   Next
Application.ScreenUpdating = True
End Sub

ปรับเป็น

Code: Select all

Sub ProtectAllsheets()
Application.ScreenUpdating = False
   For Each sht In ThisWorkbook.Worksheets
    sht.Protect Password:="abc123", Contents:=True, AllowUsingPivotTables:=True
   Next
Application.ScreenUpdating = True
End Sub

[yodpao.b]

ขอบคุณครับใช้ได้แล้วครับ
แตผมต้องไปปรับ Protect เฉพาะ 2 หัวข้อ นี้ ทุกหน้าครับ
มันถึงจะล็อคไม่ให้คีย์ทุกหน้า