Hi there,
I had a macro that ran a report on a protected workbook. However there is now requirement to keep the workbook shared at all times so what used to be the first part of the code which would enter the password to unlock the protection no longer works while the WB is shared.
I have found a few lines of code online that allow me to clear all filters while the WB is protected and shared. However the macro bugs on the first line of the original code when it attempts to enter a filter value onto col 54.
The code is as below;
Sub test()
Sheets("PPBI").Select
Dim ws As Worksheet
Set ws = ActiveSheet
ws.AutoFilter.ShowAllData
ActiveSheet.Range("$A$2:$DU$9998").AutoFilter Field:=54, Criteria1:="<>"
End Sub
Can anyone help?
Regards,
John Carlin.
I had a macro that ran a report on a protected workbook. However there is now requirement to keep the workbook shared at all times so what used to be the first part of the code which would enter the password to unlock the protection no longer works while the WB is shared.
I have found a few lines of code online that allow me to clear all filters while the WB is protected and shared. However the macro bugs on the first line of the original code when it attempts to enter a filter value onto col 54.
The code is as below;
Sub test()
Sheets("PPBI").Select
Dim ws As Worksheet
Set ws = ActiveSheet
ws.AutoFilter.ShowAllData
ActiveSheet.Range("$A$2:$DU$9998").AutoFilter Field:=54, Criteria1:="<>"
End Sub
Can anyone help?
Regards,
John Carlin.