hata kodu 400

[serkanholep]

ekteki dosyada SINIF sayfasında gizle ve göster butonları normal şartlar altında çalışıyor

ama sayfayı koru yaptığımda (ki yapmam lazım hocalar bozmaması için) 400 hatası veriyor

resume next ekleyincede islevini yerine getirmiyor butonlar

 

[Murat OSMA]

Tam olarak hangi durumda hata alıyorsunuz ? :dusun:

 

[serkanholep]

Tam olarak hangi durumda hata alıyorsunuz ? :dusun:

sınıf sayfasına koruma yapıyorum gizle butonu tıklayınca hata veriyor

 

[Murat OSMA]

Ben hata almıyorum.. Şöyle yapalım;

Sayfadaki kodlarınızı silin ve bu kodları Module içerisine yapıştırın.
Butona tekrar makto ataması yapıp deneyin.

Sub satırgizle()
    Dim X As Integer
    ActiveSheet.Unprotect "1"
    For X = 5 To 58
        If Cells(X, 5) = "" Then
            Cells(X, 5).EntireRow.Hidden = True
        End If
     Next
     ActiveSheet.Protect "1"
End Sub
Sub hepsinigöster()
    ActiveSheet.Unprotect "1"
        Cells.EntireRow.Hidden = False
    ActiveSheet.Protect "1"
End Sub