Ir ao conteúdo
  • Cadastre-se
ricardoassis

Macro para Salvar

Recommended Posts

Boa tarde!

Tenho um arquivo do excel em que a função Salvar Como e Salvar só é permitido por senha. Abaixo o código:


Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
Dim Senha As String
Senha = "1234"

If InputBox("Digite a senha para Salvar, ou em branco apenas fecha.", "Proteção") = Senha Then
Exit Sub
Else
If SaveAsUi = True Then
MsgBox "Não é permitido ‘Salvar Como‘"
Cancel = True
Exit Sub
End If

If SaveAsUi = False Then
MsgBox "Não é permitido ‘Salvar‘"
Cancel = True
Exit Sub
End If
End If
End Sub

Criei uma macro atribuída a um botão que salva uma cópia desse arquivo, sendo o nome o valor de 2 células.

Sub Salvar_CO()
If IsEmpty(Range("D2")) Or IsEmpty(Range("F2")) Then
Mensagem = MsgBox("O número de solicitação não foi preenchido corretamente.", vbExclamation, "Documento não será salvo")
End If
If IsEmpty(Range("C10")) Then
Mensagem = MsgBox("O nome do solicitante não foi preenchido.", vbExclamation, "Documento não será salvo")
End If
If IsEmpty(Range("A15")) Then
Mensagem = MsgBox("A descrição da solicitação não foi preenchida.", vbExclamation, "Documento não será salvo")
End If
If IsEmpty(Range("C11")) And IsEmpty(Range("C12")) Then
Mensagem = MsgBox("Não foi preenchido nenhum contato do solicitante.", vbExclamation, "Documento não será salvo")
Exit Sub
Else
End If

ActiveWorkbook.SaveCopyAs Filename:= _
"H:\PMI\Secretarias_Municipais\SMDU\DEGEO\Administrativo\FISSEG\Arquivo\2013\" & [D2].Value & "-" & [F2].Value & ".xlsm" _


MsgBox "Salvo em DEGEO\Administrativo\FISSEG\Arquivo\2013 com sucesso!"

End Sub

O meu problema é ao abrir esse arquivo gerado, se pretendo salvar alguma modificação o excel não permite salvar cópia com o mesmo nome de um arquivo já aberto.

Gostaria que ao dar erro em salvar como cópia, o excel usasse a função Salvar, entrando automaticamente com a senha.

Alguém pode me ajudar?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×