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 107115 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. 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 !!!!!!!!!!!!!

  2. roby
    roby
    08 settembre 2014

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

  3. 09 giugno 2015

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

  4. 01 luglio 2015

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

  5. 16 ottobre 2015

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

  6. ???????????T????
    ???????????T????
    21 novembre 2018

    I'm starting a new online blog directory and was wanting to know if I can submit your website? I'm trying to grow my directory little by little by hand so that it retains high quality. I will make sure and put your blog in the best category and I'll additionally use, "%BLOGTITLE%" as your anchor text. Be sure to let me know if this is acceptable with you by emailing me at: %EMAIL%. Many thanks ???????????T??????? https://shopee.tw/????????????????didas-??-??????????????f?-??-???-T?????-???-?????-????????-i.93557955.1644865623

  7. adidas superstar
    adidas superstar
    26 dicembre 2018

    Gday! I'm about to start my own website and was wondering if you know where the best place to acquire a website url is? I am not even sure if that's what its known as? (I'm new to this) I'm referring to "%BLOGURL%". How do I go about getting one of these for the website I'm making? Thankyou adidas superstar blanc et bleu marine https://www.abridespins.com/actus.asp?UID=19640&cname=adidas%20superstar%20blanc%20et%20bleu%20marine

  8. création adidas
    création adidas
    28 dicembre 2018

    Hi! Do you know if they make any plugins to help with SEO? I'm trying to get my blog to rank for some targeted keywords but I'm not seeing very good success. If you know of any please share. Appreciate it! création adidas https://www.soldeshuarache.fr/création%20adidas-ID2403224.html

  9. 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

  10. 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

 
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