Mình có đoạn mã này, giờ muốn thêm protect sheet. Các bạn xử lý giúp
Sub Cmd_Click()
DK = Cmd.Caption = "Hide"
With Range("$A$8:$A$28")
If DK Then .AutoFilter Field:=1, Criteria1:="<>0" Else .AutoFilter
End With
Cmd.Caption = IIf(DK, "Unhide", "Hide")
End Sub
Sub Cmd_Click()
DK = Cmd.Caption = "Hide"
With Range("$A$8:$A$28")
If DK Then .AutoFilter Field:=1, Criteria1:="<>0" Else .AutoFilter
End With
Cmd.Caption = IIf(DK, "Unhide", "Hide")
End Sub
