• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Dosyayı kim ne zaman açtı kaydetmesi

Katılım
15 Ağustos 2009
Mesajlar
127
Excel Vers. ve Dili
Office 2010 Tr
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.
 

Ekli dosyalar

Merhaba,

Kodları deneyiniz.

Kod:
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
 
ilginiz için teşekkür ederim. kod örnek dosyamda çalışıyor. çalışma dosyama ekleyip deneyeceğim.
 
Merhaba,

Kodları deneyiniz.

Kod:
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.
 
listenin silinmesini nasıl engelleriz ?
 
Geri
Üst