poste a plan que é bem mais produtivo.

Abs,

Mandrix, aqui está a plan. Quando você abrir pedirá uns dados. Login=Flavia;Senha=neironilson. No menu desenvolvedor a senha é 1234567890123456

Edit: minha duvida esta explicada no código da form "frmArquivo"

Uma pergunta: Deseja salvar todo o arquivo com outro nome ou uma copia do arquivo com outro nome ou somente alguma(s) planilha(s) do arquivo
Motivo da pergunta: Ao salvar o arquivo com o SaveAs, o arquivo (chamemos assim) anterior (o originalmente aberto) e "fechado" e modificações efetuadas somente estão disponiveis no novo arquivo.

Se for salvar o arquivo corrente com outro nome pode utilizar:

Private Sub CommandButton1_Click()
'Salvar como "Gestão de Profissionais_(cboMes.Value)-(txtAno.Value)"
'em "Z:Gestão OperacionalGestão de ProfissionaisArquivos"
'no formato ".xls"
'<><><><><><><><><><>
Dim Pasta As String, Nom As String  
Pasta = "Z:Gestão OperacionalGestão de ProfissionaisArquivos"
Nom = "Gestão de Profissionais_(" & cboMes.Value & ")-(" & txtAno.Text & ").xls"
' Salvar em xlsm
'    ActiveWorkbook.SaveAs Filename:=Pasta & "" & Nom, _
'        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
'Salvar em xls
    ActiveWorkbook.SaveAs Filename:=Pasta & "" & Nom, _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Primeiramente, muito obrigado, Reinaldo! Respondendo a sua pergunta, o que eu quero é o seguinte:
Criar uma cópia do arquivo em .xls e depois limpar todos os dados inseridos no arquivo originalmente aberto. Isso porque é um controle de serviço mensal, então funcionaria da seguinte forma: Você digita os serviços durante o mês e no final, clica no botão para gerar arquivo e o aplicativo gera a cópia e limpa a planilha para que você possa digitar os serviços do mês, gerar outro arquivo no final e assim sucessivamente.

Copie os codigos abaixo para sua planilha (formArquivo) substituindo o(s) existente(s).
Veja se lhe atende:

Private Sub CommandButton1_Click()
    'Salvar como "Gestão de Profissionais_(cboMes.Value)-(txtAno.Value)"
    'em "Z:Gestão OperacionalGestão de ProfissionaisArquivos"
    'no formato ".xls"
 
    SalvarComo
    Limpeza
MsgBox "Dados limpos"
Unload Me
End Sub
Private Sub SalvarComo()
'Salva copia do arquivo
Dim nPlan As String, Caminho As String, Arquivo As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
nPlan = "Gestão de Profissionais_(" & frmArquivo.cboMes.Value & ")-(" & frmArquivo.txtAno.Text & ").xls"
Caminho = "D:Any Video Converter"
'Caminho = "Z:Gestão OperacionalGestão de ProfissionaisArquivos"
Arquivo = Caminho & nPlan

    On Error GoTo erro
       
'Verifica se o diretorio existe, se não existir, sai da rotina
If (Dir(Caminho, vbDirectory) = "") Then
    MsgBox "Diretório Não Encontrado"
    Exit Sub
End If
'Verifica se o arquivo já existe, se existir sai da rotina
    If (Dir(Arquivo) <> "") Then
        MsgBox "Arquivo já existente"
        'Kill Arquivo
        Exit Sub
    End If
'Salva copia do arquivo no caminho especificado
'Cria um novo arquivo sem as macros
    ActiveWorkbook.Sheets.Copy
'O arquivo recem criado fica como o arquivo ativo
' salvando em xls e não receber a mensagem sobre a compatibilidade
    ActiveWorkbook.CheckCompatibility = False
    ActiveWorkbook.SaveAs Filename:=Arquivo, FileFormat:=xlExcel8
    ActiveWorkbook.Close
fim:
Application.ScreenUpdating = True
        MsgBox " Arquivo " & Arquivo & " criado e salvo com sucesso"
    Exit Sub
erro:
Application.ScreenUpdating = True
        MsgBox "Erro ao criar backup:" & vbCrLf & Err.Description, vbOKOnly + vbCritical, "Atenção"
        Err.Clear
    Resume fim
End Sub

Private Sub Limpeza()

For Each ws In ActiveWorkbook.Sheets
    If ws.Visible = True Then
        ws.Activate
        Range("A3:H300").ClearContents
    End If
Next
End Sub

Muito obrigado, Reinaldo! A parte de gerar o arquivo funcionou, mas encontrei um problema na parte de limpar os dados... Veja bem: Primeiramente, eu havia me esquecido que duas sheets ocultas "Operadora" e "Profissionais" são sources para combobox do formulário de registro. Mas o problema nem foi esse, não consegui limpar os dados, deu o seguinte erro:

Erro de Compilação: É impossível localizar o projeto ou a biblioteca
*e o erro selecionou uma parte (entre asteriscos para indicar) do código para indicar

Private Sub Limpeza()

For Each *ws* In ActiveWorkbook.Sheets
    If ws.Visible = True Then
        ws.Activate
        Range("A3:H300").ClearContents
    End If
Next
End Sub

No editor do VBA vá em Ferramentas -->referencias e verifique se exite alguma referencia com (Ausente)conforme a imagem anexa

Aqui está bem assim, Reinaldo

Bom dia!!

Desmarque onde está escrito AUSENTE!

Att

Muito obrigado, camaradas!!! Graças a vocês terminei o meu projeto!!!