- Katılım
- 3 Ekim 2013
- Mesajlar
- 39
- Excel Vers. ve Dili
- Excel 2007 Türkçe
Set ds = CreateObject("Scripting.FileSystemObject")
Kyt = "D:\YEDEKLER\"
On Error Resume Next
If Dir(Kyt) = "" Then MkDir Kyt
Dosya = ThisWorkbook.Name
uzanti = Right(Dosya, InStr(1, StrReverse(Dosya), ".", vbTextCompare))
Dim Yedek As String
Trh = Format(Now, "dd.mm.yyyy hh_nn_ss")
ThisWorkbook.Save
ds.CopyFile ThisWorkbook.FullName, Kyt & "\" & Trh & uzanti
End Sub
Merhaba,
Yukarıdaki kodla yedek alıyorum. Yedek alınan dosyayı, aynı zamanda şifre korumalı olarak kaydetmek için nasıl bir kod ekleyebilirim?
Kyt = "D:\YEDEKLER\"
On Error Resume Next
If Dir(Kyt) = "" Then MkDir Kyt
Dosya = ThisWorkbook.Name
uzanti = Right(Dosya, InStr(1, StrReverse(Dosya), ".", vbTextCompare))
Dim Yedek As String
Trh = Format(Now, "dd.mm.yyyy hh_nn_ss")
ThisWorkbook.Save
ds.CopyFile ThisWorkbook.FullName, Kyt & "\" & Trh & uzanti
End Sub
Merhaba,
Yukarıdaki kodla yedek alıyorum. Yedek alınan dosyayı, aynı zamanda şifre korumalı olarak kaydetmek için nasıl bir kod ekleyebilirim?