Snasui Excel Forum

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

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

[quote=yodpao.b post_id=88330 time=1543140102 user_id=1581]
ต้องการ Protect ทุกหน้า โดยให้ Protect เฉพาะ 2 หัวข้อ หัวข้อดังนี้
Protect1.JPG
Protect2.JPG
เขียน code อย่างไรครับ ให้ทุก Sheet Protect เหมือนกัน
[code]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]
[/quote]
ปรับเป็น
[code]
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
[/code]

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

ต้องการ Protect ทุกหน้า โดยให้ Protect เฉพาะ 2 หัวข้อ หัวข้อดังนี้
[attachment=1]Protect1.JPG[/attachment]
[attachment=0]Protect2.JPG[/attachment]
เขียน code อย่างไรครับ ให้ทุก Sheet Protect เหมือนกัน
[code]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]

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

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

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

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

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

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