Excel giriş yapan kullanıcıları kaydetme

[abnur]

Merhaba,

Excel giriş yapan sağ üstte bulunan kullanıcı adını ve mümkünse bilgisayar kullanıcı adını excel dışında bir txt dosyaya kaydedecek bir yöntem var mıdır ? Bu tür bir çok şey denedim fakat sorun oldu.

 

[Necdet]

Merhaba,
Aşağıdaki kodları BuÇalışmaKitabı'nın kod bölümüne kopyalayıp, Sürücü adını ve dosya adını kendinize uyarlayınız.

Private Sub Workbook_Open()

    Open "C:\YEDEK\Dosya_Kimler_Acti.txt" For Append As #1
    Print #1, Format(Now, "dd.mm.yyyy dddd hh:mm:ss") & vbTab & Environ("UserName") & vbTab & vbTab & Application.UserName
    Close #1
    
End Sub

 

[abnur]

Söylemiş olduğunuz şekilde txt dosyasına yazıyor ama bazı bilgisayarların bu excel açmasında bu şekilde hata alıyorum. Bu tür bir hata olmaması için vb dışında aynı excel içinde gizli birsayfayada girenleri aynı şekilde yazabilir miyiz ? veya bu sorunun çözümü nedir ?

 

[Necdet]

Merhaba,
Ben C sürücüsünde Yedek klasöründe dosya oluşturma örneğini vermişim.
Siz bunu sadece C sürücüsü olarak değiştirirseniz, nasıl olsa tüm bilgisayarlarda C sürücüsü vardır.

Eğer network ortamında kullanıyorsanız, herkesin eriştiği bir sürücü ve dizin seçebilirsiniz.

Excelde gizli sayfaya da yönlendirilebilinir, hatta bunu siz deneyebilirsiniz.
Sayfanın son satırına yazdırırsınız, fakat bu da rahatlıkla çözülebilinir.

 

[abnur]

Merhaba,

Ortak alanda giriş kaydını .txt dosyasına yaptırıyorum. Farklı makinelerden dosya açıldığında bazı makina sorunsuz açıyor ve txt yazıyor. Bazı makinelerde fotoğrafta belirttiğim hatayı veriyor ve ortak alanda bulunan txt dosyasına yazmıyor.

Visuel Basic kod tipini kullanmadan bunu aynı exel içinde farklı ve kilitlenmiş bir sayfaya yazma imkanımız var mı ?

 

[Necdet]

Path diyor hatada, yani öyle bir yol yok anlamında.

 

[abnur]

Şöyle bir durum var. Hata veren kullanıcıdan ortak alanda bulunan .txt yerini düzeltip kaydettiğimde, çalışıyor. Daha önce çalışan makinadan açtığımda hata veriyor. Bu kodu açtığımız excel içinde farklı bir sayfaya yazdıramaz mıyız ?

 

[Necdet]

Merhaba,

Sayfa adını kendinize göre uyarlayınız.

Yine kodlar BuÇalışmaKitabı'nın kodlarında olmalı.

Private Sub Workbook_Open()

    Dim sh As Worksheet
    Dim i  As Long
    
    Set sh = Sheets("GizliSayfa")
    i = sh.Cells(Rows.Count, "A").End(3).Row + 1
    
    sh.Cells(i, "A") = Now
    sh.Cells(i, "B") = Environ("UserName")
    sh.Cells(i, "C") = Application.UserName
    
End Sub