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 105723 visite (29/g.) e 56 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. 01 aprile 2014

    MC31JE Im grateful for the blog.Thanks Again. Really Great.

  2. 11 maggio 2014

    dQ3Rua Thanks for sharing, this is a fantastic article. Really Great.

  3. 20 giugno 2014

    kj2Zjf This is one awesome blog. Really Great.

  4. 1
    1
    26 giugno 2014

    1

  5. -1'
    -1'
    26 giugno 2014

    1

  6. ettore50
    ettore50
    13 agosto 2014

    chiedo scusa ma io ho un foglio con password . Come faccio a rimuoverla se, non mi permette di immettere un Modulo ?? Le istruzioni possono andare bene solo se hai creato una password su un foglio e poi la togli, ma PROVA A RIMUOVERE UNA PASSWORD E CREARE UN MODULO SE QUELL'OGGETTO NON E MODIFICABILE . Percortesia !!!!!!!!!!!!!

  7. roby
    roby
    08 settembre 2014

    GRANDISSIMO!!! con la stessa "semplicitÓ" riusciresti a rimuovere anche la pwd da un progetto VBA?

  8. 09 giugno 2015

    Dp8cX8 Hey, thanks for the blog.Much thanks again. Much obliged.

  9. 01 luglio 2015

    Pvzxvx Thanks for sharing, this is a fantastic article post.Much thanks again. Keep writing.

  10. 16 ottobre 2015

    b21mRr A round of applause for your blog.Really thank you! Want more.

 
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
Alieni a pavia
100 euro trichet
La cupola del san raffaele
Stemma benedetto xvi
Wifi silvio berlusconi
Cinipide galligeno del castagno (dryocosmus kuriphylus)
Il cavallo di pippi
Enigma di seconda elementare
2 euro comm. italia 2007
Lomb.it
Da 1 a 100
Le forbici e la cortigiana
Indovinello... romantico
Viaggi e vacanze
Lettonia -latvia
Paradosso del mentitore
Quizzone
Death-ride sull'atomium di bruxelles
2 euro italia commemorative fao 2004
Stereogramma
Oggetto misterioso di fine estate 1
Il boa e l'aratro
3 principesse e 12 ranocchi
In attimo la visita della cattedrale non e'possibile
 Accadde oggi
'13 Foto recuperate
'11 Baaria
'10 presepe lomb.it
'08 Che moneta Ŕ?
'07 Buon compleanno cat !
'06 Tre farfalle
'05 Trama intrecciata
'04 I due saggi nella torre
'03 L'assassino
Lomb.it - dal 2001 divertire, comunicare, riflettere