Prikazi cijelu temu 24.02.2021 13:21
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Re: Excel - pomoc
fakat je skriven list Baza, to je list20. Skriveni su listovi od 20 do 26.
Dobro je to Amela primjetila. Vjerojatno zenska intuicija, a sta bi drugo bilo.

Uglavnom. Otvorim ja excel dokument pa u vba, onda kliknem na taj list i u propertisu stavim na visible.
sada kada odem na njega trazi me password za gledati. Sav je plav kao more. nista se nevidi

Onda ubacim u njega kod

PreuzmiIzvorni kôd (Text):
  1. Sub PasswordBreaker()
  2.     'Breaks worksheet password protection.
  3.  
  4.     Dim i As Integer, j As Integer, k As Integer
  5.     Dim l As Integer, m As Integer, n As Integer
  6.     Dim i1 As Integer, i2 As Integer, i3 As Integer
  7.     Dim i4 As Integer, i5 As Integer, i6 As Integer
  8.  
  9.     On Error Resume Next
  10.  
  11.     For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
  12.     For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
  13.     For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
  14.     For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
  15.  
  16.         ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
  17.             Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
  18.             Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
  19.  
  20.         If ActiveSheet.ProtectContents = False Then
  21.             MsgBox "Password is " & Chr(i) & Chr(j) & _
  22.                 Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
  23.                 Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
  24.  
  25.             Exit Sub
  26.  
  27.         End If
  28.  
  29.     Next: Next: Next: Next: Next: Next
  30.     Next: Next: Next: Next: Next: Next
  31. End Sub
  32.  
  33. pokrenem sa F5 i pricekam jedno par minuta.

sada se vratim na njega, ne unosim password samo gledam . Ima zbrajanja i sve ostaloga.
Trebalo bi maknuti ispunu i slova staviti da biudu crna.
Eto toliko ja znam, neznam vise.







probao sam ucitati i u google , tamo nemoram unositi kod google mi razbije sifru
evo ovako izgleda kada ucitam u google



Jedino ja mislim da bi Dex to znao rijesiti u potpunosti, ali ko zna di je on? neznam jeli popio svu onu rakiju sto je ispeko?
hehehe
zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 24.02.2021 13:23 od strane Avko.