Bài viết: Chiêu 40: Cho phép sử dụng tính năng Group and Outline trên bảng tính bị khoá

TranThanhPhong

Thời gian !!!
Thành viên danh dự
Tham gia ngày
16 Tháng ba 2007
Bài viết
2,104
Thích
18,841
Điểm
0
#1
Chiêu 40: 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):

Mã:
Private Sub Workbook_Open()
    With Sheet1
       .Protect Password:="Secret", UserInterfaceOnly:=True
       .EnableOutlining = True
    End With
End Sub


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


Một số bài viết có liên quan:
1/ Chiêu thứ 39: Ngày tháng trong Excel
2/ Chiêu 38: Thêm dữ liệu vào danh sách Validation một cách tự động

3/ Chiêu 37: Chuyển đổi các hàm và công thức trong Excel thành giá trị
4/ Chiêu thứ 36: Làm nổi các Subtotal của Excel
5/ Chiêu 35: Tự tạo danh sách để fill
6/ Chiêu 33: Tạo các định dạng số cho riêng bạn
7/ Chiêu 32: Thao tác trên dữ liệu với Advanced Filter
8/ Chiêu thứ 31: Sắp xếp ngẫu nhiên
9/ Chiêu thứ 29: Tùy biến chú thích của ô bảng tính
10/ Chiêu 28: Trích xuất dữ liệu số trong 1 chuỗi bằng VBA

http://www.giaiphapexcel.com/vbb/content.php?364
 

nampm

Thành viên mới
Tham gia ngày
7 Tháng chín 2018
Bài viết
1
Thích
0
Điểm
13
Tuổi
38
#2
Mình đã làm như hướng dẫn nhưng không được, mình đang dùng excel 2016, cho mình hỏi thêm cách này áp dụng cho excel phiên bản nào nhỉ?
 
Top