dosyayı kim açtı 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.

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

Benzer Sonuçlar
No	Makro Adı
1	dosyayı kim açtı
2	Dosyayı kim açtı 2
3	dosyayı kim ne zaman hangi tarihte açtı txt
4	save as (farklı kaydet)
5	dosya klasör ekle
6	30 excel dosyası içinde bir kelime aratma
7	dosyayı tarihli olarak kayıt etme
8	a1 hücresini b1 hücresine yapıştır c1 gitsin
9	gizli sayfada makro çalışır mı
10	excel dosyası belirli bir tarihten sonra açılmasın
11	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
12	geçici dosyaya kaydetme
13	ip numarasi gösterecek makro
14	dosyayı kapama
15	bütün excel dosyalarının %85 ile açılması
16	yalniz çalışma sayfası kaydetme
17	şifreli kapali bir dosyadan veri almak
18	dosyayı farklı şekillerde kaydetme
19	c klasöründe .ıni dosyası oluşturur, aktif ve açık excel dosya sayısını içine yazar
20	aktif sayfayı kopyalar email ile yollar

Benzer Sonuçlar

Makro Adı

dosyayı kim açtı

Dosyayı kim açtı 2

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

save as (farklı kaydet)

dosya klasör ekle

30 excel dosyası içinde bir kelime aratma

dosyayı tarihli olarak kayıt etme

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

gizli sayfada makro çalışır mı

excel dosyası belirli bir tarihten sonra açılmasın