Các bạn sửa giúp mình code khóa dòng có điều kiện (1 người xem)

[ndhmoney686]

Mình có gửi file đính kèm và ghi chi tiết ở trong đó. Mong các bạn xem và giúp mình. Cảm ơn các Bạn nhiều!

 

[Quang_Hải]

Thêm tí xíu là autofilter xài được. Cái chỗ màu xanh thì vào format > cell > Protection > đánh dấu mục locked và hidden là ok

Protect "123", AllowFiltering:=True

 

[ndhmoney686]

Thêm tí xíu là autofilter xài được. Cái chỗ màu xanh thì vào format > cell > Protection > đánh dấu mục locked và hidden là ok

Protect "123", AllowFiltering:=True

Cảm ơn Anh Quanghai1969. Theo hướng dẫn của Anh em thêm AllowFiltering:=True vào code thì sau khi mở khóa và sửa đổi giữ liệu rồi khóa lại. Chức năng Autofilter vẫn hoạt động bình thường rồi A ạ. Em Cảm ơn Anh!

Em còn 1 vấn đề mong Anh và các Bạn giúp nữa là:
"Cái chỗ màu xanh thì vào format > cell > Protection > đánh dấu mục locked và hidden" nhưng sau khi mở pass sửa đổi dữ liệu xong rồi khóa lại thì nó chỉ còn tích ở mục hidden, còn lcoked thì ko còn tích nữa, nếu nháy đúp vào ô thì sẽ bị mất công thức ở bên trong. Anh Quanghai1969 và các Bạn Có cách nào sửa code giúp em để sau khi mở pass sửa đổi dữ liệu của 1 dòng đã bị khóa xong rối lại khóa lại mà nó vẫn giữ được hidden và locked.
Mong Anh và các Bạn giúp đỡ.

 

[Quang_Hải]

Mình kiểm tra code thấy bình thường mà

Ahhhhhh phải xóa dòng này mới đặng nghen

Cells.Locked = False

 

[ndhmoney686]

Mình kiểm tra code thấy bình thường mà



Em Cảm ơn Anh! Em thấy khi mở khóa sửa đổi dữ liệu rồi sau đó khóa lại thì "phần tô mầu xanh - cột thành tiền có công thức" nó chỉ còn hidden mặc dù trước đấy đã chọn cả locked và hidden. và do chỉ còn hidden nên khi nhấy đúp vào ô nó sẽ bị mất công thức ở bên trong.
Do file có nhiều người làm em muốn kiểm soát việc sửa đổi. và muốn các công thức ko sửa đổi được. Nên em để chế độ khóa dòng. Anh xem có cách nào khác nữa là nếu dòng mà tích chọn khóa dòng rồi thì cả dòng ko được sửa. Còn những dòng chưa chọn khóa dòng thì cứ những ô nào có dấu "=" tức những ô có công thức thì nó cũng khóa ô đó luôn ở chế độ locked và hidden.
Mong Anh và các Bạn giúp đỡ!

 

[Quang_Hải]

QUOTE=ndhmoney686;416329]

Mình kiểm tra code thấy bình thường mà



Em Cảm ơn Anh! Em thấy khi mở khóa sửa đổi dữ liệu rồi sau đó khóa lại thì "phần tô mầu xanh - cột thành tiền có công thức" nó chỉ còn hidden mặc dù trước đấy đã chọn cả locked và hidden. và do chỉ còn hidden nên khi nhấy đúp vào ô nó sẽ bị mất công thức ở bên trong.
Do file có nhiều người làm em muốn kiểm soát việc sửa đổi. và muốn các công thức ko sửa đổi được. Nên em để chế độ khóa dòng. Anh xem có cách nào khác nữa là nếu dòng mà tích chọn khóa dòng rồi thì cả dòng ko được sửa. Còn những dòng chưa chọn khóa dòng thì cứ những ô nào có dấu "=" tức những ô có công thức thì nó cũng khóa ô đó luôn ở chế độ locked và hidden.
Mong Anh và các Bạn giúp đỡ!

Bạn xem lại lần nữa xem thế nào, sửa code như thế này nha

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cl As Range
If Target.Column = 2 Then
ActiveSheet.Unprotect 123
For Each Cl In Range([B7], [B65536].End(3))
    If UCase(Cl.Value) = "R" Then Rows(Cl.Row).EntireRow.Locked = True
Next
[G7:G34].Locked = True
ActiveSheet.Protect 123, AllowFiltering:=True
End If
End Sub

 

[ndhmoney686]

Em chào Anh quanghai1969, và các Bạn! Hôm trước Em có nhờ A và các bạn sửa code khóa dòng cho em và em đã ứng dụng vào file của em ok rồi. Nhưng hôm nay Em có 1 file khác em cho code vào nhưng cứ nhập hoặc sửa dữ liệu ở trong sheet là nó nhẩy sang vùng code và báo lỗi. Mong Anh quanghai1969 và các Bạn xem giúp Em xem nó bị lỗi gì và sửa giúp Em. Cảm ơn A và các Bạn nhiều!

 

[Quang_Hải]

Mình đã down file về xem thử nhưng không thấy báo lỗi gì cả

 

[ndhmoney686]

Em ghi lại file video up lên. Mong Anh và các bạn xem giúp Em.

 

[Quang_Hải]

Em ghi lại file video up lên. Mong Anh và các bạn xem giúp Em.

Cái file .exe không thể mở được trong công ty bạn ơi.

 

[ndhmoney686]

Cái file .exe không thể mở được trong công ty bạn ơi.

Vậy Em gửi file ảnh đính kèm Anh và các Bạn xem và giúp em bị lỗi gì và sửa code giúp em. Em cảm ơn Anh và các Bạn!

 

[Quang_Hải]

Có đọc được gì đâu, nhỏ xíu thôi, phóng to lên cũng không thấy gì cả

 

[Quang_Hải]

Mình xem qua đoạn video và thấy bạn chưa tác động gì đển cột B nhưng code đã hoạt động rồi
Trong file có nhiều code quá, nếu không xài thì xóa đi cho gọn
Bạn thử đoạn code này xem sao

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cl As Range
If Target.Column = 2 Then
Unprotect "123"
If UCase(Target) = "R" Then Target.EntireRow.Locked = True
Protect "123", AllowFiltering:=True
End If
End Sub

 

[ndhmoney686]

Anh ơi hôm nay có bạn chỉ giúp em bỏ Shockwave Flash. Trong mục nhập code chọn Tool / References rồi bỏ chọn Shockwave Flash thì thấy đuợc Anh ạ.