log tutmak

[Korhan Ayhan]

Bende durum aşağıdaki gibi oluyor..

 

[mustafa1205]

Elinize emeğinize sağlık Korhan Hocam

 

[Hattushil]

Selamlar,

Sn. neo,

Ektedeki örnek dosyayı incelermisiniz. Çoklu seçimler dışında CTRL+SHIFT+Z tuş kombinasyonu ile son yapılan işlemleri geri alma özelliği sağlanmıştır.

Çoklu seçimli işlemlerinizde CTRL+Z tuş kombinasyonunu kullanabilirsiniz.

Dosyanın eksikleri olabilir elimden geldiğince tüm kontrolleri yapmaya çalıştım. Fakat gözden kaçmış olabilir.

Umarım faydası olur.

Korhan bey,
Excel dosyasını açan kişiler içinde log kaydı eklenebilir mi?

Örneğin;
Açılıp (Salt Okunur dahil) işlem yapılmayan dosyanın kim açtığını kaydını tutabilir mi?

 

[RBozkurt]

Korhan bey,
Excel dosyasını açan kişiler içinde log kaydı eklenebilir mi?

Örneğin;
Açılıp (Salt Okunur dahil) işlem yapılmayan dosyanın kim açtığını kaydını tutabilir mi?

AI ürünüdür. Dosya açıldıkça LOG sayfasına kaydeder.

Private Sub Workbook_Open()
    Dim userName As String
    Dim computerName As String
    Dim lastRow As Long
    
    'Kullanıcı adını ve bilgisayar adını al
    userName = Environ("username")
    computerName = Environ("computername")
    
    'LOG sayfasında verileri ekle
    With Sheets("LOG")
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        .Range("A1").Value = "Kullanıcı"
        .Range("B1").Value = "Bilgisayar"
        .Range("C1").Value = "ZAMAN"
        .Range("A" & lastRow + 1).Value = userName
        .Range("B" & lastRow + 1).Value = computerName
        .Range("C" & lastRow + 1).Value = Now()
    End With
End Sub

 

[Hattushil]

AI ürünüdür. Dosya açıldıkça LOG sayfasına kaydeder.

Private Sub Workbook_Open()
    Dim userName As String
    Dim computerName As String
    Dim lastRow As Long
   
    'Kullanıcı adını ve bilgisayar adını al
    userName = Environ("username")
    computerName = Environ("computername")
   
    'LOG sayfasında verileri ekle
    With Sheets("LOG")
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        .Range("A1").Value = "Kullanıcı"
        .Range("B1").Value = "Bilgisayar"
        .Range("C1").Value = "ZAMAN"
        .Range("A" & lastRow + 1).Value = userName
        .Range("B" & lastRow + 1).Value = computerName
        .Range("C" & lastRow + 1).Value = Now()
    End With
End Sub

Günaydın hocam,

Ekli dosyada bunu nasıl ekleyebilirim?
Daha doğrusu düzenledim ama çalışmadı,

Bir de son paylaşılan excel dosyasında sheet silindiğinde silindi bilgisi yazıyor ama sheet adı değiştirildiğinde yazmıyor, bu da eklenebilir mi?

 

[RBozkurt]

Olması gereken işlemleri tek mesajda belirtirseniz ona göre bir sonuca ulaşılır.
İlk talebiniz; "Excel dosyasını açan kişiler içinde log kaydı eklenebilir mi?" şeklinde. Buna istinaden ilgili kod eklendi.
İstekleri derleyiniz, tekrar paylaşınız.
Ek olarak yeni konu açmanız daha mantıklı 2007 tarihli konudan devam ediyoruz.

 

[Hattushil]

Olması gereken işlemleri tek mesajda belirtirseniz ona göre bir sonuca ulaşılır.
İlk talebiniz; "Excel dosyasını açan kişiler içinde log kaydı eklenebilir mi?" şeklinde. Buna istinaden ilgili kod eklendi.
İstekleri derleyiniz, tekrar paylaşınız.
Ek olarak yeni konu açmanız daha mantıklı 2007 tarihli konudan devam ediyoruz.

tamam hocam,
yeni konu açıp detaylıca yazıyorum ve örnek excel dosyamı paylaşacağım

 

[Believing]

Sayın Forumdaş Arkadaşlar,

Ekteki örnek çalışmada haftalık çalışma programı yapılmaktadır.
Çalışma kitabını çok fazla kişinin kullanması nedeniyle yapılan hataları izlemek için bir log kayıtı tutmak zorunlu hale gelmiştir.
Çalışma kitabını kullanacak kişileri sınırlamak için "User_Login" form ekleyerek kullanıcı adı ve şifre tanımlamaları yapıldı.
Sn. @Korhan Ayhan ait olan çalışmayı kendime göre bazı kısımlarını düzenlemeye çalıştım.
Çalışma kitabını hangi tanımlı kullanıcının açtığını ve hangi işlemleri yaptığını belirleyen Kullanıcı Adını "LOG_RECORDS" sayfasının "D2" aralığına yazdıramadım.
Detaylı anlatım istenen içerik ekteki örnekteki gibidir.
Değerli uzman arkadaşların yardımlarını rica ediyorum.

Saygılarımla.

Kullanıcı Adı .................= Admin
Şifresi ...............................= 123456
Sayfa Koruma Şifresi = 875421

 

[Korhan Ayhan]

Linkteki konuları inceleyebilirsiniz.

Arşiv Konuları

 

[muratgunay48]

Linkteki konuları inceleyebilirsiniz.

Arşiv Konuları

Hocam şimdiye kadar öğrendiklerimin çoğunu sizden öğrendim desem yanlış olmaz. Şimdiye kadar hep dosya konusunda yardım istedim. Ya da yazdığım kod da eksiklik vardı onu sordum.
Bu sefer kod silebilir misiniz diye yardım istesem? İnanın sizin yaptığınız dosyanın 50 kere kopyaladım. Hep bozdum.
Ben sizin yaptığınız dosyayı sadece ve sadece şifre girişi için kullanmak istiyorum. Sayfayı koruyarak isim ve şifre bilgilerini gizli tutabilirim sanırım.
A sütunu Kullanıcı adı B sütunu şifre olacak. Eklenen isim ve şifre çalışacak.
Bakabilirseniz müteşekkir olurum.

 

[muratgunay48]

Hocam şimdiye kadar öğrendiklerimin çoğunu sizden öğrendim desem yanlış olmaz. Şimdiye kadar hep dosya konusunda yardım istedim. Ya da yazdığım kod da eksiklik vardı onu sordum.
Bu sefer kod silebilir misiniz diye yardım istesem? İnanın sizin yaptığınız dosyanın 50 kere kopyaladım. Hep bozdum.
Ben sizin yaptığınız dosyayı sadece ve sadece şifre girişi için kullanmak istiyorum. Sayfayı koruyarak isim ve şifre bilgilerini gizli tutabilirim sanırım.
A sütunu Kullanıcı adı B sütunu şifre olacak. Eklenen isim ve şifre çalışacak.
Bakabilirseniz müteşekkir olurum.

@Korhan Ayhan hocam size zahmet dosyaya bir göz atabilir misiniz? Sayfaları bile silemedim.

 

[Korhan Ayhan]

Benim yaptığım dosya derken.. Şifre girişli bir dosya paylaştığımı hatırlamıyorum..

 

[muratgunay48]

Benim yaptığım dosya derken.. Şifre girişli bir dosya paylaştığımı hatırlamıyorum..

Hocam ben arkadaşın sözüne istinaden söyledim. Korhan hocam yaptı dedi. Ben dosyayı şu şekle kadar getirdim.

 

[Korhan Ayhan]

Bu başlık log tutmayla ilgili. Kişilerin özel çalışmaları hakkında bir fikrim maalesef yok..

 

[muratgunay48]

Bu başlık log tutmayla ilgili. Kişilerin özel çalışmaları hakkında bir fikrim maalesef yok..

Teşekkür ederim hocam, dediğiniz gibi yapıyorum. Kurcalaya kurcalaya baya sildim. Sayfaları sildim. Sanırım istediğim yere geleceğim.