VBA không chạy khi khóa protect sheet (1 người xem)

[komono]

các ae xem giùm đoạn code sau:
Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+m
'
Sheet2.[C:C].SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Rows("2:11").Select
Selection.EntireRow.Hidden = False
End Sub
nhấn Ctrl + m chạy bình thường nhưng khóa protec sheet thì không chạy dc
lỗi dòng Sheet2.[C:C].SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Hidden = True
rất mong các ac chỉ giùm

 

[Cá ngừ F1]

Bạn Protect thì code ko chạy là đúng rồi, muốn thế bạn phải unprotect sau đó lại protect lại,
Cầu chúc của protect như sau: expression .Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly).
Áp dụng vào trường hợp này, bạn cho đoạn code này vào đầu:

Sheet2.Unprotect "aaa"

Đoạn này vào cuối:

Sheet2.Protect "aaa"

thay chỗ aaa bằng mật khẩu của bạn.