Không cho di chuyển hoặc thay đổi ô trong bảng tính

[jb007]

Nhờ các bạn giúp mình khóa sheet không cho dùng chuột để rê, dịch chuyển 1 ô hoặc nhiều ô trong sheet. Tuy nhiên ta vẫn có thể nhập, hiệu chỉnh dữ liệu trong các ô đó bình thường.
Thánk!

 

[jb007]

KHông ai giúp mình được sao?!
Vì những ô này mình đã đặt name hết rồi, khi rê, di chuyển như thế thì công thức bị sai hết, không còn đúng nữa.

 

[khoavu87]

bạn thử gửi file lên xem sao?mình thấy câu hỏi này có trên diễn đàn rùi thì phải.
bạn thử vào trang này tham khảo xem
http://www.giaiphapexcel.com/forum/archive/index.php/t-19677.html

 

[jb007]

Làm như vậy thì mình biết rồi. Mình muốn la không cho di chuyển (dùng chuột rê) nhưng mình van có the truy xuất, nhập, thay đổi nội dung bình thường.
Hay bạn nào chỉ mình khóa con trỏ chuột cho sheet cũng được.

 

[khoavu87]

Private Sub workbook_sheetselectionchange(ByVal sh As Object, ByVal target As Range)
'password dat la "25251325"
Dim rngdata As Range
'bat dau vong lap for qua vong lap for co chua gia tri
For Each rngdata In target.Cells
'kiem tra xem o so co phai la cong thuc khong ?
If rngdata.HasFormula Then
'khoa o neu o do la cong thuc
ActiveSheet.Protect ("25251325")
Exit Sub
Else
'huy bo khoa o neu o do khong phai la cong thuc
ActiveSheet.Unprotect ("25251325")
End If
Next rngdata
End Sub

 

[jb007]

Thanks những chia sẻ của bạn. Nhưng vấn đề la không phải protect sheet ma không cho dùng chuột rê ô (vd: dùng chuột rê (move) ô a1 qua a2, hay a3,.....) như thế công thức của những sheet khác se bi sai. vì a1 bây giờ là a2 hoặc a3 rồi.
Thanks nhé!

 

[jb007]

Vậy là không ai giúp được mình rồi!
Chỉ cần vô hiệu con trỏ chuột cũng ok.