Inserire password

  • Immettere password di K@rlo
    Salve.
    nella macro sotto riportata vi è la funzione di pulire un archivio fatture.
    ora vorrei rendere l'archivio più sicuro, quindi vorrei includere la possibilità di inserire una password per evvitare problemi di cancellazione non voluta.
    la macro attualmente ha un solo un grado di protezione, volevo quindi imporre la password prima della richiesta "vuoi cancellare tutto l'archivio delle fatture ?", per impedire errori di invio.
    grazie a tutti.
     
    '
    Sub Azzera_Archivio_Fatture()
    risposta = MsgBox("Vuoi cancellare tutto l'Archivio delle Fatture ?", 4 + 16, "Attenzione!")
    If risposta = vbYes Then
    Sheets("Archivio_Fatture").Select
    Sheets("Archivio_Fatture").Range("a2:iv16000").Delete
    Sheets("Archivio_Fatture").Range("a2:iv16000").Font.ColorIndex = xlColorIndexAutomatic
    Sheets("Archivio_Fatture").Range("a2:iv16000").Interior.ColorIndex = xlColorIndexNone
    Sheets("Archivio_Fatture").Cells(2, 1) = "FINE ARCHIVIO"
    ' Colore FINE ARCHIVIO
    Sheets("Archivio_Fatture").Cells(2, 1).Font.ColorIndex = 9
    Sheets("Archivio_Fatture").Select 'Ritorno alla cella A2
    Range("A2").Select ''
    End If
    Sheets("Formule").Select
    Sheets("Formule").Cells(15, 1) = "1"
    Sheets("Archivio_Fatture").Select
    End Sub

    Per karlo di Apoben64
    Ciao karlo, penso che magari puoi trovare una soluzione efficace andando a guardare questa lezione che trovi in questo link
    protezione :
    http://ennius.altervista.org/mike/procedure/mikevba114.htm
    un saluto luca

    di Big ronnie
    Ciao karlo,
    quarda se questo codice ti va bene.devi dare un nome alla password che io ho chiamato password.
     
    Sub Azzera_Archivio_Fatture()
    risposta = MsgBox("Vuoi cancellare tutto l'Archivio delle Fatture ?", 4 + 16, "Attenzione!")
    If risposta = vbYes Then
    Password = InputBox("Inserire Password", "Richiesta Password")
    If Password = "Password" Then
    Sheets("Archivio_Fatture").Range("a2:iv16000").Clear
    Sheets("Archivio_Fatture").Cells(2, 1) = "FINE ARCHIVIO"
    ' Colore FINE ARCHIVIO
    Sheets("Archivio_Fatture").Cells(2, 1).Font.ColorIndex = 9
    Sheets("Archivio_Fatture").Range("A2").Select  'Ritorno alla cella A2
    Else
    Exit Sub
    End If
    End If
    Sheets("Formule").Select
    Sheets("Formule").Cells(15, 1) = "1"
    Sheets("Archivio_Fatture").Select
    End Sub

    Ciao big ronnie di Apoben64
    Mi sembra che nel codice non hai previsto il caso della password sbagliata .

    di Big ronnie
    Ciao luca, nel caso fosse sbagliata la password si uscirebbe dalla sub non modificando nulla.nell'if interno c'è l'istruzione else exit sub

    Hai ragione ! di Apoben64
    Scusami , di solito per evidenziare i possibili errori di digitazione uso l'istruzione goto che mi riporta ad un messaggio di errore e mi riconsente di ridigitare la password qualora fosse sbagliata.
    grazie comunque e scusa se ti ho ridisturbato ! luca

    Dimenticavo di Apoben64
    Caro big ronnie volevo ringraziarti per la professionalità con cui stai seguendo il forum , mi farebbe piacere prossimamente che potessi condivivere con me alcuni lavori che ho improntato a beneficio di chi ci segue . grazie ancora e ciao

    di Big ronnie
    Scrivere del codice nel modo da me scritto è sbagliato. normalmente uso fare dei rientri per ogni ciclo o condizioni if in modo da rendere il tutto + intuitivo.se vorrai sarò ben felice di condividere le tue idee.ciao alla prossima

    Pensiero di Apoben64
    Scusa ancora , ma non volevo correggere il tuo codice o il modo con cui l'hai scritto , lungi da me; e mi spiace che tu dici : ho sbagliato .la mia violeva essere una semplice osservazione.
    però tengo a precisarti che per quanto mi riguarda questo è un forum anche di confronto e non solo di singole verità.
    buona serata big ronnie .

    di Roberto
    Grazie per il lavoro che state facendo per noi e per il sito...




    mandi roberto

    di K@rlo
    Grazie a tutti per l'aiuto, ora provo i vs. consigli e poi vi faccio sapere.
    grazie ancora.

    di K@rlo
    Grazie a tutti, non pensavo che con un semplice inputbox si potesse immetere una password, non ci avevo pensato, eppure inputbox lo uso spesso.
    grazie ancora, ora le macro di archiviazione sono più sicure dalle cancellature involontarie.