Chào cả nhà
Em đang muốn kiểm soát file excel quản lý thông tin danh sách lao động xuất khẩu thị trường Nhật. File cho cả nhóm nhập dữ liệu vào cuối tháng, để tránh bị xóa các dữ liệu, em cần như sau:
- Nhân viên nhập dữ liệu vào cột sau khoảng thời gian 1h hoặc 2h là excel không cho sửa hoặc xóa dữ liệu đã nhập.
Nhờ các cao thủ giúp đỡ.
Ví dụ: Muốn khóa Range("A1: F8") ngay sau khi nhập dữ liệu xong: (P/s: lỡ có nhập sai thì ghi chú thích bên cạnh cho Admin sửa)
1. Mở khóa range này trước, chọn Range("A1: F8") và nhấp chuột phải, sau đó chọn
Format Cells trong menu nhấp chuột phải và trong hộp thoại
Format Cells ô, bỏ chọn hộp
Locked trong tab
Protection và cuối cùng nhấp vào nút
OK .
2. Click
Review >
Protect Sheet. Và nhập một mật khẩu để bảo vệ bảng tính này (as the same Password trong code dưới đây):
'-------------------------------------------------------------------------------
Dim mRg As Range
Dim mStr As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
'-------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("A1:F8"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="123"
End Sub
'-------------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
'-------------------------------------------------------------------------------
4- Range nào hay sheet nào thì bạn tùy biến theo trang tính của bạn.
.
