Korumalı Sayfada Buton Çalışmıyor

[musaagac]

Arkadaşlar sayfama bir tane buton ekledim butona aşağıdaki komutu yazdım. Buton Özelliklerde kilitli değil açık. Sayfa Hücreleri kilitledim Komut yazılı olduğu için yani sayfam korumalı olduğunda buton çalışmıyor yardımcı olurmusunuz.

Dosya Ektedir.

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Göster"
For Each t In Range("AA5:AA500").Cells
If t.Value = "" Then
t.EntireRow.Hidden = True
End If
Next t
Else
ToggleButton1.Caption = "Gizle"
Cells.EntireRow.Hidden = False
End If
End Sub

 

[Ömer]

Merhaba,

Linki inceleyiniz.

kod çalıştırmada sayfa koruma sorunu

.

 

[musaagac]

Çözemedim Bir Türlü

 

[Ömer]

Bu şekilde deneyiniz. a yerine kendi şifrenizi yazarsınız.

Private Sub ToggleButton1_Click()
 
ActiveSheet.Unprotect "[COLOR=red]a[/COLOR]"
 
  Application.ScreenUpdating = False
    If ToggleButton1.Value = True Then
        ToggleButton1.Caption = "Göster"
        For Each t In Range("AA5:AA500").Cells
            If t.Value = 0 Then
                t.EntireRow.Hidden = True
            End If
        Next t
    Else
        ToggleButton1.Caption = "Gizle"
        Cells.EntireRow.Hidden = False
    End If
  Application.ScreenUpdating = True
 
ActiveSheet.Protect "[COLOR=red]a[/COLOR]"
 
End Sub

.

 

[musaagac]

Teşekkür Ederim. Gizleme İşlemi Yapıldıktan Sonra Sıra No Kısmına Sıra ile numara nasıl verebilirim.

 

[Ömer]

Eklediğiniz dosyanın sayfa koruma şifresini kaldırıp ekleyin yada şifreyi paylaşın lütfen.

 

[musaagac]

Şifre 3872529

 

[Ömer]

A5 hücresine yazarak alt satırlara kopyalayınız.

=EĞER(B5="";"";ALTTOPLAM(103;$B$5:B5))

.