Hỏi cách bảo vệ Pivot (1 người xem)

[khamha]

Các bạn ơi,có cách nào bảo vệ được PV không cho người khác xóa,thay đổi...
Cảm ơn

 

[khamha]

Mình dùng cách này thấy cũng được,nhờ các bạn xem hộ và cho ý kiến.
1. dùng Code này cho Sheet9

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Locked = True Then
Me.Protect Password:=""
Else
Me.Unprotect Password:=""
End If
End Sub

2. dùng Code này cho Sheet"Data"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("Sheet9").Select
ActiveSheet.Unprotect
ActiveSheet.PivotTables("PivotTable9").PivotCache.Refresh
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoRestrictions
Sheets("Data").Select
End Sub

Cảm ơn các bạn

 

[be_09]

Bảo vệ Pivot Table

Bạn dùng cách này để bảo vệ Pivot Table, cách thực hiện như sau:
Mở sheet có chứa Pivot Table, từ menu chọn Tools, chọn Protection, chọn Protect Sheet Làm xuất hiện cửa sổ Protect Sheet và nhập mật khẩu vào khung Password to unProtect Sheet, trong khung Allow all Users of tis worksheet to bạn đánh dấu chọn tất cả và nhấn nút OK. Làm xuất hiện hộp Confirm Password to Proceed, nhập lại mật khẩu và nhấn nút OK, vậy là xong.

Chúc bạn thực hiện thành công