Birden fazla sayfada farklı aralıklardaki boşlukları gizleme / gösterme

[ksenon001]

Sevgili üstadlar hocalar ve arkadaşlar merhaba forumda aradım çeşitli boşlukları gizleme yada silme işlemi var ama benim istediğim mesela

standart bir excel dosyasında bir komut tuşu yardımıyla korumalı aşağıdaki sayfalara

Sayfa1 'de a1:a10
Sayfa2 'de a1:a10
Sayfa3 'de a1:a10

Sayfa4 'de a11:a20
Sayfa5 'de a11:a20
Sayfa6 'da a11:a20

Sayfa7 'de a21:a30
Sayfa8 'de a21:a30
Sayfa9 'de a21:a30

gizlemek ve göstermek teşekkür ederim iyi akşamlar

 

[Orion1]

Aşağıdaki kodları inceleyiniz.
Diğer sayfalar içinde uyarlayınız.

Sub gizle()
Sheets("Sayfa1").Range("A1:A10").EntireRow.Hidden = True
End Sub

Sub goster()
Sheets("Sayfa1").Range("A1:A10").EntireRow.Hidden = False
End Sub

 

[ksenon001]

sayın hocam orası tamamda sayfalar korumalı olduğu için işleme izin vermiyo bu işlem başlangıcında koruma kalkmalı bitince yine koruma olmalı bu nasıl olabilir bu bir

istediğim o aralığın tamamen yok olması ve geri gelmesi değil o aralıktaki
değerlerin arasındaki boşlukların yol olması ve geri gelmesi

eke ricamı gösterir bir örnek koydum teşekkür ederiim

 

[Orion1]

Dosyanız ektedir.

Sub sayfa_gizle()
Dim alan As Range, hcr As Range
For i = 1 To Worksheets.Count
    Sheets(i).Unprotect
    If i >= 1 And i <= 3 Then Set alan = Sheets(i).Range("A1:A10")
    If i >= 4 And i <= 6 Then Set alan = Sheets(i).Range("A11:A20")
    If i >= 7 And i <= 9 Then Set alan = Sheets(i).Range("A21:A30")
    For Each hcr In alan
        If hcr.Value = "" Then hcr.EntireRow.Hidden = True
    Next
    Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
MsgBox "Gizleme Yapıldı." & vbLf & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub
Sub sayfa_goster()
Dim alan As Range, hcr As Range
For i = 1 To Worksheets.Count
    Sheets(i).Unprotect
    If i >= 1 And i <= 3 Then Set alan = Sheets(i).Range("A1:A10")
    If i >= 4 And i <= 6 Then Set alan = Sheets(i).Range("A11:A20")
    If i >= 7 And i <= 9 Then Set alan = Sheets(i).Range("A21:A30")
    For Each hcr In alan
        If hcr.Value = "" Then hcr.EntireRow.Hidden = False
    Next
    Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
MsgBox "Gizleme Yapıldı." & vbLf & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[ksenon001]

Tşkler

elinize sağlık psikopat olmuş

 

[Orion1]

elinize sağlık psikopat olmuş

psikopat,yani kötümü?