Boa noite!!

Dê exemplos do que queres!!
Podes usar o 'Acelerato' na propriedade do controle...

Depende do que pretende extamente..

Application.MacroOptions Macro:="Test", HasShortcutKey:=True, ShortcutKey:="F1"

Att

tentarei se mais objetivo:

tenho um formulário com 3 botões, que me levam a outros formulários.
Suponhamos:

Botão Clientes - a este botão quero atribuir a tecla F2

Botão Fornecedores - a este a tecla F3

Botão Prestadores - a este a F4

Botão Sair - e a este o ESC

Então pessoal, em relação a uma das minhas necessidades, encontrei um exemplo na net para fazer backup, só que não estou conseguindo fazer funcionar. Se alguém puder dar um olhada no código para ver qual é o problema, talvez possa funcionar.

farofa... em relação à atribuição das teclas, existe uma forma muito simples. Segue exemplo. Em relação ao backup, ainda não posso ajudar, estou com o mesmo problema em uma planilha que tenho aqui.

ótimo charlie, era realmente o que eu precisava. Agora só falta a questão do backup.

Boa noite!!

Tente adaptar...

Sub BcUp_Salvar()
'Salva o arquivo atual para uma pasta de backup ea pasta padrão
'Note-se que qualquer backup é substituído
Dim MyDate
MyDate = Date    'MinhaData contém a data atual do sistema.
Dim MyTime
MyTime = Time    'Voltar hora atual do sistema.
Dim TestStr As String
TestStr = Format(MyTime, "hh.mm.ss")
Dim Test1Str As String
Test1Str = Format(MyDate, "DD-MM-YYYY")

Application.DisplayAlerts = False
'
Application.Run ("SaveFile")
'
ActiveWorkbook.SaveCopyAs Filename:="T:TEC_SERVBackup Test" & Test1Str & " " & TestStr & " " & ActiveWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

........

Sub SalvarArquivoBcUp()
Dim awb As Workbook, BackupFileName As String, i As Integer, OK As Boolean
    If TypeName(ActiveWorkbook) = "Nothing" Then Exit Sub
    Set awb = ActiveWorkbook
    If awb.Path = "" Then
        Application.Dialogs(xlDialogSaveAs).Show
    Else
        BackupFileName = awb.FullName
        i = 0
        While InStr(i + 1, BackupFileName, ".") > 0
            i = InStr(i + 1, BackupFileName, ".")
        Wend
        If i > 0 Then BackupFileName = Left(BackupFileName, i - 1)
        BackupFileName = BackupFileName & ".bak"
        OK = False
        On Error GoTo NotAbleToSave
        With awb
            Application.StatusBar = "Salvando o arquivo..."
            .Save
            Application.StatusBar = "Salvando um backup do arquivo..."
            .SaveCopyAs BackupFileName
            OK = True
        End With
    End If
NotAbleToSave:
    Set awb = Nothing
    Application.StatusBar = False
    If Not OK Then
        MsgBox "A copia do Backup não foi Salva!", vbExclamation, ThisWorkbook.Name
    End If
End Sub

sou muito noob alexandrevba, nem sei se consigo

preciso de um exemplo que permita eu fazer o backup e depois, se preciso for, restaurá-lo, como no exemplo que anexei. Só que ele era utiliazdo para fazer backup e restaurar em um arquivo do acess com excel e não consegui adaptá-lo.