Kullanıcı adına göre dosyayı kullanma izni

[elevisse]

Arkadaşlar Merhaba,
Aşağıdaki kodla xxxx kullanıcısına dosyayı kullanma izni veriliyor. yyyy,kkkk,ssss,pppp gibi birden çok kişiye aynı anda kullanma izni vermek istiyorum(örnekte belirttiğim gibi kullanıcıları ben belirlemek istiyorum). Aşağıdaki koda bunu nasıl ekleyebilirim. Yardımlarınızı rica ederim. Teşekkürler.

Sub Kullaniciadi()

 Sheets("Data").Select
     Range("A1").Select
Range("IV1").Value = Environ("Username")
 Sheets("Data").Select
     Range("A1").Select
    If Range("IV1") = "xxxx" Then
     Sheets("Data").Select
     Range("A1").Select
          Else
      MsgBox Range("IV1").Value & " bu dosyayı kullanmaya yetkiniz yoktur!!! ActiveWorkbook.Close savechanges:=False
   End If
End Sub

 

[elevisse]

Arkadaşlar Merhaba,
İstediğim kodları buldum. Sizinle paylaşmak istiyorum. İlgilenen arkadaşlara çok teşekkür ederim. iyi çalışmalar.

Sub kullaniciadi()
    Dim ValidUser
    ValidUser = Application.Match(Environ("Username"), Array("yyyy", "kkkk", "ssss", "pppp", "xxxx"), False)
    If Not IsError(ValidUser) Then
        Sheets("Data").Select
        Range("A1").Select
    Else
        MsgBox Environ("Username") & " bu dosyayı kullanmaya yetkiniz yoktur !!!"
        ThisWorkbook.Close SaveChanges:=False
    End If
End Sub