OBS: O exemplo dois é no sentido de que: Eu abro uma planilha já salva e quando tento executar o comando salvar (para salvar as alterações), a planilha dá erro, pois o arquivo está sendo utilizado.

Georgevbs,
Para o segundo(2°):
o "comando" salva uma copia da planilha em uso com um novo nome. Se tentar salvar novamente uma copia do arquivo com o mesmo nome e no mesmo local do arquivo em uso, o sistema operacional (leia-se windows) não permite.Então é necessario alterar o nome ou local de gravaçao.
Paro o primeiro(1°) utilize (no final do codigo antes do end sub):
ActiveWorkbook.Saved=True, assim o arquivo será fechado e as alterações não serão gravadas(salvas)
ou
ActiveWorkbook.Save , assim o arquivo será salvo e no fechamento não haverá o questionamento

Vc teria um macro alternativo para o exemplo (2°), Reinaldo?

Desculpe, mas como disse salvar uma copia com o mesmo nome e local onde está o arquivo original (e o mesmo estando em uso) não é permitido pelo sistema operacional (windows).
Tambem não vejo qual objetivo de salvar assim o aruqivo?

Por exemplo... Na primeira vez que eu salvo a planilha ela ficou com o nome "Agosto.xlsm". Contudo, dias depois... eu abro essa mesma tabela e quando uso o botão salvar... na minha macro dá erro, como vc bem apontou. O que eu quero é outro código, então. Um que habilite, por exemplo, o "Salvar Como". Ao invés do código "ActiveWorkbook.SaveCopyAs". Mas eu preciso de um "Salvar como" que já apareça o nome do arquivo na caixa, ex.: "Agosto.xlsm".
Se puder ajudar, fico grato.

O salvor como do excel não faz isso??

mas experimente:

Sub SeiLa()
Application.DisplayAlerts = False
    ActiveWorkbook.Save "G:" & [K2].Value & ".xlsm"
Application.DisplayAlerts = True
    
MsgBox "Arquivo foi salvo com sucesso"

End Sub

Não serviu. Mas, só para ajudar, a mesma ideia, com outras palavra. Eu preciso de uma macro que Salve a Planilha com a extensão ".xlsm" e com o nome da célula ex.: "K2".

Esse código que vc enviou não salva em ".xlsm". Mesmo assim, obrigado tentativa.

Eu tentei usar o "ActiveWorkbook.SaveAs". Mas tbm não serviu. A ideia seria que a macro abrisse a caixa de "Salvar como" e já trouxesse o nome do arquivo preenchido no campo nome (nesse caso o nome contido na célula K2). Pq ai Excel ia perguntar ao usuário se ele deseja substituir o arquivo.

Consegui resolver com esse código:

nome = [K2].Value & ".xlsm"
ActiveWorkbook.SaveAs Filename:="G:" & nome, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Ficou perfeito. Obrigado pela ajuda.