[ÇÖZÜLDÜ] Sayfa1 den sayfa2ye geçişte makronun çalışması

[enteresan]

Değerli excelci arkadaşlar. Kullandığım bir dosyada sayfa1 de bulunan bir hücreye köprü yaptım ve o köprüye bastığımda aşağıdaki kod ile sayfa2 de süzme işlemi yapılmakta. Sayfa2 korumalı olduğu zaman makro hata vermektedir. Makronun başına ve sonuna koruma özelliğini pasifleştirip süzme işlemi bittiğinde aktifleşmesi için kod ekledim ama yine de hata verdi. Kodu inceleyip gerekli düzeltmeyi yapabilirseniz sevinirim. Saygılarımla.

Kod :
Private Sub Worksheet_Activate()
Rows("3:30").EntireRow.Hidden = False
For x = 3 To 30
If Cells(x, 5).Value = "0" Then Rows(x).Hidden = True
Next
End Sub

 

[ileriexcel]

Private Sub Worksheet_Activate()
On Error Resume Next
Set s2 = Sheets("MİATLI")
s2.Unprotect "123"
Rows("3:30").EntireRow.Hidden = False
For x = 3 To 30
If Cells(x, 5).Value = "0" Then Rows(x).Hidden = True
Next
s2.Protect "123"
End Sub

 

[enteresan]

Private Sub Worksheet_Activate()
On Error Resume Next
Set s2 = Sheets("sayfa")
s2.Protect "123"
Rows("3:30").EntireRow.Hidden = False
For x = 3 To 30
If Cells(x, 5).Value = "0" Then Rows(x).Hidden = True
Next
s2.Unprotect "123"
End Sub

Sayın ileriexcel, ilginize teşekkür ederim. Fakat çalışmadı. Dosyayı ekte gönderdim. Benim yapamadığım bişey mi var acaba. Saygılar....

 

[ileriexcel]

Kodlamadaki Sayfa ismini değiştirmemişsiniz birdaha deneyiniz
Private Sub Worksheet_Activate()
On Error Resume Next
Set s2 = Sheets("MİATLI")
s2.Unprotect "123"
Rows("3:30").EntireRow.Hidden = False
For x = 3 To 30
If Cells(x, 5).Value = "0" Then Rows(x).Hidden = True
Next
s2.Protect "123"
End Sub

 

[Selçuk1]

sn. enteresan

EK'li dosyayı incelermisiniz? umarım istediğiniz gibi olmuştur.

iyi çalışmalar..

 

[enteresan]

Teşekkür ederim Dediğiniz gibi yaptım çalıştı. Çok teşekkürler.....