User Access Visibility

[SteynBS]

Good day

I was wondering it is possible to restrict the visible cells to the person currently using the file. If user A opens the file, he can only see the data where his name is assigned in a row. If user B opens the file he can only see data assigned to him.

This is a file in one drive where multiple users has access to it, but we need to restrict what they can see.

 

[SteynBS]

This will keep Header row:

Option Explicit

Private Sub Workbook_Open()
Dim sht As Worksheet, nRange As Range, cell As Range, un As String, n As Range, i As Long
'Set the UserName to search for
un = Application.UserName
'Define the Sheet that you want to search for Names in
Set sht = ThisWorkbook.Sheets("Sheet1")
'Unprotect the Worksheet and unlock cells
sht.Unprotect ("pword")
sht.Cells.Locked = False
'Define the Column to search for Name. This searches Column A
Set nRange = sht.Range(Cells(2, 1), Cells(sht.UsedRange.Rows.Count, 1))
'Check each row in Column A for Name match and hide and lock rows that don't match
For Each cell In nRange
    Set n = cell.Find(un, LookAt:=xlPart)
    If n Is Nothing Then
        sht.Rows(cell.Row).Hidden = xlVeryHidden
        sht.Rows(cell.Row).Locked = True
    End If
Next cell
sht.EnableSelection = xlUnlockedCells
sht.Protect ("pword")
End Sub

Thank you this works - sorry just need to make sure if there is a way to still use the sort function on the filtered data?