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 107119 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. magofeo
    magofeo
    21 novembre 2007

    Inteso come il maschio della pizza???

  2. paperino
    paperino
    23 novembre 2007

    di questo passo il pizzino diventa il figlio ... di pizzo e pizza.... Sta a vedere che c'è un nesso... E come la mettiamo con il pizzetto ?

  3. supergont
    supergont
    04 dicembre 2007

    Ciao a tutti, ho difficoltà nel seguire passo passo la procedura : qualsiasi password inserisco, il codice è sempre = 0 Evidentemente sbaglio qualcosa. 1) dopo aver aggiunto un modulo, devo copiare all'interno il codice sotto riportato.....Ovvero ?? da dove a dove ??? Eppoi , una volta che sullEditor vba visualizza/finestra immediata trovo il codice, dove va copiato ?? Grazie !!

  4. supergont
    supergont
    05 dicembre 2007

    Ciao r , mi dai una mano ??

  5. r
    r
    06 dicembre 2007

    la finestra immediata visualizzerà la password che è stata usata per sproteggere il foglio ...

  6. catalyst
    catalyst
    10 dicembre 2007

    End Sub = glu glu glu... e ho detto tutto. Ehi, guru, e... l'articolo?

  7. catalyst
    catalyst
    10 dicembre 2007

    (ora ne posto uno io, va! Così, di getto, tanto per...)

  8. 02 giugno 2008

    come aggiungere il modulo se vba è protetto

  9. hitec
    hitec
    27 settembre 2008

    Esatto.... come si aggiunge un modulo se il VBA è protetto

  10. longanimita
    longanimita
    24 giugno 2009

    GRAZIE!!!!!!!!!!!!!!!!!!!!! Funziona!!!!

 
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