klasörü içindekileri gizle,göster

[muhsar]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Sub ExcelDestekCom()
'www.ExcelDestek.Com
Dim xd()
yol = ThisWorkbook.Path & "\deneme\"
dosya = Dir(yol)
Do While dosya <> ""
SetAttr yol & dosya, vbReadOnly + vbHidden ' gizlemek için
'SetAttr yol, vbNormal  ' görünür yapmak için
dosya = Dir
Loop
MsgBox "İşlem Tamam..!", vbInformation, "ExcelDestek.com"
End Sub

yukarıdaki kod ile deneme isimli klasör içeriği gizlenebiyor iken,gizli olanları tekrar göstermiyor,

rica etsem gizlenenleri göster şeklinde kodları revize edebilirmisiniz

 

Excel VBA For Next Döngüsü Yazma

Klasör İçindeki Kapalı Dosyadan Veri Say

[ExcelDepo]

Eğer kodlarınız üstteki gibiyse, 'SetAttr yol, vbNormal ' görünür yapmak için satırının en başıdaki tek tırnağı kaldırın.
O satır sizde yeşil renktedir muhtemelen.
Bu şekilde olduğu için kod pasiftir.

Bilgi verir misiniz sonucu?

 

[muhsar]

Eğer kodlarınız üstteki gibiyse, 'SetAttr yol, vbNormal ' görünür yapmak için satırının en başıdaki tek tırnağı kaldırın.
O satır sizde yeşil renktedir muhtemelen.
Bu şekilde olduğu için kod pasiftir.

Bilgi verir misiniz sonucu?

Sub ExcelDestekCom()
'www.ExcelDestek.Com
Dim xd()
yol = ThisWorkbook.Path & "\deneme\"
dosya = Dir(yol)
Do While dosya <> ""
SetAttr yol & dosya, vbReadOnly + vbHidden ' gizlemek için
'SetAttr yol, vbNormal  ' görünür yapmak için
dosya = Dir
Loop
MsgBox "İşlem Tamam..!", vbInformation, "ExcelDestek.com"
End Sub

bu şekilde klasördekileri gizledi

Sub ExcelDestekCom()
'www.ExcelDestek.Com
Dim xd()
yol = ThisWorkbook.Path & "\deneme\"
dosya = Dir(yol)
Do While dosya <> ""
'SetAttr yol & dosya, vbReadOnly + vbHidden ' gizlemek için
SetAttr yol, vbNormal  ' görünür yapmak için
dosya = Dir
Loop
MsgBox "İşlem Tamam..!", vbInformation, "ExcelDestek.com"
End Sub

tırnak üst satıra çektiğimde gizlenenler görünmedi;

Sub ExcelDestekCom()
'www.ExcelDestek.Com
Dim xd()
yol = ThisWorkbook.Path & "\deneme\"
dosya = Dir(yol)
Do While dosya <> ""
SetAttr yol & dosya, vbReadOnly + vbHidden ' gizlemek için
SetAttr yol, vbNormal  ' görünür yapmak için
dosya = Dir
Loop
MsgBox "İşlem Tamam..!", vbInformation, "ExcelDestek.com"
End Sub

heriki satırdanda tırnağı kaldırdım gene değişen olmadı

 

[ExcelDepo]

SetAttr yol & dosya, vbNormal

Şeklinde dener misiniz?
Mobilden ezbere yazıyorum.

 

[muhsar]

Şeklinde dener misiniz?
Mobilden ezbere yazıyorum.

olmadı hocam

 

[ExcelDepo]

Şimdi farkettim, dosya da ExcelDepo'danmış zaten
PC e geçtiğim zaman bir bakarım inşallah.
Ben bakana kadar diğer arkadaşlarım el atar umarım.

 

[Feyzullah]

SetAttr yol, vbNormal

Üstteki kodu aşağıdaki şekilde değiştirin. Başka sitede ben yazmıştım bu kodu

SetAttr yol & dosya, vbNormal

 

[Feyzullah]

Bahadır Beyde aynısını yazmış. Yeni farkettim. Ama bu şekilde çalışması gerekiyor. Kodlarınızın son halini paylaşın.

 

[muhsar]

Bahadır Beyde aynısını yazmış. Yeni farkettim. Ama bu şekilde çalışması gerekiyor. Kodlarınızın son halini paylaşın.

hocam ekte kontrol ederseniz sevinirim

 

[Ömer BARAN]

Merhaba.
Aşağıdaki gibi dener misiniz?

[B][COLOR=rgb(132, 53, 52)]Sub gizle()[/COLOR][/B]
Dim fso, dizin, dosya, belge
Set fso = CreateObject("Scripting.FileSystemObject")
Set dizin = fso.GetFolder([B][COLOR=rgb(41, 105, 176)]ThisWorkbook.Path & "\deneme\"[/COLOR][/B])
Set dosya = dizin.Files

For Each belge In dosya
    If GetAttr(belge) = 0 Or GetAttr(belge) = 32 Then
        SetAttr belge, vbHidden
        adet = adet + 1
    End If
Next

If adet > 0 Then mesaj = adet & " belge gizlendi!..."
If adet = 0 Then mesaj = "Tüm belgeler zaten gizli durumda!..."
MsgBox mesaj, vbInformation, "ExcelDestek.Com"
[B][COLOR=rgb(132, 53, 52)]End Sub

Sub goster()[/COLOR][/B]
Dim fso, dizin, dosya, belge
Set fso = CreateObject("Scripting.FileSystemObject")
Set dizin = fso.GetFolder([B][COLOR=rgb(41, 105, 176)]ThisWorkbook.Path & "\deneme\"[/COLOR][/B])
Set dosya = dizin.Files

For Each belge In dosya
    If GetAttr(belge) = 2 Or GetAttr(belge) = 34 Then
        SetAttr belge, vbNormal
        adet = adet + 1
    End If
Next

If adet > 0 Then mesaj = adet & " belge görünür hale getirildi!..."
If adet = 0 Then mesaj = "Tüm belgeler zaten görünür durumda!..."
MsgBox mesaj, vbInformation, "ExcelDestek.Com"
[B][COLOR=rgb(132, 53, 52)]End Sub[/COLOR][/B]

 

[muhsar]

Merhaba.
Aşağıdaki gibi dener misiniz?

[B][COLOR=rgb(132, 53, 52)]Sub gizle()[/COLOR][/B]
Dim fso, dizin, dosya, belge
Set fso = CreateObject("Scripting.FileSystemObject")
Set dizin = fso.GetFolder([B][COLOR=rgb(41, 105, 176)]ThisWorkbook.Path & "\deneme\"[/COLOR][/B])
Set dosya = dizin.Files

For Each belge In dosya
    If GetAttr(belge) = 0 Or GetAttr(belge) = 32 Then
        SetAttr belge, vbHidden
        adet = adet + 1
    End If
Next

If adet > 0 Then mesaj = adet & " belge gizlendi!..."
If adet = 0 Then mesaj = "Tüm belgeler zaten gizli durumda!..."
MsgBox mesaj, vbInformation, "ExcelDestek.Com"
[B][COLOR=rgb(132, 53, 52)]End Sub

Sub goster()[/COLOR][/B]
Dim fso, dizin, dosya, belge
Set fso = CreateObject("Scripting.FileSystemObject")
Set dizin = fso.GetFolder([B][COLOR=rgb(41, 105, 176)]ThisWorkbook.Path & "\deneme\"[/COLOR][/B])
Set dosya = dizin.Files

For Each belge In dosya
    If GetAttr(belge) = 2 Or GetAttr(belge) = 34 Then
        SetAttr belge, vbNormal
        adet = adet + 1
    End If
Next

If adet > 0 Then mesaj = adet & " belge görünür hale getirildi!..."
If adet = 0 Then mesaj = "Tüm belgeler zaten görünür durumda!..."
MsgBox mesaj, vbInformation, "ExcelDestek.Com"
[B][COLOR=rgb(132, 53, 52)]End Sub[/COLOR][/B]

teşekkür ederim,sorun çözüldü,elinize emeğinize sağlık