Range Sınıfının Hidden özelliği kurulamıyor Uyarısı

[Yesilyurtlu]

Private Sub Worksheet_Activate()
gizle
End Sub
Sub gizle()
Dim Hucreler As Range
For Each Hucreler In Range("A6:A25")
If Hucreler.Value = "" Or Hucreler.Value = " " Then
Hucreler.EntireRow.Hidden = TrueEnd If
Next Hucreler
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Private Sub Worksheet_Deactivate()
Range("A6:A25").EntireRow.Hidden = FalseEnd Sub




YUkarıda Kullandığım Kodda altı çizilmiş kısımlar hata veriyor. Hata aşağıdaki gibidir.
Run-Time Error "1004":
Range Sınıfının Hidden özelliği kurulamıyor

Hatasını almamam için ne yapabilirim

 

[serqet]

bende hatasız çalışıyor kodunuz.

 

[serqet]

sanırım sayfanız korumalı önce korumayı kaldırın, kodu şu şekilde düzenleyin

Private Sub Worksheet_Activate()
gizle
End Sub
Sub gizle()
Dim Hucreler As Range
For Each Hucreler In Range("A6:A25")
If Hucreler.Value = "" Or Hucreler.Value = " " Then
ActiveSheet.Unprotect
Hucreler.EntireRow.Hidden = TrueA
End If
Next Hucreler
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Private Sub Worksheet_Deactivate()
Range("A6:A25").EntireRow.Hidden = False
End Sub

 

[Yesilyurtlu]

Sayfa Korumasını kaldırdım sıkntı gitti.

TEşekkür Ederim. Bilgileriniz için

 

[serqet]

Sayfa Korumasını kaldırdım sıkntı gitti.

TEşekkür Ederim. Bilgileriniz için

Rica ederim.:hihoho: