Hi,
I have the following code saved under the "This Workbook" object
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Dim wsRegister As Worksheet
Set wsRegister = ThisWorkbook.Sheets(Register)
wsRegister.Unprotect Password:="BWI2018"
If wsRegister.FilterMode = True Then...