Chào Anh/Chị ạ, em có vấn đề này cần giúp đỡ
Công ty em có domain là snow.com, mỗi nhân viên có 1 user để log vào máy tính tại cơ quan với User là tên email và là tên của nhân viên đó, ví dụ nhân viên: vinhhung.dam (em kèm hình để dễ hình dung)
Công ty có file excel chỉ cho 10 user trong range(A1:A10) được mở file như code ở phía dưới => User "vinhhung.dam" nằm trong range (A1:A10) thì sẽ mở được file.
Ví dụ code phía dưới chỉ mở được User: snow\vinhhung.dam
Nay em nhờ anh chị giúp đoạn code để tất cả User trong công ty đều mở được với điều kiện cùng domain snow.com
Tức là tất cả các máy tính có domain snow\userabc đều mở được file (userabc là user bất kỳ trong công ty)
Xin cảm ơn ạ./.
Công ty em có domain là snow.com, mỗi nhân viên có 1 user để log vào máy tính tại cơ quan với User là tên email và là tên của nhân viên đó, ví dụ nhân viên: vinhhung.dam (em kèm hình để dễ hình dung)
Công ty có file excel chỉ cho 10 user trong range(A1:A10) được mở file như code ở phía dưới => User "vinhhung.dam" nằm trong range (A1:A10) thì sẽ mở được file.
Ví dụ code phía dưới chỉ mở được User: snow\vinhhung.dam
Nay em nhờ anh chị giúp đoạn code để tất cả User trong công ty đều mở được với điều kiện cùng domain snow.com
Tức là tất cả các máy tính có domain snow\userabc đều mở được file (userabc là user bất kỳ trong công ty)
Xin cảm ơn ạ./.
Mã:
Private Sub Workbook_Open()
Dim UserNames As Variant
With Me.Sheets("Username")
UserNames = .Range("A1:A10").Value
End With
If Not IsNumeric(Application.Match(Environ("UserName"), UserNames, 0)) Then
MsgBox "Xin chao " & Environ("UserName") & "file se dong"
Me.Close False
Else
MsgBox "Xin chao " & Environ("UserName") & "Ban da mo duoc file"
End If
End Sub