Protect khi nhập xong một ô dữ liệu

[lq177]

Tôi có một vấn đề xin được hỏi diễn đàn.
Tôi có một cột dữ liệu hàng ngày phải nhập vào
Tôi muốn khi tôi nhập dữ liệu vào đến đâu thì cell đó sau khi nhập xong sẽ được Protect lại với một pass vào đó mình đặt trước, sau khi nhập xong muốn sửa lại thì phải mở khóa.
Chỉ cell nào chứa dữ liệu trong vùng chọn trước thì bị khóa, còn lại vẫn bình thường.

 

[nghiaphuc]

hj`! lại là thầy! Lâu rồi em không online thầy vẫn khỏe chứ!
Xin hỏi thầy code trên nếu áp dụng cho tất cả các sheet trong wordbook thì thay
Sheets("Sheet1").Protect "GPE"=This wordbook.Protect "GPE" thể này ạ!
Em thử không được. phiền thầy chỉnh cho em.

Nếu muốn áp dụng cho tất cả Worksheet thì phải thay bởi code sau:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Worksheets
        Sh.Protect "GPE"
    Next
End Sub

Còn nếu thay câu lệnh Sheets("Sheet1").Protect "GPE" bởi câu lệnh ThisWorkbook.Protect "GPE" thì anh chàng Excel lại hiểu đây là một việc khác, là việc protect workbook (bao gồm protect cấu trúc - Structure và protect trạng thái cửa sổ - Window) chứ không phải là protect sheet nữa.

 

[Lighting]

Cho mình hỏi thêm tí nhé, giờ mình protect sheet và ko muốn cho ng ta chọn ô bị khóa bằng vb:

Private Sub CommandButton1_Click()
    For Each Sh In ActiveWorkbook.Worksheets
            If CommandButton1.Caption = "Lock" Then
                Sh.Protect Password:="khanh"
                Sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
                Sh.EnableSelection = xlUnlockedCells
            Else
                Sh.Unprotect Password:="khanh"
            End If
        End If
    Next
    CommandButton1.Caption = IIf(CommandButton1.Caption = "Lock", "Unlock", "Lock")
End If
End Sub

nhưng chỉ được 1 sheet các sheet khác vẫn chọn ô lock đc.
Sau đó khi đóng file lock lại và mở thì các ô lock ở các sheet lại chọn đc hết
Có cách nào để khóa ô và ko cho chọn ô đc không nhỉ?
cho mình hỏi thêm tag php code là thế nào nhỉ ? hj!

 

[gakon_Office]

Anh chị cho em hỏi thêm có code nào không cho xoá và sửa đổi vùng chứa công thức không ạ?
Không cần khoá passwoord sheet.
Em dùng validation thì không sửa được nhưng vẫn xoá được.
Làm ơn chỉ cho em với. Xin cảm ơn.