Boa tarde,

Tem como postar um modelo ou a rotina que voce esta utilizando?

A Rotina para criar backup seria essa:

Sub backup()

Dim caminho As String
Dim NovoNome As String
caminho = Application.ActiveWorkbook.Path
ChDir caminho
NovoNome = caminho + "Backup.bak"
    ActiveWorkbook.SaveAs Filename:=NovoNome, FileFormat:=xlExcel8, _
        Password:="qwertyuiop1234567890", WriteResPassword:="", ReadOnlyRecommended:=True, _
        CreateBackup:=False
        Application.DisplayAlerts = True
        
End Sub

Mais após salvar ele abre a cópia da planilha que foi salva :/
Queria que após salvar, a mesma permanecesse aberta, e não a versão salva.

E se possivel, se há como usar o SendKeys para abrir o backup sem ter que digitar a senha

Tente este ActiveWorkbook.Close SaveChanges:=False

Eu nao entendi muit bem mas acho que este é o caminho.

Cole o codigo abaixo em Esta Pasta de Trabalho.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Backup As String
Dim WB As Workbook

On Error Resume Next

    Set WB = Workbooks("Sacolão.xlsm") 'Seu arquivo
    Backup = "I:Pen DriveSacolão.xlsm" 'Caminho do arquivo com o nome no destino.
    
Application.DisplayAlerts = False
    
    WB.Save
        
    ChDir "I:Pen Drive"
    
    WB.SaveAs Filename:=Backup, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    
Application.DisplayAlerts = True

End Sub

Uso este codigo para fazer backup de uma planilha no pendrive.

Neste caso o codigo roda sempre que fecho o arquivo.

Se precisar apos salvar troque o evento de Esta Pasta de Trabalho