excelde çalışma kitabını koruma yaparak makro ile istenilen sayfaları nasıl gizlenir

[Kemter]

Esselamunaleykum değerli arkadaşlar;

Excelde 15 sayfalık bir çalışma kitabım var. Bu çalışma kitabımda istediğim sayfaları gizleyip aça biliyorum.
Ancak Excelde çalışma kitabını koruma yaptıktan sonra ise sayfaları gizle dediğim hata alıyorum bunu nasıl aşabilirim yardımlarınızı istirham ediyorum saygılarımla.

Makro aşağıdaki gibi yukarıdaki işlemi yapınca aşağıdaki kırmızı yerde hata veriyor.

' Tumunu_gizle Makro
'
' Klavye Kısayolu: Ctrl+g
'

For a = 1 To Sheets.Count

'Sheets(a).Visible = True


If (Sheets(a).Name <> "SÖZLEŞMELİ" And Sheets(a).Name <> "KADROLU" And Sheets(a).Name <> "5510") Then

'Sheets(a).Visible = 2

End If

Next

End Sub

Private Sub Form_Ac()

UserForm1.Show

End Sub

Sub Goster_TekSayfa(Sheet_adi As String)

Sheets(Sheet_adi).Visible = -1
Sheets(Sheet_adi).Activate

UserForm1.Hide
End Sub

 

[Muzaffer Ali]

Dosya korumalı olduğu için dosya üzerinde değişiklik yapamazsınız.

Hata almamak için korumayı kaldırmalısınız

Sayfaları gizlemek için kullandığınız kodların en üst satırına

Korumayı kaldırmak için

ActiveWorkbook.Unprotect "Şifre"

en alt satırına
Tekrar korumak için

ActiveWorkbook.protect "Şifre"

satırlarını ekleyin.

Şifre kullanmıyorsanız şifre kısmını boş bırakabilirsiniz.

 

[Kemter]

Sevgili dalgalıkur ilginiz için çok teşekkür ederim.
öncelikle bütün korumaları kaldırıyorum sonra çalışma kitabını koruma deyip şifreyi girip, Ctrl+g deyip diğer sayfaları gizle dediğimde ise gizlemiyor, Sizin vermiş olduğunuz kodlara göre yapınca Ctrl+g gerek kalmadan diğer sayfaları otomatik olarak gizliyor çalışma kitabını koruma devreye girmiyor. Ancak beni istediğim ise çalışma kitabını koruma yapıp silinmesini engellemek diğer sayfaları tekrar gizleyebilmek iyi çalışmalar dilerim.