Use 'Unfilter' macro on protected sheet

[SaraWitch]

Hello peeps,

I am using a macro button to unfilter a sheet, which works grand until I protect the sheet. Is there a way to enable this with a protected sheet at all?

Sub Unfilter()
Sheet1.ShowAllData
End Sub

Ta very muchly!

 

[SaraWitch]

Ah, don't worry! Got it!

Sub Unfilter()
Worksheets("My Sheet Name").Unprotect "My Password"

Sheet1.ShowAllData

Worksheets("My Sheet Name").Protect "My Password", AllowFiltering:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True

Application.ScreenUpdating = True
End Sub

Thank you anyway!

 

[SaraWitch]

Or for whole workbook:

Sub Unfilter()
Dim wks As Worksheet
  Dim MyPassword As String

  MyPassword = "My Password"

  For Each wks In Worksheets

    If wks.FilterMode = True Then
           wks.Unprotect password:=MyPassword
           wks.ShowAllData
           wks.Protect password:=MyPassword, AllowFiltering:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True
    End If
  Next wks
End Sub