Xin giúp: Tự động khoá, mở một sheet theo điều kiện (1 người xem)

[Blad01]

Trong vùng nhập liệu em có các cột A và AN chứa công thức (như trong File đính kèm) vì vậy cần phải khoá lại để người dùng không xoá được công thức. Nhưng khi khoá các cột đó lại thì trong vùng nhập liệu người dùng không delete được dòng hoặc khi Insert dòng mới thì công thức tại cột đó không tự động sao chép sang dòng mới chèn (em dùng chức năng Format as table trong excel). Vì vậy có cách nào để:
Excel tự động mở khoá trước khi người dùng chọn Insert dòng mới hoặc Delete dòng cũ. Sau khi thực hiện xong lệnh thì excel tự động khoá lại như trước.
Rất mong anh chị sớm giúp đỡ, em xin cảm ơn.
PASS trong file đính kèm là: 10

 

[huuthang_bd]

Trong vùng nhập liệu em có các cột A và AN chứa công thức (như trong File đính kèm) vì vậy cần phải khoá lại để người dùng không xoá được công thức. Nhưng khi khoá các cột đó lại thì trong vùng nhập liệu người dùng không delete được dòng hoặc khi Insert dòng mới thì công thức tại cột đó không tự động sao chép sang dòng mới chèn (em dùng chức năng Format as table trong excel). Vì vậy có cách nào để:Excel tự động mở khoá trước khi người dùng chọn Insert dòng mới hoặc Delete dòng cũ. Sau khi thực hiện xong lệnh thì excel tự động khoá lại như trước.Rất mong anh chị sớm giúp đỡ, em xin cảm ơn.PASS trong file đính kèm là: 10

Nếu chỉ để người khác không xóa thì chỉ cần cảnh báo là được. Ai xóa chạy sai ráng chịu. Khóa khóa mở mở chi cho phức tạp? Chưa kể người ta xóa trúng dòng nằm trong vùng công thức thì cũng như không.

 

[hitoko]

bạn chọn toàn bộ bảng ( crtl + A) , Formart cell .... tắt ô Locked
sau đó bác ấn crtl + G ... chọn Special .. tick vào dòng Formulas .... Enter ( nó sẽ chọn vùng có công thức)
tiếp .... bác vào tool > protection WB hay sheet tùy bác .... đặt pass = tuybac
xong bc đầu
Tiếp
Alt + f11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Locked = True Then
Me.Protect Password:="tuybac"

Else
Me.Unprotect Password:="tuybac"

End If

End Sub
Xong ... chúc bác thành công .... em ko giỏi lắm chỉ bít thế!
Còn ai pro vào giúp em tí
http://www.giaiphapexcel.com/forum/...Bạn-Giúp-Về-Việc-Copy-Từ-2-WB-sang-1-WB-Chính

 

[Blad01]

bạn chọn toàn bộ bảng ( crtl + A) , Formart cell .... tắt ô Locked
sau đó bác ấn crtl + G ... chọn Special .. tick vào dòng Formulas .... Enter ( nó sẽ chọn vùng có công thức)
tiếp .... bác vào tool > protection WB hay sheet tùy bác .... đặt pass = tuybac
xong bc đầu
Tiếp
Alt + f11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Locked = True Then
Me.Protect Password:="tuybac"
Else
Me.Unprotect Password:="tuybac"
End If
End Sub
Xong ... chúc bác thành công .... em ko giỏi lắm chỉ bít thế!
Còn ai pro vào giúp em tí
http://www.giaiphapexcel.com/forum/...Bạn-Giúp-Về-Việc-Copy-Từ-2-WB-sang-1-WB-Chính

không được bác ạ, nó vẫn xoá dòng hoặc Insert bình thường như chưa đặt pass.

 

[hitoko]

vậy chắc mình nghĩ sai ....
http://www.giaiphapexcel.com/forum/...hỉ-cho-ghi-lần-đầu-không-cho-thay-đổi-hay-xóa
bạn tham khảo nhé ... mình đang nhức đầu cái project của mình!

 

[Blad01]

Bác nào giúp em với. Lẽ nào không có giải pháp sao

 

[Blad01]

Nếu chỉ để người khác không xóa thì chỉ cần cảnh báo là được. Ai xóa chạy sai ráng chịu. Khóa khóa mở mở chi cho phức tạp? Chưa kể người ta xóa trúng dòng nằm trong vùng công thức thì cũng như không.

Vì vậy em mới muốn khắc phục vấn đề bác nêu, ai giúp em với

 

[Blad01]

Trong VBA không làm được những yêu cầu của em sao các bác. Hay bác nào có giải pháp khác để vừa có thể bảo vệ đc công thức, vừa chèn được dòng và dòng mới chèn tự động copy công thức từ dòng trên hoặc dưới liền kề thì bảo em với ạ

 

[hungdiep85]

Chào bạn công lực của mình thì chỉ làm được như vậy thôi, bạn chọn dòng muốn Insert hay Delete rồi chạy code.
Code trong file là mình sưu tầm trên GPE. chứ mình không biết viết code, hihi... Mong các thầy chỉ dạy thêm. Em cảm ơn

File Book3 em sửa chút hihi