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!
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.
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.
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
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é!