Cho phép sử dụng tính năng Group and Outline trên bảng tính bị khoá

Để
thực hiện điều này, trước tiên bạn hãy thiết lập Group and Outline cho
dữ liệu của mình. Chọn vùng dữ liệu rồi vào Data ➝ Group ➝ Outline và
chọn Auto Outline (E2003: Data ➝ Group & Outline) kết quả như hình
sau:



Sau đó, bạn dùng tính năng Protect Sheet để khoá bảng tính lại: vào
Review ➝ tại nhóm Changes ➝ chọn Protect Sheet và đặt vào mật mã bảo vệ.
(Ví dụ như mật mã là Secret).

Khi bảng tính trong chế độ bảo vệ thì bạn không thể sử dụng được tính
năng Group and Outline. Do vậy chúng ta sẽ sử dụng tham số
UserInterfaceOnly trong phương thức Protect kết hợp với sự kiện mở bảng
tính (Workbook_Open) để bật UserInterfaceOnly và EnableOutlining thành
True.

Sau khi áp dụng Group and Outline xong, bạn nhấn ALT+F11 để vào cửa sổ
VBE. Bạn chọn ThisWorkbook và nhập vào đoạn mã sau (Tên Sheet1 là
CodeName của Sheet Formulas Exercise, bạn cũng có thể thay bằng Index
của sheet trong bảng tính hoặc dùng TabName):

[highlight=VB]Private Sub Workbook_Open()
With Sheet1
.Protect Password:="Secret", UserInterfaceOnly:=True
.EnableOutlining = True
End With
End Sub[/highlight]

Sau đó nhấn Save và đóng cửa sổ VBE để trở về cửa sổ bảng tính, hãy lưu
bảng tính và đóng lại. Sau đó, bạn mở lại tập tin và cho phép Macro thực
thị (nếu nhận được hộp thoại cảnh báo), khi đó bạn có thể sử dụng được
các nút Group and Outline trong bảng tính đang bị khoá (các nút lệnh đã
bị mờ).



Ghi chú thêm:

Tham số UserInterfaceOnly của phương thức Protect

• là True: sẽ bảo vệ giao diện người dùng (user interface) nhưng cho phép dùng macro để thay đổi.
  
• nếu
  không khai báo thì nhận giá trị mặc định là False: bảo vệ cả giao diện
  người dùng và ngăn các lệnh macro can thiệp vào giao diện người dùng.
  
• EnableOutlining = True ➝ bật các nút Show/ Hide Detail
  

Tập tin đính kèm

• 
  
  Hack40.zip
  (8.8 KB, 2036 lần tải)