Tự động khóa dữ liệu trên excel sau khi nhập

[zinzin8x]

Tôi có một file theo dõi ngày nghỉ của nhân viên (đính kèm). Anh Chị giúp dùm cách không cho sửa, xóa dữ liệu đã nhập. Cám ơn nhiều

bạn tải file đính kèm xem thử đúng ko nhé !

Sub UnProtect_1sheet(iSheet As String) 'any Sheet
    With ThisWorkbook.Sheets(iSheet)
        .Unprotect Password:="abc123"
    End With
End Sub

Sub Protect_1sheet(iSheet As String) 'any Sheet
    With ThisWorkbook.Sheets(iSheet)
        .Cells.Locked = True                                'bao ve. toan` bo. cell
        .Protect Password:="abc123", AllowFiltering:=True   'cho phep loc
    End With
End Sub

link: http://www.mediafire.com/view/dy2r8l...ect_sheet).xls

View more random threads:

• Các bạn ơi giúp mình với.!!!!!!!!!
• Xin code VBA Tìm kiếm, liệt kê đối tượng thiếu
• Timeline, slicer, dashbroad trong excel 2013
• List box bị mất khi tắt file
• Lấy 2 số lẻ sau dấu phẩy
• Bảng tính excel không tự động tính toán
• Giúp mình cách tải video từ trang support của Microsoft
• Hỏi về UserForm
• Cố định vùng in ( cả phần tiêu đề bên trên và phần chữ ký bên dưới)
• Lọc dữ liệu trong excel

[sownlee]

Tôi có một file theo dõi ngày nghỉ của nhân viên (đính kèm). Anh Chị giúp dùm cách không cho sửa, xóa dữ liệu đã nhập. Cám ơn nhiều