Bom dia

como faço para quando a minha planilha ela executar três código?

eu tenho na na "Esta pasta de trabalho" o código abaixo, mas gostaria de atribuir mais dois códigos.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Senha As String
Senha = "onasus"

If InputBox("Digite a senha para Salvar", "Proteção - Contabilidade") = Senha Then
Exit Sub
Else
If SaveAsUI = True Then
MsgBox "Não é permitido Salvar Como"
Cancel = True
Exit Sub
End If
If SaveAsUI = False Then
MsgBox "Não é permitido ‘Salvar"
Cancel = True
Exit Sub
End If
End If
End Sub