VBA:
Sub Kaydet()
isim ="ExcelDepo.xls" 'sadece çift tırnak içerisinde değişiklik yapın
Kayit=Application.Dialogs(xlDialogSaveAs).Show(isim)
Select Case Kayit
Case -1
Case 0
End Select
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.