Dosyayı açan kullanıcı adını kaydetme

[fesile]

Merhaba,

2007 sürümü kullanıyorum. Çalıştığım excel dosyası ortak klasörde duruyor. Bu dosyayı açan kullanıcıların kullanıcı adı ve giriş tarih,saat bilgilerini aynı dosyada farklı bir çalışma sayfasına altalta kaydetmek istiyorum. Bu konuda bana yardımcı olabilirseniz çok sevinirim.

Şimdiden çok teşekkür ederim.

 

[dEdE]

Merhaba,

Aşağıdaki linki inceleler misiniz?


http://www.excel.web.tr/f48/kullan-c...ak-t66525.html

 

[fesile]

Biraz daha yardım..

Dede Bey,

Yardımınız için çok teşekkür ederim. Makroları iyi bilmediğim için dosyayı geliştiremedim. Sizin gönderdiğiniz kodlarla dosyayı açan kişi A sütununda herhangi bir değişiklik yaparsa kullanıcı adını görebiliyorum, ben sadece kullanıcının dosyayı açması durumunda kullanıcı adı ile birlikte tarih ve saatte görmek istiyorum. Bana bu konuda da yardımcı olabilirseniz çok sevinirim. Teşekkür ediyorum. Örnek dosyayı ekte gönderiyorum. Makronun otomatik olarak çalışmasını istiyorum. Bu konuda da yardımcı olabilirseniz çok sevinirim. Teşekkürler.

Fesile.

 

[dEdE]

Merhaba,
Ekli dosyayı inceler misiniz?

 

[fesile]

Merhaba,

Çok teşekkür ederşm. Bu haliyle sorunsuz olarak çalışıyor. Yalnız makronun dosya her açıldığında otomatik olarak çalışması için ne yapmam lazım.

Kolay gelsin.

 

[dEdE]

Merhaba,
Haklısınız, gözümden kaçmış. ThisWorkbook kod sayfasındaki Autpen olarak yazılmış olan makro adını Private Sub Workbook_Open() olarak değiştirmelisiniz.

 

[mekist]

Merhaba,

Ellerine sağlık teşekkür ederim.

Fakat bir sıkıntı var sanki. Kullanıcı adı sayfasına yazmıyor verileri. En son hangi sayfada iken kayıt edip kapattın ise oraya kaydediyor.
Birde Kullanıcı adı sayfasında en son hangi satır da kaldı ise o satıra göre diğer sayfalara yazıyor.
Burdaki sıkıntı neden kaynaklanıyor olabilir.

 

[dEdE]

Merhaba,
Kodları aşağıdaki ile değiştirir misiniz?

Private Sub Workbook_Open()
Set s = Sheets("Kullanıcı Adı")
ss = s.[A65536].End(3).Row + 1
Kullanıcı = Split(Environ(28), "=")
s.Cells(ss, 1).Value = Kullanıcı(1)
s.Cells(ss, 2).Value = Format(Date, "dd.mm.yyyy")
s.Cells(ss, 3).Value = Format(Now, "hh:mm:ss")
End Sub

 

[fesile]

Şimdi sorunsuz çalışıyor. Çok teşekkür ederim. Son bir soru; diğer dosyayı açan kişilerin makro güvenliği yüksek ise, dosya açıldığında makroyu çalıştırmayacak. Dosya üzerinde, dosya açıldığında kullanıcıların makro ayarlarını değiştirebilir miyim? Güveliği yüksek olan kullanıcılarda uyarı da vermiyor. Bu durumda ne yapmam lazım?

Yardımlarınız için çok teşekkür ediyorum

 

[dEdE]

Merhaba,

Dosyanız ilişiktedir.
Makroları aktif yapmadan sayfalara ulaşım engellenmiştir.

 

[fesile]

Çok teşekkür ederim. Kolaylıklar diliyorum.