Snasui Excel Forum

Posted: **Sun Nov 25, 2018 3:03 pm**

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

Posted: **Sun Nov 25, 2018 3:38 pm**

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

Posted: **Sun Nov 25, 2018 3:40 pm**

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

Posted: **Sun Nov 25, 2018 4:37 pm**

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

Posted: **Sun Nov 25, 2018 4:41 pm**

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

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

Posted: **Sun Nov 25, 2018 5:01 pm**

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

: Protect1.JPG (30.14 KiB) Viewed 25 times

: Protect2.JPG (29.07 KiB) Viewed 25 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

Posted: **Sun Nov 25, 2018 5:47 pm**

yodpao.b wrote: Sun Nov 25, 2018 5:01 pm ต้องการ 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

Posted: **Sun Nov 25, 2018 8:58 pm**

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

Snasui Excel Forum

การใช้ refresh ใน Pivotable

การใช้ refresh ใน Pivotable

Re: การใช้ refresh ใน Pivotable

Re: การใช้ refresh ใน Pivotable

Re: การใช้ refresh ใน Pivotable

Re: การใช้ refresh ใน Pivotable

Re: การใช้ refresh ใน Pivotable

Re: การใช้ refresh ใน Pivotable

Re: การใช้ refresh ใน Pivotable