Dosyayı kim ne zaman açtı kaydetmesi

[kadirdaylight]

Merhaba ekteki dosyada yardımcı olabilirmisiniz?

Not: Bu dosya ağ paylaşımı olan bir ortamda ortak bir klasör içerisine eklenecek. Buna benze .txt dosyası açıp ona kaydeden bir kod vardı fakat bu kod sadece kendi bilgisayarımda açıldığında tarih kaydetti. Diğer bilgisayarlarda sadece kullanıcı adı kaydediyor. O nedenle bende aynı excel içerisine kaydettirmek istiyorum.

 

[Necdet]

Merhaba,

Kodları deneyiniz.

Sub Auto_Open()
    
    Dim i   As Long
    
    i = Sheets("Kayitlar").Cells(Rows.Count, "a").End(3).Row + 1
    
    Sheets("kayitlar").Cells(i, "A") = Application.UserName
    Sheets("kayitlar").Cells(i, "B") = Now
    
     MsgBox "Merhaba " & Application.UserName & ", " & Chr(13) & Chr(13) & _
            "Planlama ve İzleme Programına Hoşgeldiniz!" & Chr(13) & Chr(13) & _
            "Tarih : " & Format(Now, "dd mmmmm yyyy hh:mm") & _
            " Giriş Kaydınız Alınmıştır..", vbApplicationModal, " dAyLiGhT"
    
    Application.Visible = False
    UserForm1.Show 0
    
End Sub

 

[kadirdaylight]

ilginiz için teşekkür ederim. kod örnek dosyamda çalışıyor. çalışma dosyama ekleyip deneyeceğim.

 

[kadirdaylight]

Merhaba,

Kodları deneyiniz.

Sub Auto_Open()
    
    Dim i   As Long
    
    i = Sheets("Kayitlar").Cells(Rows.Count, "a").End(3).Row + 1
    
    Sheets("kayitlar").Cells(i, "A") = Application.UserName
    Sheets("kayitlar").Cells(i, "B") = Now
    
     MsgBox "Merhaba " & Application.UserName & ", " & Chr(13) & Chr(13) & _
            "Planlama ve İzleme Programına Hoşgeldiniz!" & Chr(13) & Chr(13) & _
            "Tarih : " & Format(Now, "dd mmmmm yyyy hh:mm") & _
            " Giriş Kaydınız Alınmıştır..", vbApplicationModal, " dAyLiGhT"
    
    Application.Visible = False
    UserForm1.Show 0
    
End Sub

Başarılı bir şekilde çalışıyor.. Küçük bir düzeltme Tarih formatında 4 tane yerine 5 tane m yazılı sadece onu düzelttim. Tekrar teşekkür ederim Necdet Bey.

 

[snf124]

listenin silinmesini nasıl engelleriz ?