Macro to Un Hide filtered rows

  • Thread starter Thread starter JeffK
  • Start date Start date
J

JeffK

I have this Macro

Sub Macro2()
Const csPWORD As String = "123"
ActiveWorkbook.Worksheets("broker").Unprotect Password:=csPWORD
ActiveSheet.ShowAllData
ActiveWorkbook.Worksheets("broker").Protect Password:=csPWORD
End Sub

I get a bug error if the sheet is already un filtered and the next step of
protecting the sheet again doesn't happen. How do I change this to search
first to see if the worksheet is filtered and if it is then proceed with the
rest of the Macro.
 
One option would be to ignore the error;

Sub Macro2()
Const csPWORD As String = "123"
ActiveWorkbook.Worksheets("broker").Unprotect Password:=csPWORD
On error resume next
ActiveSheet.ShowAllData
on error goto 0
ActiveWorkbook.Worksheets("broker").Protect Password:=csPWORD
End Sub

HTH,
Keith
 
Keith, worked like a charm,

Thanks

ker_01 said:
One option would be to ignore the error;

Sub Macro2()
Const csPWORD As String = "123"
ActiveWorkbook.Worksheets("broker").Unprotect Password:=csPWORD
On error resume next
ActiveSheet.ShowAllData
on error goto 0
ActiveWorkbook.Worksheets("broker").Protect Password:=csPWORD
End Sub

HTH,
Keith
Click to expand...
 
Sub Macro2()
Const csPWORD As String = "123"

With activeworkbook.worksheets("broker")

.unprotect password:=cspword

'to remove the filter and the arrows
.AutoFilterMode = False

'or to just show all the data and keep the arrows
If .FilterMode Then
.ShowAllData
End If

.protect password:=cspword
End With
End Sub
 
Back
Top