Dosyayı kim açtı 2 Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz.

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..

Kod: 
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 
Kod: 
[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.Kod:

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

Benzer Sonuçlar
No	Makro Adı
1	Dosyayı kim açtı 2
2	dosyayı kim ne zaman hangi tarihte açtı txt
3	dosyayı kim açtı
4	30 excel dosyası içinde bir kelime aratma
5	a1 hücresini b1 hücresine yapıştır c1 gitsin
6	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
7	ip numarasi gösterecek makro
8	dosyayı tarihli olarak kayıt etme
9	save as (farklı kaydet)
10	yalniz çalışma sayfası kaydetme
11	dosya klasör ekle
12	gizli sayfada makro çalışır mı
13	excel dosyası belirli bir tarihten sonra açılmasın
14	aynı makroyla birden çok sayfaya kayıt yapmak
15	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
16	yedek alma ile ilgili
17	istenilen yazıcıyı aktif yapmak için
18	word sayfası olarak çıktı almak
19	belirlediğim verilerin klasör, dosyaadi olarak kaydı
20	sayfa koruması nasıl kaldırılır

Benzer Sonuçlar

Makro Adı

Dosyayı kim açtı 2

dosyayı kim ne zaman hangi tarihte açtı txt

dosyayı kim açtı

30 excel dosyası içinde bir kelime aratma

a1 hücresini b1 hücresine yapıştır c1 gitsin

menü çubuğunun silinmesi ve özel bir menünün oluşturulması

ip numarasi gösterecek makro

dosyayı tarihli olarak kayıt etme

save as (farklı kaydet)

yalniz çalışma sayfası kaydetme