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
Madame, Mago, Mister e il Sommo
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 107117 visite (27/g.) e 61 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. 07 settembre 2013

    Sno4h4 Say, you got a nice blog.Thanks Again. Awesome.

  2. 12 settembre 2013

    55mgrx Really enjoyed this post.Thanks Again. Keep writing.

  3. 24 settembre 2013

    T2voBm Thank you for your blog.Thanks Again. Great.

  4. 15 ottobre 2013

    U9iYUB Really informative post.Thanks Again. Really Great.

  5. 15 ottobre 2013

    rFz3KJ I value the article.Really thank you! Great.

  6. 24 ottobre 2013

    yIoDrU I appreciate you sharing this post.Thanks Again. Awesome.

  7. 31 ottobre 2013

    pCsyBx Really appreciate you sharing this blog article.Really looking forward to read more. Want more.

  8. 18 novembre 2013

    yEfEa1 I loved your blog article.Thanks Again. Will read on...

  9. Juda
    Juda
    28 novembre 2013

    ottima dritta!

  10. 15 dicembre 2013

    vWT70W A big thank you for your blog.Much thanks again. Keep writing.

 
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
Death-ride sull'atomium di bruxelles
Quiz di matematica
Uno squalo in piscina ...
Giochi con i fiammiferi
Hamina
Sproteggere excel ... presto fatto
Cerchi (quasi) olimpici 3
Quiz geografici
Sesso e dintorni
Bis senza rebus
Il punto l: aspirazione e massaggio
50 jahre staatsvertrag
Come costruire una meridiana
Piramide di biglie
Indovinello per catelyst e per tem
Cogito ergo internet
Come staccare i francobolli dalla busta
Che cos'e'?
Mikkeli
Un altro einstein
Monete
Gli abitanti di... si chiamano...
 Accadde oggi
'12 Terremoto nord italia
'11 Sequenza... e due!
'10 si pu˛ salutare???
'09 My interview...
'08 Ma i Paperi hanno i denti???
'07 cuori solitari
'06 Rubabandiera
'05 Foto da satellite 3
'04 Definizione di: I
Lomb.it - dal 2001 divertire, comunicare, riflettere