kullanıcıyı kontrol eden kod çalışmadı? kod ekte

[abcd_efe]

merhaba arkadaşlar
belge açılışında kullanıcının doğru olup olmadığını kontrol etmesini istediğim ve sizlerin yardımıyla elde ettiğim aşağıdaki kod çalışmadı. sorun ne olabilir acaba.

Private Sub Workbook_Open()
If Application.UserName = "x32" Then
Sheets("Sayfa1").Select
Else
MsgBox "olmaz", , "dikkat"
Application.Quit
End If
End Sub

 

[abcd_efe]

hımm arkadaşlar şu dikkatimi çekti yukarıdaki kod excel kullanıcı adı için imiş bir kodlara bilgisayar kullanıcı adını giriyor idim.
sorumu şöyle değiştirmem gerekiyor anlaşılan.
yukarıdaki kodu bilgisayarın kullanıcı adına göre nasıl uyarlayabilirim.
şimdiden teşekkür ederim

 

[Haluk]

Sub KullaniciAdi()
    Dim WscNetwork As Object
    Set WscNetwork = CreateObject("WScript.Network")
    MsgBox WscNetwork.UserName
    Set WscNetwork = Nothing
End Sub

 

[abcd_efe]

aşağıdaki gibi yaptım yine olmadı...

Private Sub Workbook_Open()
Dim WscNetwork As Object
Set WscNetwork = CreateObject("WScript.Network")
Set WscNetwork = Nothing
If WscNetwork.UserName = "x32" Then
Sheets("Sayfa1").Select
Else
MsgBox "olmaz", , "dikkat"
Application.Quit
End If
End Sub

 

[Haluk]

Verdiğim kodu yanlış kullanıyorsunuz...biraz daha dikkat edin.

 

[abcd_efe]

MsgBox WscNetwork.UserName

kodunu istemiyorum. yani kullanıcı adını ekrana yazsın istemiyorum. sadece exceldeki tanımlı kullanıcıya göre değilde bilgisayarın kullanıcı adını kontrol etsin doğru ise açsın istiyorum
sizin kodla karma bişey yapıyom deniyom olmuyor
yapamadım valla

 

[Kemal Demir]

Ustadların yanında İzin varsa bende değişik bir oneri sunmak istiyorum
userform ile sole kullanabilirsin

Private Sub CommandButton1_Click()
if textbox1.value=Application.username then
Sheets("Sayfa1").select
else
Unload me
Thisworkbook.close
End if
End Sub

Zannedersem İşinizi görür

 

[abcd_efe]

ilginiz için teşekkür ederim.
Ben excel dosyası ilk açılırken bu işlemi yapmasını istiyorum. yani herhangi bir butona basılmasına gerek kalmadan yani...
userform da değil, normal excel sayfasında...

 

[Haluk]

    Dim WscNetwork As Object
    Set WscNetwork = CreateObject("WScript.Network")
    If UCase(WscNetwork.UserName) = UCase("x32") Then
        Sheets("Sayfa1").Select
    Else
        MsgBox "olmaz", , "dikkat"
        Application.Quit
    End If
    Set WscNetwork = Nothing

 

[abcd_efe]

işte bu
çok teşekkürler

 

[Kemal Demir]

Çok İyi Gerçekten İyi :bravo: :bravo: