Yedeklenen dosyayı gizleme

[izcik]

Selamlar sayın uzmanlarım

Dosyamı, Thisworkbook.savecopyas ile başlayan, tek satırlık kodla yedekliyorum.

Fakat haliyle tarihli saatli birçok “görünür halde” yedek oluşuyor.

Aklıma şu geldi. Eğer oluşan bu dosyaları, windows dosya özelliklerindeki seçeneklerden biri olan, “gizli” olarak yedeklersek, oluşan bu dosyalar gizli olacağından, bulunduğu klasörü işgal etmemiş olur. Sanıyorum vbHidden koduyla gizleniyor.

Kısaca tekrar etmem gerekirse ana dosyayı değil; oluşan yedekleri gizlemektir amacım.

Eklenmesi gereken kod satırı nedir?

Teşekkür ederim şimdiden.

 

[Levent Menteşoğlu]

Kodlarınızı içine aşağıdaki satırı ekleyin. Buradaki yolu ve dosya adını kendi kodlarınızdaki ile değiştirirsiniz.

SetAttr "D:\Test.xlsx", vbHidden

 

[izcik]

Kodlarınızı içine aşağıdaki satırı ekleyin. Buradaki yolu ve dosya adını kendi kodlarınızdaki ile değiştirirsiniz.

SetAttr "D:\Test.xlsx", vbHidden

Bilgisayar başına geçince deneyip neticeyi hemen arz edeceğim Levent uzmanım. Sağ olunuz.

 

[izcik]

Kodlarınızı içine aşağıdaki satırı ekleyin. Buradaki yolu ve dosya adını kendi kodlarınızdaki ile değiştirirsiniz.

SetAttr "D:\Test.xlsx", vbHidden

Sayın Levent uzmanım tekrar merhaba. Birçok denemeler yaptım fakat hata verdi.

Hemen örnek dosya yükleyeceğim ve bir iki küçük istirhamım olacak, onları da dile getireyim.

Örnek dosyadaki tek satırlık kod ile dosyamı yedekliyorum.
Yedeklerken tarih saat dakika ve saniyesi ile isimlendirip, yedeği oluşturuyor.
Gayet güzel.
Üstelik, asıl dosyam nerede duruyorsa, yedekler de aynı yerde otomatik olarak oluştuğundan, kendi adıma biraz daha iyi oluyor bu durum. Beni uğraştırmamış oluyor. Karışıklığı önlemiş oluyorum.

Ayrıca bu tek satırlık kodu kopyalayıp, kullanmak istediğim diğer dosyalara da yapıştırıp; pratik olarak kullanabiliyorum.

Sizden ricalarım

Oluşmasını istediğimiz yedek dosyalarının gizli’ye çevrilmiş halleri;
Mümkünse yine önceki gibi tarih-saat bilgisi adıyla oluşsun, Yani dosya adıyla oluşmasın.

Bir de asıl dosyam nerede duruyorsa, yedek dosyası da yine
aynı yerde oluşsun. Tabi mümkün olabiliyorsa.

(Kodlara gerekmediği için, konum adresi de eklememiş oluruz)

Saygılarımla

Test.xlsm dosyasını indir - download

Test.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[Levent Menteşoğlu]

Yapmanız gereken sadece ikinci satırı eklemek.

Private Sub Workbook_Open()

ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Replace(Now, ":", ".") & ".xlsm"

SetAttr ThisWorkbook.Path & "\" & Replace(Now, ":", ".") & ".xlsm", vbHidden

End Sub

SetAttr işlevi kaydedilmiş mevcut dosyanın öznitelik özelliklerini değiştirir.

 

[izcik]

Yapmanız gereken sadece ikinci satırı eklemek.

Private Sub Workbook_Open()

ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Replace(Now, ":", ".") & ".xlsm"

SetAttr ThisWorkbook.Path & "\" & Replace(Now, ":", ".") & ".xlsm", vbHidden

End Sub

SetAttr işlevi kaydedilmiş mevcut dosyanın öznitelik özelliklerini değiştirir.

Hemen deniyorum ızmanım

 

[izcik]

Yapmanız gereken sadece ikinci satırı eklemek.

Private Sub Workbook_Open()

ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Replace(Now, ":", ".") & ".xlsm"

SetAttr ThisWorkbook.Path & "\" & Replace(Now, ":", ".") & ".xlsm", vbHidden

End Sub

SetAttr işlevi kaydedilmiş mevcut dosyanın öznitelik özelliklerini değiştirir.

Sn Levent uzmanım tam tarif ettiğim gibi oldu, çok sevindim, sağ olunuz