EXCELer

Se pretendermos guardar um determinado ficheiro de Excel com o mesmo nome ou nome diferente, mas com a inclusão de uma determinada palavra (no exemplo a palavra é "FINAL_"), ficando o ficheiro protegido (read-only), podemos utilizar um pouco de VBA num botão de comando:



O Código:

Private Sub VersãoFinal_Click()
    Dim strNome, UserChoice, strGuarda As String

    Range("AB44") = "Final_"
    strNome = ThisWorkbook.Name

    strGuarda = InputBox("Digite o Nome do Ficheiro para Guardar ou OK para aceitar", , strNome)
    UserChoice = MsgBox("Quer mesmo gravar?", vbYesNo + vbQuestion)
    Select Case UserChoice
    Case vbNo
        Exit Sub
    Case Else
        ActiveWorkbook.SaveAs Filename:= _
                              Range("AB44").Value & strGuarda, FileFormat:=xlNormal, _
                              Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, _
                              CreateBackup:=False
    End Select
End Sub