kullanıcı bilgileri

[6729626]

exceli ilk açarken kullanıcı user formuyla açtığımda excel sayfasında yapılan işlemleri sayfanın benim belirlediğim bir yerine sayfaya kim girdi ise onun ismini yazmasını istiyorum yalnız her yaptığı işleminde bunu nasıl yaparım şimdiden ALLAH razı olsun

 

[6729626]

yokmu yardım eden bilen ustalarım

 

[pirsa]

yanıtınız şu olabilir mi acaba

[vb:1:ee875ec9d9]ThisWorkBook yazılacak.
'Ayrıca C:\acılısarsiv.txt olarak ayrıca txt dosyası oluşturuyor..

Private Sub Workbook_Open()
Dim Counter As Long, LastOpen As String, Msg As String
LastOpen = GetSetting("xxrt", "Dosya", "Opened", "")
[a1] = "En son açılış tarihi: " & LastOpen
[a2] = "Dosyayı en son açan kullanıcı: " & Application.UserName
LastOpen = Date & " " & Time
SaveSetting "xxrt", "Dosya", "Opened", LastOpen
Dim LastRowA As Integer
Dim veri1 As String
Dim veri2 As String
Dim i As Integer
Open "C:\acılısarsiv.txt" For Output As #1
LastRowA = Cells(65536, 1).End(xlUp).Row
For i = 1 To LastRowA
veri1 = Cells(i, 1).Text
veri2 = Cells(i, 2).Text
Print #1, veri1; " "; veri2;
Next i
Close #1 'C Klasöründe txt hazırladı
'enson açan kişinin yazılı bulunduğuSayfa1 a1 ve a2 deki verileri siler..
'eğer Sayfa1'de silmesini istemezseniz aşağıdakileri silin.
Sheets("Sayfa1").Select
Range("A1:A2").Select
Selection.ClearContents
Range("A1").Select
End Sub[/vb:1:ee875ec9d9]

'Mesaj olarakta

[a1] = "En son açılış tarihi: " & LastOpen
[a2] = "Dosyayı en son açan kullanıcı: " & Application.UserName

'Kodlarının altına bunları yazın.

MsgBox "En son açılış tarihi: " & LastOpen
MsgBox "Dosyayı en son açan kullanıcı: " & Application.UserName

 

[6729626]

çok teşekkür ederim bi deneyim eline koluna sağlık

 

[Yakut]

slm

hayirli calismalar arkadaslar, güzel bir excel dünyasina girmisim. :hey:

yukarida kod ben denedim calisiyor. pirsa arkadasa tesekkür ederim

 

[Haluk]

Kodların alıntı yapıldığı mesajın linki aşağıdadır ...

http://www.excel.web.tr/viewtopic.php?t=1311

 

[ocamsul]

Kodların alıntı yapıldığı mesajın linki aşağıdadır ...

http://www.excel.web.tr/viewtopic.php?t=1311

SN: Haluk bu link bozulmuş.

 

[baydeniro]

Yardım

Arkadaşlar yukarıda yazılı olan kodu sınırlı bilgimle anlayabildiğim kadarıyla şu şekilde uyguladım ama çalışmadı. Yardımcı olabilir misiniz !!!!

Private Sub Workbook_Open()
Dim Counter As Long, LastOpen As String, Msg As String
LastOpen = GetSetting("xxrt", "Dosya", "Opened", "")
[a1] = "En son acilis tarihi: " & LastOpen
[a2] = "Dosyayi en son acan kullanici: " & Application.UserName
MsgBox "En son ac?l?s tarihi: " & LastOpen
MsgBox "Dosyayi en son acan kullanici: " & Application.UserName
LastOpen = Date & " " & Time
SaveSetting "xxrt", "Dosya", "Opened", LastOpen
Dim LastRowA As Integer
Dim veri1 As String
Dim veri2 As String
Dim i As Integer
Open "C:\acilisarsiv.txt" For Output As #1
LastRowA = Cells(65536, 1).End(xlUp).Row
For i = 1 To LastRowA
veri1 = Cells(i, 1).Text
veri2 = Cells(i, 2).Text
Print #1, veri1; " "; veri2;
Next i
Sheets("Sayfa1").Select
Range("A1:A2").Select
Selection.ClearContents
Range("A1").Select
End Sub

 

[baydeniro]

Sayın Haluk. Verdiğiniz link çalışmıyor.

 

[zafer]

Merhaba


ekli dosyayı inceleyiniz

 

[baydeniro]

Teşekkürler

Sayın Zafer çok teşekkürler. Bu kadarını beklemiyordum. Harika bir dosya.