Desproteger Livro Excel
Protegeu a sua folha ou livro de excel e esqueceu-se da senha?
Tem um livro de excel que se encontra protegido e precisa ver as fórmulas mas não sabe a senha?
Então, neste artigo, poderemos ver com hackear um ficheiro excel de forma simples.
Lembre-se sempre: use o seu conhecimento para o bem! 😉 e com responsabilidade 👨⚖️
O Código funciona em versões de Excel anteriores a 2010, mas nada que não se consiga resolver .
Se o ficheiro protegido for de uma versão recente ou posterior a 2003, basta fazer-se o seguinte:
1° Guarde o seu ficheiro no formato 97-2003.
Clique no separador “Arquivo”, depois clique em “Salvar como” e selecione a opção “Pasta de trabalho do Excel 97-2003”
Depois do ficheiro guardado numa versão suportada, segue-se o desbloqueio 🙃.
Para proceder ao desbloqueio, abrimos o ficheiro, carregamos nas teclas “Alt+F11” para abrir o VBE, o editor de códigos do Excel. De seguida, carregamos em “Inserir” e selecionamos “Módulo”.
Por fim, basta copiar o código abaixo e colar dentro do módulo que criamos:
Sub DesbloquearFolhaExcel()
On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox “Folha de Excel desprotegida com sucesso!”, vbInformation
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
O impacto da Impressão em Série Word (VBA)
O código a seguir, guarda em Word e em PDF documento a documentos de um ficheiro de impressão em série.
Copie o código abaixo e cole em VBA no Microsoft Word, para abrir o Editor Visual Basic Applications: (Alt+F11) ou lado direito do rato no separador(friso), personalizar separador e depois seleccionar Programador.
Sub Guardar_Imprimir_Individualmente()
‘Separa um registo de um ficheiro de impressão em série de cada vez para a pasta escolhida
Application.ScreenUpdating = False
Dim StrFolder As String, StrName As String, MainDoc As Document, i As Long
Set MainDoc = ActiveDocument
With MainDoc
StrFolder = .Path & “”
For i = 1 To .MailMerge.DataSource.RecordCount
With .MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = i
.LastRecord = i
.ActiveRecord = i
StrName = .DataFields(“Partners”)
End With
.Execute Pause:=False
End With
With ActiveDocument
.SaveAs2 FileName:=StrPath & StrName & “.docx”, FileFormat:=wdFormatXMLDocument, AddToRecentFiles:=False
‘ and/or:
.SaveAs2 FileName:=StrPath & StrName & “.pdf”, FileFormat:=wdFormatPDF, AddToRecentFiles:=False
.Close SaveChanges:=False
End With
Next i
End With
Application.ScreenUpdating = True
End Sub
PowerApp Adicionar e Ler PDF
Incorporar documentos PDF no Powerapps
Para inserir um PDf na Aplicação Powerapp é necessario criar um fluxo.
O fluxo de automatização da Microsoft que permite tudo isto é tão simples como se segue:
Fluxo PowerAutomate:
- É necessário criar um Fluxo instantâneo a partir do Powerapps. Comecei com um fluxo em branco e depois adicionei a ação “PowerApps – Trigger”
1.É necessário criar um Flow que possa correr de forma instantanea a partir do PowerApps. Comecei com um Fluxo em branco e adicionei a ação “PowerApps – Trigger” para começar.
2. Sharepoint – Get file content using path, aqui coloquei o caminho do ficheiro onde se encontra o PDF, depois de carregar onde diz “Ask in PowerApps”, temos o getfilecontent…
3. Resposta ao PowerApps, na verdade, só precisamos retornar as informações de arquivo corretas que o controle do Power Apps PDF Viewer entende.
Para que o valor do parâmetro do arquivo PDF retorne ao PowerApps, selecionamos Expression e onde aparece fx, colamos a seguinte expressão:
body(‘Get_file_content_using_path’)[‘$content’]
Terminamos aqui o nosso fluxo.
No PowerApps:
Criar uma nova aplicação em PowerApps, depois disso já dentro do PowerApps, no Menu Action, vai a PowerAutomate e insere o Fluxo criado, basta carregar em cima e é inserido no PowerApps.
Na aplicação, cria um formulário com o Botão que pretende abrir o PDF e outro formulário onde vai inserir o componente PDF Viewer (Experimental).
No primeiro formulário, onde tem o Botão que vai abrir o formulário seguinte, na propriedade On Select, o código é:
Navigate( ViewPDF, ScreenTransition.None, { { selecteditem_v: “name of your pdf without extension” } )
No formulário criado, onde tem o componente PDF Viewer (Experimental), na propriedade do formulário On Visible, vou criar uma variável que oculta o controlo do PDF Viewer enquanto o fluxo é executado para retornar o conteúdo do PDF. Quando o fluxo é concluído, defino a propriedade “loading_v” de volta para false, para que o PDF fique visível.
O código aqui é:
UpdateContext({ loading_v: true }); UpdateContext({ pdf_v: ‘name of your flow’.Run( Concatenate( First( Split( selecteditem_v.Name, “.” ) ).Result, “.pdf” ) ) }); UpdateContext({ loading_v: false })
No código acima, passo o nome do arquivo para o fluxo e crio e uso uma variável “pdf_v” que conterá o conteúdo do documento PDF retornado pelo fluxo.
O objetivo da função “Split” usada no código acima é remover a extensão do nome do arquivo original do nome do documento original e depois substituí-la por um nome de extensão do arquivo “.pdf”.
Por fim, no controlo PDF Viewer, defino a propriedade “Document” como pdf_v.pdf e a propriedade Visible como !loading_v.
