Kod:
Sub Dosyayi_Yedekleme()
Cevap = MsgBox("Bu çalışma kitabını kaydetmek istiyor musunuz?", vbYesNo)
If Cevap = vbYes Then
AdVer = InputBox("Bir dosya adı verin!" & Chr(13) & "Örnek: ExcelDepo")
If AdVer = "" Then
Exit Sub
Else
GoTo devamke
End If
devamke:
ChDrive "c"
ChDir "c:"
ActiveWorkbook.SaveAs Filename:=(AdVer)
End If
End SubUygulama Adımları
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
[*]Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
[*]Araç çubuklarından Insert -> Module yazısına tıklayın.
[*]Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
[*]Üstteki kodu yapıştırın.