Autofilter, geschütztes Tabellenblatt

Private Sub CmdBtAlleZeigen_Click()
ActiveSheet.Unprotect
If ActiveSheet.AutoFilterMode = True Then
ActiveSheet.AutoFilterMode = False
End If
ActiveSheet.Protect
End Sub

Private Sub CmdButSortieren_Click()
ActiveSheet.Unprotect
If ActiveSheet.FilterMode = False Then
ActiveSheet.FilterMode = True
End If
Range("B8").AutoFilter field:=2, Criteria1:="=" & _
CmBoKürzel.Text, Operator:=xlOr
ActiveSheet.Protect
End Sub

wäre froh um eine Lösung unter Excel 97 Version, bei welchem der Schutz automatisch ein- und ausgeschaltet und sortiert wird.

Vielen Dank im Voraus