Como fazer um codigo vba macro que delete todo o projeto caso a senha do projeto seja quebrada

Question

ola amigos do excel venho ate vos novamente pra tentar resolver uma duvida que me aflige:
Como fazer um codigo vba macro que delete todo o projeto caso a senha do projeto seja quebrada, sabe? aquele processo usando o 7zip e o hexedit? eu encontrei alguns exemplos antigos na net de mais ou menos uns dez anos atras e por mais que eu tente nao consigo fazer eles funcionarem nas minhas planilhas (uso EXCEL 2016 64bits). se alguem puder me dar uma luz eu agrade&ccedil;o

Answer

Cara esse tipo de esfor&ccedil;o &eacute; perca de tempo.

Se nao habilitar macros sua seguran&ccedil;a ja era.

Seguran&ccedil;a em Excel &eacute; o mesmo que colocar a chave embaixo do tapete com um aviso na porta.

Se ate o Windows, o Office sao pirateados, imagina uma planilha de excel.

N&atilde;o perca seu tempo com isso.

Answer

marcelo! depois de haver postado o topico eu continuei minhas buscas pela net. e olhando aqui e ali. consegui montar um codigo que caso seja aberta a planilha sem que o projeto esteja protegido ele simplesmente deleta todos os codigos do projeto, e para evitar que a planilha seja fechado sem que o codigo esteja protegido eu usei um codigo que faz o bloqueio antes de salvar. como eu sei que aquela quebra de senha que usa o 7zip e o hexedit precisa que em algum momento o projeto seja salvo entao ele vai salvar e colocar senha novamente.. caso ainda assim alguem consiga abrir ele sem que esteja protegido a macro de abertura ira apagar todos os codigos. 
segue abaixo o codigo que deve estar em EstaPastaDeTrabalho
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
ThisWorkbook.Close
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

SendKeys %{F11}, True

VBProject.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute

SendKeys ^({TAB})
SendKeys  
SendKeys {+}

SendKeys {TAB} & 2997925 & {TAB} & 2997925 & ~, True

SendKeys %q

End Sub

Private Sub Workbook_Open()

Dim i As Long, Protected_ As Boolean, Text1 As String, Text2 As String, Text3 As String

On Error Resume Next
ActiveWorkbook.VBProject.References.AddFromGuid GUID:={0002E157-0000-0000-C000-000000000046}, Major:=5, Minor:=3
On Error GoTo 0
If ActiveWorkbook.VBProject.Protection = 1 Then 'use 1 instead of vbext_pp_locked
    Protected_ = True
ElseIf ActiveWorkbook.VBProject.Protection = 0 Then 'use 1 instead of vbext_pp_none
    Protected_ = False

Dim Component As Object

' AQUI DELETA TODOS MODULOS DO VBA
                        For Each Component In ActiveWorkbook.VBProject.VBComponents
                              With Component.CodeModule
                                    .DeleteLines 1, .CountOfLines
                              End With
                        Next

End If
End Sub

se alguem tiver um conselho para refinar o codigo e ou melhorar eu agrade&ccedil;o. assim como se alguem tambem encontrar alguma falha  e quiser me avisar tambem agrade&ccedil;o

Answer

Uma falha!!

Experimente  nao habilitar macros e quebrar a senha.

Answer

na verdade vou inserir esse codigo em um projeto que funciona totalmente com um unico formulario multipage entao se ele quiser ter a funcionalidade tera que ativar sempre a execu&ccedil;ao das macros. certo?

Answer

[QUOTE=lindao da mamae, post: 8066805, member: 1210141]na verdade vou inserir esse codigo em um projeto que funciona totalmente com um unico formulario multipage entao se ele quiser ter a funcionalidade tera que ativar sempre a execu&ccedil;ao das macros. certo?[/QUOTE]

acho massa gente cabe&ccedil;a dura ... bicho ... ja te falaram q n&atilde;o rola .. &Eacute; nessas horas que tor&ccedil;o  para que o conte&uacute;do  seja ou ilegal ou super confidencial,  s&oacute; pra ver o cidad&atilde;o se lascar todo ... a&iacute;  aprende a escutar os mais experientes  !!!

Answer

valeu pelo conselho meu chapa. mas vou continuar tentando dificultar ao maximo que fu&ccedil;em no meu codigo. ilegal nao &eacute; pois eu usei partes de codigos disponiveis na net, principalmente aqui nesse forum, fora os que eu montei de cabe&ccedil;a. confidencial tambem nao &eacute;  e quando estiver pronto ai sim os dados que as planilhas terao para mim serao importantes entao se alguem um dia pegar minha planilha. ....
agora.. eu pensei tambem em ocultar as planilhas com senha e sempre que abrir o arquivo o formulario sera aberto automaticamente. assim para visualizar as planilhas sera necessario ativar a visualiza&ccedil;ao das macros e vou implementar o codigo para que alem de apagar as macros tambem apague os dados da planilha .

Answer

[QUOTE=lindao da mamae, post: 8066959, member: 1210141]
agora.. eu pensei tambem em ocultar as planilhas com senha e sempre que abrir o arquivo o formulario sera aberto automaticamente. assim para visualizar as planilhas sera necessario ativar a visualiza&ccedil;ao das macros e ...[/QUOTE]

logico que n&atilde;o jovem, se vc tem um form para desocultar vc tem um codigo para ocultar, logo se algu&eacute;m abrir a planilha sem macro, ele vai ter uma planilha com todas as guias no default ...  que &eacute; n&atilde;o ocultas.

Answer

[USER=1210141]@lindao da mamae[/USER]  vamos fazer o seguinte:

Coloque um codigo qualquer em uma planilha VBA junto com a sua sugestao de seguran&ccedil;a.

Vou Quebrar a senha e postar seu codigo.

Pra quebrar seu galho, vou explicar!

[USER=832313]@Mauriciodez[/USER] o mais engra&ccedil;ado &eacute; ele pedir conselhos, e nao ouvir, e nem testar o se sugeriu.

PS: Cuidado para vc nao ser vitima do seu proprio veneno. Pense!

Answer

[QUOTE=Marcelo G Prudencio, post: 8067303, member: 985322][USER=1210141]@lindao da mamae[/USER]  vamos fazer o seguinte:

Coloque um codigo qualquer em uma planilha VBA junto com a sua sugestao de seguran&ccedil;a.

Vou Quebrar a senha e postar seu codigo.

Pra quebrar seu galho, vou explicar!

[USER=832313]@Mauriciodez[/USER] o mais engra&ccedil;ado &eacute; ele pedir conselhos, e nao ouvir, e nem testar o se sugeriu.

PS: Cuidado para vc nao ser vitima do seu proprio veneno. Pense![/QUOTE]
oi amigo conseguiu? foi dificil? me passa os procedimentos que voce usou. foi hard ou facil? se foi facil entao devo aprimorar mais um pouco meus conhecimentos em vba antes de colocar no meu curriculo.

Answer

[QUOTE=lindao da mamae, post: 8104279, member: 1210141]oi amigo conseguiu? foi dificil? me passa os procedimentos que voce usou. foi hard ou facil? se foi facil entao devo aprimorar mais um pouco meus conhecimentos em vba antes de colocar no meu curriculo.[/QUOTE]
Conseguiu o que amigo?

Vc nao postou nenhuma planilha.

Continuo aguardando.

Answer

foi mal me desculpa agora vai a planilha...

Answer

Isso &eacute; o suficiente ou precisa de mais codigos

Sub atualiza_form_compras() 'carrega a listbox da aba compras com os dados da tabela ordem
Application.ScreenUpdating = False
Dim W As Worksheet
Dim j As Double
Set W = Sheets(ordem)
j = 0
classificar_notas
frmnota.list_compras.Clear
Do While W.Range(A2).Offset(j, 0).Value  
    If W.Range(A2).Offset(j, 3).Value = C Then
        With frmnota.list_compras
            .AddItem
            .List(i, 0) = W.Range(A2).Offset(j, 0).Value
            .List(i, 1) = W.Range(A2).Offset(j, 1).Value
            .List(i, 2) = W.Range(A2).Offset(j, 2).Value
            .List(i, 3) = W.Range(A2).Offset(j, 3).Value
            .List(i, 4) = W.Range(A2).Offset(j, 4).Value
            .List(i, 5) = W.Range(A2).Offset(j, 5).Value
            .List(i, 6) = W.Range(A2).Offset(j, 6).Value
            .List(i, 7) = W.Range(A2).Offset(j, 7).Value
            .List(i, 8) = W.Range(A2).Offset(j, 36).Value
            i = i + 1
        End With
    End If
    j = j + 1
Loop
Application.ScreenUpdating = True
End Sub
Sub atualiza_form_vendas() 'carrega a listbox da aba vendas com os dados da tabela ordem
Application.ScreenUpdating = False
Dim W As Worksheet
Dim j As Double
Set W = Sheets(ordem)
j = 0
classificar_notas
frmnota.list_vendas.Clear
Do While W.Range(A2).Offset(j, 0).Value  
    If W.Range(A2).Offset(j, 3).Value = V Then
        With frmnota.list_vendas
            .AddItem
            .List(i, 0) = W.Range(A2).Offset(j, 0).Value
            .List(i, 1) = W.Range(A2).Offset(j, 1).Value
            .List(i, 2) = W.Range(A2).Offset(j, 2).Value
            .List(i, 3) = W.Range(A2).Offset(j, 3).Value
            .List(i, 4) = W.Range(A2).Offset(j, 4).Value
            .List(i, 5) = W.Range(A2).Offset(j, 5).Value
            .List(i, 6) = W.Range(A2).Offset(j, 6).Value
            .List(i, 7) = W.Range(A2).Offset(j, 7).Value
            .List(i, 8) = W.Range(A2).Offset(j, 36).Value
            i = i + 1
        End With
    End If
    j = j + 1
Loop
Application.ScreenUpdating = True
End Sub

Sub atualiza_form_vendas_descoberto()
Application.ScreenUpdating = False
Dim W As Worksheet

Dim j As Double
Set W = Sheets(compras e vendas)
j = 0

frmnota.list_vendas_descoberto.Clear
Do While W.Range(J2).Offset(j, 0).Value  
   With frmnota.list_vendas_descoberto
            .AddItem
            .List(i, 0) = W.Range(J2).Offset(j, 0).Value
            .List(i, 1) = W.Range(J2).Offset(j, 1).Value
            .List(i, 2) = W.Range(J2).Offset(j, 2).Value
            .List(i, 3) = W.Range(J2).Offset(j, 3).Value
            .List(i, 4) = W.Range(J2).Offset(j, 4).Value
            .List(i, 5) = W.Range(J2).Offset(j, 5).Value
            .List(i, 6) = W.Range(J2).Offset(j, 6).Value
            .List(i, 7) = W.Range(J2).Offset(j, 7).Value
            i = i + 1
        End With
    j = j + 1
Loop
Application.ScreenUpdating = True

End Sub
Sub atualiza_form_comven()
Application.ScreenUpdating = False
Dim W As Worksheet

Dim j As Double
Set W = Sheets(compras e vendas)
j = 0

frmnota.list_comven.Clear
Do While W.Range(S2).Offset(j, 0).Value  
   With frmnota.list_comven
            .AddItem
            .List(i, 0) = W.Range(S2).Offset(j, 0).Value
            .List(i, 1) = W.Range(S2).Offset(j, 1).Value
            .List(i, 2) = W.Range(S2).Offset(j, 4).Value
       
            .List(i, 3) = W.Range(S2).Offset(j, 5).Value
            .List(i, 4) = W.Range(S2).Offset(j, 6).Value
            .List(i, 5) = W.Range(S2).Offset(j, 7).Value
            .List(i, 6) = W.Range(S2).Offset(j, 8).Value
            .List(i, 7) = W.Range(S2).Offset(j, 13).Value
              .List(i, 8) = W.Range(S2).Offset(j, 14).Value
               .List(i, 9) = W.Range(S2).Offset(j, 15).Value
            i = i + 1
        End With
    j = j + 1
Loop
Application.ScreenUpdating = True

End Sub
Sub atualiza_form_frma&ccedil;oes()
Application.ScreenUpdating = False
Dim W As Worksheet
Dim j As Double, i As Double
Set W = Sheets(catalogo)
j = 0
i = 0
frma&ccedil;oes.lista_dados_a&ccedil;oes.Clear
Do While W.Range(A2).Offset(j, 0).Value  
    With frma&ccedil;oes.lista_dados_a&ccedil;oes
    .AddItem
    .List(i, 0) = W.Range(A2).Offset(j, 0).Value
    .List(i, 1) = W.Range(A2).Offset(j, 1).Value
    .List(i, 2) = W.Range(A2).Offset(j, 2).Value
    .List(i, 3) = W.Range(A2).Offset(j, 3).Value
    .List(i, 4) = W.Range(A2).Offset(j, 4).Value
    .List(i, 5) = W.Range(A2).Offset(j, 5).Value
            i = i + 1
        End With
    j = j + 1
Loop
       frma&ccedil;oes.lblquant_itens = foram encontrados  & frma&ccedil;oes.lista_dados_a&ccedil;oes.ListCount &  itens

Application.ScreenUpdating = True
End Sub

Se vc quiser eu coloco o restante do projeto tb.

Answer

Acho que alguem desistiu do topico!!!

[USER=1210141]@lindao da mamae[/USER]

Ferramentas

Mover Tópico