Aşağıda yazılı kodlarla bir tablonun korumasını kaldırıp,süzdükten sonra,yazdırıp süzmeyi kaldırıp tekrar korumaya aldırıyorum.Fakat yazıcı dökümünde tablo süzülmemiş olarak çıkıyor.Yazdırma satırını iptal ediyorum o zaman tabloyu normal olarak süzüyor. Acaba nasıl bir hata var.
Sub Ucyaz()
Cevap = MsgBox(" yazdırılsınmı?", vbYesNo)
If Cevap = 6 Then
Sheets("ÜCCİZ").Select
Sheets("ÜCCİZ").Unprotect Password:="123"
Range("b3:Ak34").Select
Selection.AutoFilter Field:=35, Criteria1:=">0"
'Worksheets("ücbor").PrintOut Copies = 1
'Sheets("ÜCCİZ").Select
'Selection.AutoFilter
Sheets("ÜCCİZ").Protect Password:="123"
Sheets("DÖKÜM").Select
Else
End If
End Sub
Sub Ucyaz()
Cevap = MsgBox(" yazdırılsınmı?", vbYesNo)
If Cevap = 6 Then
Sheets("ÜCCİZ").Select
Sheets("ÜCCİZ").Unprotect Password:="123"
Range("b3:Ak34").Select
Selection.AutoFilter Field:=35, Criteria1:=">0"
'Worksheets("ücbor").PrintOut Copies = 1
'Sheets("ÜCCİZ").Select
'Selection.AutoFilter
Sheets("ÜCCİZ").Protect Password:="123"
Sheets("DÖKÜM").Select
Else
End If
End Sub