Hỏi về khóa sheet (1 người xem)

[Hiennd2]

E có Copy code của a NDU để chạy, giờ muốn thêm phần protect sheet thi làm ntn vậy a. cảm ơn a và các bạn

Sub Cmd_Click()
DK = Cmd.Caption = "Hide"
With Range("$A$1:$A$3000")
If DK Then .AutoFilter Field:=1, Criteria1:="<>0" Else .AutoFilter
End With
Cmd.Caption = IIf(DK, "UnHide", "Hide")
End Sub

 

[huuthang_bd]

E có Copy code của a NDU để chạy, giờ muốn thêm phần protect sheet thi làm ntn vậy a. cảm ơn a và các bạn

Sub Cmd_Click()
DK = Cmd.Caption = "Hide"
With Range("$A$1:$A$3000")
If DK Then .AutoFilter Field:=1, Criteria1:="<>0" Else .AutoFilter
End With
Cmd.Caption = IIf(DK, "UnHide", "Hide")
End Sub

Đoán đại

Sub Cmd_Click()
On Error Resume Next
ActiveSheet.Unprotect "Pass" 'Pass là Password protect của bạn
  DK = Cmd.Caption = "Hide"
  With Range("$A$1:$A$3000")
    If DK Then .AutoFilter Field:=1, Criteria1:="<>0" Else .AutoFilter
  End With
  Cmd.Caption = IIf(DK, "UnHide", "Hide")
ActiveSheet.Unprotect "Pass" 'Pass là Password protect của bạn
End Sub

 

[Hiennd2]

Mình đã thử nhưng chưa được bạn ah, mình gửi file kèm theo

Mình đã thử nhưng chưa được bạn ah, mình gửi file kèm theo