Password su cartella

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.