Çalışma kitabını gizle

[mnz]

Database olarak hazırladığım excel çalışma kitabını sadece veri almak için kullanıyorum ve dosya özelliklerinden Gizli yapıyorum. Ancak dosyayı açtığımda yine görünür hale geliyor. Excel ile tekrar gizleyebilirmiyiz?

Saygılar..

 

[bedersu]

Merhaba,
Şu kodları bir deneyin:

Sub Gizli_Yap()
Dim ds, f
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFile("C:\Deneme.xls")

f.Attributes = f.Attributes + 2
MsgBox "Dosya Özelliği Gizli Olarak Ayarlandı."
End Sub

 

[baydeniro]

Sayın bedersu. Kod mükemmel. Geri döndürmesi nasıl olacak ?

 

[Leoncio]

Merhaba;

Aşağıdaki kodlarıda kullanabilirsiniz.


Sub Auto_Close()
SetAttr ThisWorkbook.FullName, vbHidden
End Sub

 

[mnz]

Teşekkürler.Ellerinize sağlık. Çok güzel olmuş

 

[bedersu]

-2 demeniz yeterli olacaktır.
Ayrıca bu kodlarla sadece xls değil bütün dosyaların özelliklerini değiştirebilirsiniz.Sadece dosya yolunu düzenlemeniz yeterli olacaktır.

 

[baydeniro]

MErhaba bedersu. Cahilliğimi mazur göre lütfen.

1) - 2 yi hangi ortamda yazacağız.

2) Dosya ilk başlarda katalog/folder altında gözükmüyordu. Şimdi belirdi. Buradaki espri nedir ?

 

[bedersu]

Hangi ortamdan bahsediyorsunuz açıklar mısınız?

 

[baydeniro]

- 2 nın koda yazılmasını öngörüyorsunuz herhalde. Ancak dosya folder altında yokki, nasıl bulup yazacağım. O yüzden bunu yazabileceğimiz başka bir dosya ortamı mı var acaba diye sordum.

 

[mnz]

f.Attributes = f.Attributes + 2

Yukarıda verilmiş olan kod içerisindeki +2 yerine -2

 

[bedersu]

Merhaba,
Bu kodlar excelde bir kitapta oluşturulan makroda çalışıyor ve

("C:\Deneme.xls")
("D:\Deneme.mdb")
("C:\Bordro\Deneme.bmp")

gibi dosya yolu belirtilmiş dosyaların özelliklerini değiştirip gizli yapıyor.Yani siz makronun bulunduğu kitabı değiştirmiyorsunuz.Bu kitaptan tekrar makroyu çalıoştırdığınızda belirtilen dosya görünür hale gelir tekrar.Yok ben bu çalışma kitabını gizli yapacağım diyorsanız sayın leventer'in kodlarını kullanmanız lazım.

 

[baydeniro]

Sayın bedersu. Şimdi anladım. Çok teşekkürler.