Một tác vụ phổ biến được thực hiện trong macro là khóa và mở khóa các ô và đối tượng khác nhau trong sổ làm việc. Điều này thường được thực hiện vì lý do bảo vệ, do đó người dùng không thể vô tình sửa đổi mọi thứ. Nếu bạn cần mở khóa các biểu đồ trong sổ làm việc của mình, bạn có thể dễ dàng làm như vậy nếu nhớ rằng mặc dù các biểu đồ có thể được coi là đối tượng vẽ, nhưng bạn không mở khóa chúng dưới dạng đối tượng vẽ – bạn mở khóa cụ thể đối tượng biểu đồ.

Ngoài ra, cách bạn mở khóa biểu đồ phụ thuộc vào việc nó là một trang Biểu đồ hay một đối tượng Biểu đồ trên một trang tính thông thường. Đoạn mã sau, có tên ChartUnProtect, cung cấp một ví dụ về cách bỏ bảo vệ thành công cả hai loại biểu đồ.

Sub ChartUnProtect()

Dim wks As Worksheet     Dim cht As Chart     Dim chtObj As ChartObject     Dim PW As String     PW = "mypass"



'Unprotect all Chart sheets     For Each cht In ActiveWorkbook.Charts         Sheets(cht.Name).Unprotect password:=PW     Next

'Unlock all Chart objects on each worksheet     For Each wks In ActiveWorkbook.Worksheets         wks.Unprotect password:=PW         For Each chtObj In wks.ChartObjects             wks.DrawingObjects(chtObj.Name).Locked = False         Next         wks.Protect password:=PW     Next End Sub

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (2264) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003.