Saklanılan (Hide Edilen) Satır ve Sütunlar Bir Daha UnHide edilemesin

[_Sir_Lancelot_]

Merhaba Arkadaşlar,

Excelde ufak bir çalışma yaptım, ekranın dışında başka yerin görünmesini istemiyorum.

Atıyorum;

Z sütunundan son sütuna kadar olan sütüunlar gizlensin

30. satırdan sonraki satırlarda gizlensin

ve kullanıcı bunları açamasın. taki ilgili kod VBA da silinene kadar.

 

[leumruk]

Merhaba,
Sayfayı korumaya aldığınızda istediğiniz olacaktır.

 

[Orion1]

Sub satsut_gizle()
Range("AA1:IV1").EntireColumn.Hidden = True
Range("A31:A65536").EntireRow.Hidden = True
End Sub

Sub satsut_goster()
Range("AA1:IV1").EntireColumn.Hidden = False
Range("A31:A65536").EntireRow.Hidden = False
End Sub

 

[_Sir_Lancelot_]

Sayın Leumruk sayfayı korumaya alınca solver ı çalıştıramıyorum.
Sayın Evren_Gizlen teşekkürler, tam istediğim gibi

 

[mekist]

Sub satsut_gizle()
Range("AA1:IV1").EntireColumn.Hidden = True
Range("A31:A65536").EntireRow.Hidden = True
End Sub

Sub satsut_goster()
Range("AA1:IV1").EntireColumn.Hidden = False
Range("A31:A65536").EntireRow.Hidden = False
End Sub

Sn. Evren Gizlen,
Makroda sadece satırı gizliyor.Hem satırı hemde sütunu aynı anda gizleyebilir miyiz.
Göster'de aynı şekilde her ikiside olabilir mi?
Aynı butona atama yapıp ilk tıklayınca gizleyecek 2. tıklayışta gösterecek hem satır hemde sütunları,

TEşekkür ederim,

 

[Orion1]

Sn. Evren Gizlen,
Makroda sadece satırı gizliyor.Hem satırı hemde sütunu aynı anda gizleyebilir miyiz.
Göster'de aynı şekilde her ikiside olabilir mi?
Aynı butona atama yapıp ilk tıklayınca gizleyecek 2. tıklayışta gösterecek hem satır hemde sütunları,

TEşekkür ederim,

Zaten hem satırı hemde sütunu gizliyor.Z sütunundan sonraki sütunları gizliyor.

 

[1Al2Ver]

Merhabalar,

İşlem ToogleButton ile gerçekleşirse tek buton ile halledilmiş olacağından daha kullanışlı olur düşüncesindeyim, tabi sayın Evren Gizlen'in zamanı müsait ise,

Teşekkür ederim.

 

[mekist]

Zaten hem satırı hemde sütunu gizliyor.Z sütunundan sonraki sütunları gizliyor.

Ekte örnek dosya var,Sütunları gizleyemiyorum,Yardımcı oalbilir misiniz.

 

[leumruk]

Merhaba,
Örneği inceleyiniz.

 

[M.ACAR]

Sayın :leumruk örneği inceledim,çok mükemmel olmuş,elinize sağlık ;Fakat benim bir sorum olacak,böyle bir çalışma tek buton ile yapılabilirmi ?

 

[leumruk]

Merhaba,
Örneği inceleyiniz.

 

[M.ACAR]

Sayın : leumruk , Çok teşekkür ederim.

 

[Orion1]

Sayın :leumruk örneği inceledim,çok mükemmel olmuş,elinize sağlık ;Fakat benim bir sorum olacak,böyle bir çalışma tek buton ile yapılabilirmi ?

Ekli dosyayı inceleyiniz.

Private Sub ToggleButton1_Click()
With Sheets("Sayfa1")
    If .ToggleButton1.Value = True Then
        .ToggleButton1.Caption = "GÖSTER"
        Call satsut_gizle
    End If
    If .ToggleButton1.Value = False Then
        .ToggleButton1.Caption = "GİZLE"
        Call satsut_goster
    End If
End With
End Sub

 

[M.ACAR]

Sayın:Evren GİZLEN çok teşekkür ederim,çok harika olmuş.

 

[Orion1]

Sayın:Evren GİZLEN çok teşekkür ederim,çok harika olmuş.

Rica ederim.
iyi çalışmalar.