range sınıfı hidden özelliği kurulamıyor

[cobanoglu]

ustalarım bu kodla satırları gizliyor yazdırdıktan sonra tekrar gösteriyordu sonra "range sınıfı hidden özelliği kurulamıyor hatası verdi sayfa korumaSINI KALDIRINCA düzeldi sayfa koruması varken neden hata veriyor sayfayı nasıl koruyabilirim

Private Sub CommandButton5_Click()
Sheets("muayene").Select
Application.ScreenUpdating = False
Dim i As Integer
For i = 2 To 32
If IsEmpty(Cells(i, 2)) Then

Rows(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Selection.EntireRow.Hidden = False
End Sub

 

[alpi]

aşağıdaki şekilde deneyin

Private Sub CommandButton5_Click()
Sheets("muayene").Unprotect "123
.
.
.
.
Sheets("muayene").Protect "123
End Sub

123 sayfa koruma şifresini ifade ediyor

 

[cobanoglu]

tşk sn:alpi