DOSYAYI KİM AÇTI

[ayucel1982]

DOSYAYI KÝM AÇTI

Merhaba benim kullandığım önemli bir excel dosyası var

ben bu dosyayı kapattığımda ağdaki başka bir kullanıcı yada benim bilgisayarımdan bu dosyayı kimin açtığını görmek yada başka gizli bir sayfada raporlamak istiyorum mesela şu saat şu dakikada şu kullanıcı bbu dosyayı açtı

dosya şifresiz bu arada

acaba böyle bir makro yazıla bilir mi?

teşekkürler

 

[zimamdar]

örnek teşkil eder sanırım

Sub Autpen()
başla:
sor = InputBox("kimsin", "kendinizi tanıtın")
If sor = "" Then GoTo başla
Sayfa2.Select
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = sor
Sayfa1.Select
End Sub

:icelim:

 

[ayucel1982]

yalnız şöyle bir sorun var. başka bir kullanıcı izlendiğini bilmeyecek

dosyayı açarken karşısına bir mesaj gelmesini istemiyorum

sadece bu dosyanın kimler tarafından açıldığını öğrenmek istiyorum

yardımcı olrsanız sevinirim.

TEÞEKKÜRLER ...

 

[xxrt]

Sanırım Dosyanız Çok gizli olsa gerek..Dosyanızda silinme riskini düşünerek bu kodlara ihtiyaç duyduğunuzu umarım.Yoksa Bilgilerinizi makrolarınızı sizde paylaşmak istersiniz..Neyse aşağıdaki kod tam çözüm olmamakla birlikte bu kodlar 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

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

Sanırım bu işinize gelmez.. :hiho:

 

[ayucel1982]

verdiğiniz bilgiler için teşekkür ederim. Ama yazdığınız metinde bir sitem duyduğunuzu gördüm. Sakın yanlış anlamayın. Elimde makro ve kodlar olsa gönderecektim. Ama malesef ben fazla kod yazmayı bilmiyorum. Bilsem yazardım. Bende bu siteyle yeni tanıştım.

Bilgileriniz için çok teşekkür ederim.

Mesala Mause geliştirici diye bir dosya gönderdim. Burda bana yardımcı olabilir misiniz?

 

[xxrt]

Sayın,ayucel1982,
Burayı Tıklayın