Ir ao conteúdo
  • Cadastre-se
Lindomar Marques

Excel excluir codigos do vba se a senha do projeto for quebrada

Recommended Posts

pessoal! tudo joia? eu montei um codigo usando referencias de outros que coloca a senha no projeto toda vez que abro o workbook porém todavia noentanto entretanto quando quebro a senha do projeto e abro o workbook novamente o codigo falha e nao funciona. então precisava descobrir atraves de uma consulta aos magos do vba se existe uma forma de excluir todos os codigos do projeto neste caso.

segue o codigo que estou usando

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.Interactive = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False

On Error GoTo 0

    ' Envia o comando para abrir o VBA
    SendKeys "%{F11}", True
On Error GoTo 0

    ' Abre a janela de proteção do projeto VBA
    VBProject.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
On Error GoTo 0
SendKeys "^({TAB})"
SendKeys " "
SendKeys "{+}"
    ' Envia os comandos para digitar a senha e confirmar
    SendKeys "{TAB}" & 2997925 & "{TAB}" & 2997925 & "~", True
    
On Error GoTo 0

SendKeys "%q"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.Interactive = True
End Sub

Private Sub Workbook_Open()
 
Application.Interactive = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False

On Error GoTo 0

    ' Envia o comando para abrir o VBA
    SendKeys "%{F11}", True
On Error GoTo 0

    ' Abre a janela de proteção do projeto VBA
    VBProject.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
On Error GoTo 0
SendKeys "^({TAB})"
SendKeys " "
SendKeys "{+}"
    ' Envia os comandos para digitar a senha e confirmar
    SendKeys "{TAB}" & 2997925 & "{TAB}" & 2997925 & "~", True
    
On Error GoTo 0

SendKeys "%q"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.Interactive = True
End Sub

esse codigo funciona maravilhas...

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

×