麻烦大神帮看下VBA定位

abehome

请教下大神
有很多个表，公式我隐藏了，并且密码保护了需求
执行宏
1 解除所有密码保护
2 筛选去掉空白单元格
3 重新隐藏所有公式并密码保护禁止修改
问题
现在的代码可以解锁，筛选，加锁，但是会吧没有公式的表格也保护（例如sheet1里没有一个公式，他也保护了，我没法选内容删除，只能选内容清楚）


Sub 执行1()
Application.ScreenUpdating = False
    Dim sh As Worksheet
    For Each sh In Sheets
        sh.Visible = xlSheetVisible
        If sh.ProtectContents = True Then
            sh.Unprotect Password:="123456"
        End If
    Next


  Sheets("1销货单").Select
    ActiveSheet.Range("$A$17:$T$2000").AutoFilter Field:=1, Criteria1:="<>"
    Sheets("1退货单").Select
    ActiveSheet.Range("$A$17:$T$1000").AutoFilter Field:=1, Criteria1:="<>"
    Sheets("2销货单").Select
    ActiveSheet.Range("$A$17:$T$2000").AutoFilter Field:=1, Criteria1:="<>"
    Sheets("2退货单").Select
    ActiveSheet.Range("$A$17:$T$999").AutoFilter Field:=1, Criteria1:="<>"
    Sheets("大销货单").Select
    ActiveSheet.Range("$A$17:$T$2000").AutoFilter Field:=1, Criteria1:="<>"
    Sheets("大退货单").Select
    ActiveSheet.Range("$A$17:$T$1000").AutoFilter Field:=1, Criteria1:="<>"



    For Each sh In Sheets
        sh.Visible = xlSheetVisible
        If sh.ProtectContents = False Then
            sh.Protect Password:="123456", AllowFiltering:=True
        End If
    Next
    Sheets("合计").Select
End Sub