Lập trình với EXCELL (2 người xem)

[em gai mien que]

Chào các anh chị trên diễn đàn!
Em định làm một file ứng dụng trên excell. Nhưng Code của em không biết bị lỗi sao, khi em clich vào comman thì bị lỗi. Em gửi File lên diễn đàn nhờ các anh chị giúp em chỉnh lại Code giúp em. Em cảm ơn nhiều!
Sheet 1 em khóa với Pass là 123. Em muốn lập một bảng tính chỉ giới hạn người dùng ở một số ô nên em khóa Protect lại. Em dùng comman để lọc các ô có dữ liệu ở cột C, ẩn những ô không có dữ liệu. Khi em mở khóa 123 thì Comman vẫn hoạt động bình thường. Em muốn Code để khi khóa Sheet 1 mà Comman vẫn hoạt động bình thường!

 

[mhung12005]

Chào các anh chị trên diễn đàn!
Em định làm một file ứng dụng trên excell. Nhưng Code của em không biết bị lỗi sao, khi em clich vào comman thì bị lỗi. Em gửi File lên diễn đàn nhờ các anh chị giúp em chỉnh lại Code giúp em. Em cảm ơn nhiều!
Sheet 1 em khóa với Pass là 123. Em muốn lập một bảng tính chỉ giới hạn người dùng ở một số ô nên em khóa Protect lại. Em dùng comman để lọc các ô có dữ liệu ở cột C, ẩn những ô không có dữ liệu. Khi em mở khóa 123 thì Comman vẫn hoạt động bình thường. Em muốn Code để khi khóa Sheet 1 mà Comman vẫn hoạt động bình thường!

Lỗi là đúng rồi. Vì bạn đang khóa sheet thì làm sao mà Filter đc. Bạn phải mở khóa sheet ra đã rồi muốn làm gì thì làm chứ.

Private Sub CommandButton1_Click()   With Sheet1
      .Unprotect 123
      If .AutoFilterMode = True Then
      .AutoFilterMode = False
   Else
      .Range("A1:D23").AutoFilter Field:=3, Criteria1:="<>"
   End If
      .Protect 123
   End With
End Sub