Olá, preciso executar uma macro que é a Private Sub Workbook_BeforeSave
porem a planilha aponta que o projeto está protegido e por isso não executa.
Queria saber como posso chamar a caixa da senha, para poder destravar e travar rapidamente.
O código que estou tentando usar:
Sub ProtectVBProject()
Dim wb As Workbook
Set wb = ActiveWorkbook
' Ativa a planilha a ser bloqueada
wb.Activate
' Envia o comando para abrir o VBA
SendKeys "%{F11}", True
' Abre a janela de proteção do projeto VBA
wb.VBProject.VBE.CommandBars(1).FindControl(ID:=761, recursive:=True).Execute ' Aqui eu precisaria do ID da caixa da senha
End Sub
Se possível gostaria de uma luz. Tentei pesquisar os ID's possíveis, não encontrei nenhum compatível.
761
? Ele não é a janela de proteção do projeto, é o ID2578
que é o que chama as propriedades do projeto.Queria saber qual é o numero do hahaha
hein?