Phân quyền trong 1 sheet

[tiladen]

Dear các bạn,

Mình có 2 cột code và name trong 1 sheet( như file đính kèm) đã gán chức năng highlight duplicate ở từng cột

code name
a001 Test01
a002 Test02
a003 Test03
a004 Test04
a005 Test05
a006 Test06
a007 Test07

mình muốn người dùng chỉ được thêm nội dung vào 2 cột này, không được sữa hay xoá nội dung đã có.

Mong các bạn chỉ giúp
Cám ơn các bạn nhiều ! ^.^

 

[phucbugis]

Dear các bạn,

Mình có 2 cột code và name trong 1 sheet( như file đính kèm) đã gán chức năng highlight duplicate ở từng cột


mình muốn người dùng chỉ được thêm nội dung vào 2 cột này, không được sữa hay xoá nội dung đã có.

Mong các bạn chỉ giúp
Cám ơn các bạn nhiều ! ^.^

bạn mở file, cho chạy Macro ---> xem có phải vậy ko?

Option Explicit
Private Function SheetProtected(TargetSheet As Worksheet) As Boolean
'Function purpose:  To evaluate if a worksheet is protected
    If TargetSheet.ProtectContents = True Then
        SheetProtected = True
    Else
        SheetProtected = False
    End If
End Function

Sub Unprotect_sheet()
    ActiveSheet.Unprotect Password:="phucbugis"
End Sub
Sub ProtectSheet_withdk()
Dim ws As Worksheet
Set ws = ActiveSheet
    If SheetProtected(ws) Then
        MsgBox ("protected"), vbInformation
    Else
        'If not protected
        ws.Cells.Locked = True
        Range("A2:B8").Locked = False
        ws.Protect Password:="phucbugis", AllowFiltering:=True
    End If


End Sub

Link: https://www.mediafire.com/?zd45a4bgphre1pv

 

[tiladen]

Dear a,

file này mỗi người dùng sẽ thêm thông tin vào,không được xoá hay sửa những thông tin mà người khác đã thêm vào. Ý em là zay
Cám ơn anh đã góp ý

 

[phucbugis]

Dear a,

file này mỗi người dùng sẽ thêm thông tin vào,không được xoá hay sửa những thông tin mà người khác đã thêm vào. Ý em là zay
Cám ơn anh đã góp ý

mình hiểu ý bạn rồi ---> mở file test lại nhé,
Sub ProtectSheet_withdk thay đổi thành

Sub ProtectSheet_withdk()
Dim WS As Worksheet
Set WS = Sheets("Sheet1")
    With WS
        .Unprotect Password:="phucbugis"
        .UsedRange.Locked = True
        .UsedRange.SpecialCells(xlCellTypeBlanks).Locked = False
        .Protect Password:="phucbugis", AllowFiltering:=True
    End With
End Sub

'- - -
nếu kết quả OK thì bạn nói xem, phải cài nó vào sự kiện nào của file đó?

Link: https://www.mediafire.com/?cmq1zqecxue5lpq

 

[tiladen]

Dear a,

Thanks a rat nhieu

a cho e hoi cau lenh nay co ý nghĩa gì vậy

.UsedRange.SpecialCells(xCellTypeBlanks).Locked = False

 

[phucbugis]

Dear a,

Thanks a rat nhieu

a cho e hoi cau lenh nay co ý nghĩa gì vậy

.UsedRange.SpecialCells(xCellTypeBlanks).Locked = False

dòng
.UsedRange.Locked = True ---> lock các ô đã dùng

còn
.UsedRange.SpecialCells(xCellTypeBlanks).Locked = False ---> ko lock các ô trống.