Подавить пароль при сохранении

Question

У меня есть книга / база данных Excel, которую я защищаю паролем, когда пользователь пытается сохранить.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim Password As String
    Dim EnteredPassword As String
    Password = "100%Laphr0a1g"
    'EnteredPassword = InputBox("Enter password to save changes")
    'If EnteredPassword = Password Then
    EnteredPassword = InputBox("Enter password to save changes")
    If EnteredPassword <> Password Then
        Cancel = True
        MsgBox ("Password incorrect, file not saved")
    End If
End Sub

Моя проблема в том, что я хочу сохранить книгу в другой процедуре в тихом режиме и не хочу вводить пароль.

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False

ChDir PathVal
ActiveWorkbook.SaveAs Filename:= _
    FileNameVal _
    , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False, 
ConflictResolution:=xlLocalSessionChanges

Application.EnableEvents = True
Application.DisplayAlerts = True
Application.ScreenUpdating = True

Какой код пропустить подпрограмму Private Sub Workbook_BeforeSave или код, который нужно сохранить без ввода пароля?