Excel tabela ima password

Član
Učlanjen(a)
12.09.2009
Poruka
69
Pitanje i pomoc

Imam MS Office 2013, nesto sam radio u Excelu onda sam preuzmem sa Microsofta tabelu ..... Porodični budžet1.xlsx, ona je lepo napravljena i uredjena, samo je za gledanje nista ne mozes u njoj mijenjati zato sto ima password, u VBA Project. workbook / proprerties.

Pitanje: kako skiniti password, da ta tabela bude od koristi.

Pozdrav.
 
Član
Učlanjen(a)
26.07.2012
Poruka
455
Skinuo sam tablicu sa ovog linka

Kod:
http://office.microsoft.com/sr-latn-cs/templates/porodicni-mesecni-budzet-TC010188408.aspx

ne znam da li je to ta tablica ali meni sve šljaka kako treba!

pozz!
 
Član
Učlanjen(a)
12.09.2009
Poruka
69
Hvala za odgovor, nisi preuzeo pravi moras naci Porodicni budzet1. probaj tu tabelu. ..
Pozdrav.
 
Učlanjen(a)
31.12.2010
Poruka
9
password u excelu nije teško probiti jer se koristi jednostavan hash, pojednostavljeno "checksum" iako to zapravo nije.
Metoda probijanja je da se kombinacijom nasumičnog stringa koji se samo sastoji od slova "a" i "b" pronađe checksum koji je isti checksumu originalnog passwords. Za to postoje makro naredbe koje tako rade.
 
MODERATOR
Učlanjen(a)
17.11.2012
Poruka
3.042
Kod:
Sub PasswordBreaker()
  'Author unknown but submitted by brettdj of www.experts-exchange.com

  Dim i As Integer, j As Integer, k As Integer
  Dim l As Integer, m As Integer, n As Integer
  Dim i1 As Integer, i2 As Integer, i3 As Integer
  Dim i4 As Integer, i5 As Integer, i6 As Integer
  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 "One usable password is " & Chr(i) & Chr(j) & _
          Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
          Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
   ActiveWorkbook.Sheets(1).Select
   Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
          Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
          Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
       Exit Sub
  End If
  Next: Next: Next: Next: Next: Next
  Next: Next: Next: Next: Next: Next


End Sub

Ovo bi trebalo da odradi posao...
 
Učlanjen(a)
27.09.2010
Poruka
10
Na netu mozes naci monogo programa koji skidaju passworde iz MS office fileova i PDF.
 
Top