Hi All,
I have a workbook which has circa 30 tabs and is accessed byapproximately 25 users simultaneously.
I’m looking for come coding to remove any current filters and unhideany columns then re-protect each sheet on opening.
I have the following code which is removing the filters but doesn’t unhidethe columns and isn’t allowing the filter to be re-applied once the sheet isprotected:
Sub Aut
pen()
Dim xWs As Worksheet
For Each Wks InThisWorkbook.Worksheets
On Error Resume Next
If Wks.AutoFilterMode Then
Wks.AutoFilterMode =False
AllowFiltering = True
userinterfaceonly = True
End If
Next Wks
End Sub
Any help would be greatly appreciated.
Affy
I have a workbook which has circa 30 tabs and is accessed byapproximately 25 users simultaneously.
I’m looking for come coding to remove any current filters and unhideany columns then re-protect each sheet on opening.
I have the following code which is removing the filters but doesn’t unhidethe columns and isn’t allowing the filter to be re-applied once the sheet isprotected:
Sub Aut
![Er... what? o_O o_O](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f635.png)
Dim xWs As Worksheet
For Each Wks InThisWorkbook.Worksheets
On Error Resume Next
If Wks.AutoFilterMode Then
Wks.AutoFilterMode =False
AllowFiltering = True
userinterfaceonly = True
End If
Next Wks
End Sub
Any help would be greatly appreciated.
Affy