Tüm Sayfalardaki Sütun başlıklarını bir defa da kaldırmak

[EKREM1661]

Saygıdeğer Arkadaşlar..! selamlar..
Aşağıdaki makro kodu aktif sayfadaki sütun başlıklarını kaldırıyor,

Sub Baslıklar ()
With ActiveWindow
.DisplayHeadings = False
End With
End Sub

bunu tüm sayfalara (tek tıklama ile) uygulamak için nasıl yapmamız lazım..

 

[Orion1]

Aşağıdaki kodu deneyebilirsiniz.

Sub Baslıklar()
Dim i As Integer
For i = 1 To Worksheets.Count
    Sheets(i).Select
    With ActiveWindow
        .DisplayHeadings = False
    End With
Next i
End Sub

 

[EKREM1661]

hocam..! kodu düğmeye atayarak çalıştırdım, fakat
Sheets(i).Select
satırını geçemedi, 1004 hatası verdi..

 

[EKREM1661]

hocam..! şimdi farkına vardım korumalı sayfalar olunca o hatayı veriyor, bunu nasıl aşabiliriz..

 

[Orion1]

hocam..! kodu düğmeye atayarak çalıştırdım, fakat
Sheets(i).Select
satırını geçemedi, 1004 hatası verdi..

Dosyanızı ekleyiniz.

 

[Orion1]

Aşağıdaki kodları deneyiniz.

Sub Baslıklar()
Dim i As Integer
For i = 1 To Worksheets.Count
    Sheets(i).Select
    [COLOR="Red"]ActiveSheet.Unprotect[/COLOR]
    With ActiveWindow
        .DisplayHeadings = False
    End With
    [COLOR="red"]ActiveSheet.Protect[/COLOR]
Next i
End Sub

 

[N.Ziya Hiçdurmaz]

Yanıt

Korumayıda makroyla yaptırıp halledebilirsiniz.

Sub Baslıklar()
Dim i As Integer
For i = 1 To Worksheets.Count
[COLOR="Blue"]Sheets(i).Unprotect "123"[/COLOR]
    Sheets(i).Select
    With ActiveWindow
        .DisplayHeadings = False
    End With
    [COLOR="Blue"]Sheets(i).Protect "123"[/COLOR]
Next i
End Sub

 

[EKREM1661]

sevgili hocam..her ikinize de teşekkür ediyorum..
özür beyan ederek, size zahmet verdiğimin farkındayım.
Yukarıda belirtmiş olduğum sorun korumalı sayfadan kaynaklanmıyormuş,
gizli sayfa olunca hata veriyor. Bu gizli sayfayı,
örneğin, diyelim ki (sayfa 1) i bu uygulama dışında bırakabilirsek sorun hal olur.

 

[Orion1]

Sub Baslıklar()
Dim i As Integer
For i = 1 To Worksheets.Count
    If Sheets(i).Name <> "Sayfa1" Then
        Sheets(i).Select
        With ActiveWindow
            .DisplayHeadings = False
        End With
    End If
Next i
End Sub

 

[EKREM1661]

hocam..!çok teşekkür ediyorum..mes'ele halledildi..
bilginize ve marifetinize sağlık..
iyi akşamlar diliyorum..

 

[Orion1]

hocam..!çok teşekkür ediyorum..mes'ele halledildi..
bilginize ve marifetinize sağlık..
iyi akşamlar diliyorum..

Rica ederim.
İyi akşamlar.