kitap yedekleme 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. 
 
Sub SaveWorkbookBackup()
Dim awb As Workbook, BackupFileName As String, i As Integer, OK As Boolean
    If TypeName(ActiveWorkbook) = "Nothing" Then Exit Sub
    Set awb = ActiveWorkbook
    If awb.path = "" Then
        Application.Dialogs(xlDialogSaveAs).Show
    Else
        BackupFileName = awb.FullName
        i = 0
        While InStr(i + 1, BackupFileName, ".") > 0
            i = InStr(i + 1, BackupFileName, ".")
        Wend
        If i > 0 Then BackupFileName = Left(BackupFileName, i - 1)
        BackupFileName = BackupFileName & ".bak"
        OK = False
        On Error GoTo NotAbleToSave
        With awb
            Application.StatusBar = "Saving this workbook..."
            .Save
            Application.StatusBar = "Saving this workbook backup..."
            .SaveCopyAs BackupFileName
            OK = True
        End With
    End If
NotAbleToSave:
    Set awb = Nothing
    Application.StatusBar = False
    If Not OK Then
        MsgBox "Backup Copy Not Saved!", vbExclamation, ThisWorkbook.Name
    End If
End Sub,

Benzer Sonuçlar
No	Makro Adı
1	kitap yedekleme
2	kitap açılırken bu gün tarihli yedek alır
3	özel altbilgi sayfa1'de sol alt köşede kitap ismi
4	kendi kendine kapanan kitap 10 saniyede mükemmel
5	ağ üzerinden diğer kitaptaki makroyu çalıştırma
6	kitap kapanırken a1 e tarih ekleme
7	kitap sayfasını simge durumunda küçültme
8	ismi belirle aktif sayfayı kitap halinde kaydedip kapatsın
9	5 dk da bir kitabı kaydetme
10	kitap penceresini 2 boyut küçültme
11	özelaltbilgi sağda dosya yolu, sağda kitap ismi
12	kitap açma (tek dosya)
13	Excel dosyası var mı yok mu tespit edilmesi
14	kitap açma (1 den fazla dosya)
15	Aktif hücrenin içerisinde bulunduğu sayfanın ve dosyanın adının tespit edilmesi
16	kitap kaydet ismini sen belirle - mesajla bildirir
17	kitap toplam kaç kere,hangi tarih ve hangi saatte açıldı
18	Adı geçen Excel dosyası açık mı değil mi tespit edilmesi
19	kendi kendine kapanan kitap 10 sn de
20	veri değiştirir

Benzer Sonuçlar

Makro Adı

kitap yedekleme

kitap açılırken bu gün tarihli yedek alır

özel altbilgi sayfa1'de sol alt köşede kitap ismi

kendi kendine kapanan kitap 10 saniyede mükemmel

ağ üzerinden diğer kitaptaki makroyu çalıştırma

kitap kapanırken a1 e tarih ekleme

kitap sayfasını simge durumunda küçültme

ismi belirle aktif sayfayı kitap halinde kaydedip kapatsın

5 dk da bir kitabı kaydetme

kitap penceresini 2 boyut küçültme