Lomb.it - V.040 Forum - Contatti - Mappa del sito - Login 
 Registrazione


 Lomb.it
Quiz di matematica
Lomb.it
Monete
Quiz di logica
Indovinelli puri
Linguistica
Quiz grafici
Cronaca e riflessioni
Situazioni ... possibili
Cinema tv e personaggi
Viaggi e vacanze
Cultura generale
Quiz geografici
Geometria
Canzoni e musica
Poesie e racconti
Sesso e dintorni
Quizzone
Giochi online
Pomologia e dintorni
 Vedi anche
ricerca disperata
Massimo for President
Concorso fotografico oltrep˛ pavese 2014
Germania Argentina - pronostico finale
Foto recuperate
Pesca di Beneficenza - Casanova Lonati 2012
Vorrei sapere...
Buon Natale 2011
Halloween da un altro punto di vista
EhilÓ LOMBs!
Concorso Fotografico "Paesaggi e scorci dell'Oltrepo" 2014
Manifesto lomb.it versione 0.41
AUGURI !!!!
domani
san valentino
per la domenica
in comune
nuovo oggetto (antico)
2011
lista desiderii
 
L'Autore
R ha pubblicato su Lomb.it 100 articoli tra il 26/11/2005 ed il 26/10/2011.

 
L'articolo
Questo articolo Ŕ stato scritto il 19/11/2007 e fa parte della sezione lomb.it.

 
Le Statistiche
Dalla pubblicazione ad oggi, questa pagina ha ricevuto 110357 visite (22/g.) e 69 commenti.

 
Links
Successivo
Precedente
Stesso autore

 Sproteggere Excel ... presto fatto

  Come giÓ anticipato nel forum negli ultimi 2 anni mi sono dedicato molto alla programmazione in vba di excel, word e access ... ieri notte mi sono dedicato allo studio di una macro per sproteggere i fogli di lavoro excel protetti da password ... ho fatto diverse scoperte interessantissime.
Da quanto vedrete lanciando la macro che ho riportato qui sotto si capisce che quando scriviamo una password, questa viene codificata con un sistema pi¨ semplice nel caso appunto un sistema binario (ma non solo).
La cosa curiosa e che se proteggo per esempio con "lomb" ... potr˛ sproteggere oltre che digitando appunto la password anche con altre stringhe (1,2 o anche pi¨).
Adesso Ŕ lampante una domanda:
perchŔ codificare una password con un sistema che la rende vulnerabile?
Non ho la risposta ... ma alcune ipotesi:
1) questione di memoria da destinare al salvataggio della psw (potrebbe essere ma sembra strano considerando l'immensitÓ di dati che si possono salvare in una cartella di lavoro ... sembra proprio ridicolo)
2) un errore dei programmatori? (dubito!)
ho una terza ipotesi che secondo me Ŕ anche la pi¨ ingegnosa ... ma voglio prima sentire cosa ne pensate voi.
saluti
r
per eseguire la macro Ŕ sufficente
abbassare il livello di protezione delle macro a medio (strumenti/macro/protezione e selezionare medio)
aprire l'editor di visual basic (alt+F11) da una qualsiasi cartella excel. Nell'Editor:
visualizzare il progetto (menu visualizza/gestione progetti)
aggiungere un modulo (menu inserisci/modulo)
copiare all'interno del modulo il codice che ho riportato qui sotto
poi ....
proteggete il foglio excel con password
per sproteggere andate sul menu strumenti (di excel) selezionate macro e ancora macro scegliete sproteggi e infine esgui.
dopo che la cartella sarÓ sprotetta tornando sullEditor vba visualizza/finestra immediata troverete il codice che ha sprotetto il foglio.

'questo sotto va copiato in blocco e incollato nel modulo
Sub sproteggi()
'la macro ha l'intento di sproteggere un foglio
'protetto con psw
'e fino a prova contraria funziona alla grande
Dim arr01(9999999) As Variant 'matrice dei numeri

Dim val As Double
Dim a As Integer
Dim pss As String
Dim harr As Long, c As Long

On Error Resume Next

val = 0
For a = 48 To 57
pss = Chr(a)
ActiveSheet.Unprotect Password:=pss
'ActiveWorkbook.Unprotect password:=pss
'per sproteggere la cartella
'Debug.Print pss & Chr(10)
If ActiveSheet.ProtectContents = False Then
MsgBox "Il foglio Ŕ sprotetto"
Debug.Print pss
Exit Sub
End If
arr01(val) = CStr(pss)
val = val + 1
Next a

For Each matval In arr01()
For c = 0 To 1
pss = arr01(c) & matval
ActiveSheet.Unprotect Password:=pss
'ActiveWorkbook.Unprotect password:=pss
'per sproteggere la cartella
'Debug.Print pss & Chr(10)
If ActiveSheet.ProtectContents = False Then
MsgBox "Il foglio Ŕ sprotetto"
Debug.Print pss & Chr(10)
Exit Sub
End If

arr01(val) = CStr(pss)
val = val + 1
Next c
Next
End Sub

 
Commenti

  1. adidas superstar
    adidas superstar
    04 gennaio 2019

    Exceptional post however , I was wondering if you could write a litte more on this topic? I'd be very grateful if you could elaborate a little bit further. Thanks! adidas superstar vs originals https://www.abridespins.com/actus.asp?UID=71607&cname=adidas%20superstar%20vs%20originals

  2. superstar adidas
    superstar adidas
    09 gennaio 2019

    Hi just wanted to give you a quick heads up and let you know a few of the pictures aren't loading properly. I'm not sure why but I think its a linking issue. I've tried it in two different browsers and both show the same outcome. superstar adidas kopen https://www.abridespins.com/actus.asp?UID=73952&cname=superstar%20adidas%20kopen

  3. tissot t001520 a
    tissot t001520 a
    28 settembre 2020

    s, results and live match commentarySanchez, who was seen smirking during the Liverpool game, came on in the second half when the Gunners were 2-0 down, and struggled to contain his frustration after the final whistle. tissot t001520 a https://elsafatools.com/sell.asp?cid=794&shop=tissot+t001520+a&xi=5&xc=24&pr=88.99&you=0

  4. Georgepar
    Georgepar
    12 dicembre 2020

    Drug information leaflet. Short-Term Effects. buy modafinil Everything information about pills. Get information now.

  5. DavidXzd
    DavidXzd
    13 dicembre 2020

    Meds prescribing information. Short-Term Effects. macrobid without dr prescription https://macrobid4u.top in the USA Actual about meds. Get now.

  6. DaDeew
    DaDeew
    13 dicembre 2020

    Pills information for patients. What side effects can this medication cause? order furosemide https://furosemide4u.top in the USA All what you want to know about pills. Get here.

  7. LarryDeali
    LarryDeali
    14 dicembre 2020

    Pills information. Cautions. cost of generic allegra All about medication. Read information now.

  8. 30 giugno 2021

    oS7NaN Way cool! Some extremely valid points! I appreciate you writing this post plus the rest of the website is very good.

  9. Victor
    Victor
    20 settembre 2021

    Hurrah, that_s what I was looking for for, what a details! existing in this articleat this Web site, many thanks admin of the Web content.

  10. Emanuel
    Emanuel
    26 settembre 2021

    Thanks for types marvelous publishing! I actually appreciated looking at it, you happen to generally be an incredible author.I will you'll want to bookmark your site and will finally come back afterward. I wish to stimulate proceed your wonderful posts, Use a wonderful evening!

 
Aggiungi un commento all'articolo
Nick

Se vuoi firmare un commento con il tuo nick devi autenticarti: Login
 
 

 Ricerca nel sito

 Ultimi commenti
Vecchio forum
Incipit
Ciaoooo
Tracking euro
Satellite
"pronto, papero?"
Ispettore geppo
Concorso di idee per presepe vivente
Gara di pesca
La legge non Ŕ uguale per tutti
Figli
N.14 - legame di partentela
Scatole e palline
L'auto da rottamare
Delitto in lomb.it
E la vecchietta
Indovinello secentesco
Catalogando catalogando....
Tre indovinelli sui gatti
Indovina la commedia
Cinema 4:
Fiat?
Allarme rosso !!!
Quiz della mezzanotte
C.s.i. - londra
 Accadde oggi
'11 Furti al supermercato
'10 nuovo personaggio
'08 C'era una volta... (palline bianche e nere)
'07 pista ciclabile ...
'06 oggetto misterioso
'05 Quizzone 2005
'04 4 Passi a piedi
'03 chi? che cosa?
Lomb.it - dal 2001 divertire, comunicare, riflettere