Proteggere un excel con VBA

Question

Ciao a tutti,

sono un principiante in VBA... sto cercando di creare un excel che faccia un'estrazione, tipo numeri del lotto, e poi venga "congelato", in pratica deve permettere l'estrazione una sola volta.

Ho creato le macro, funziona tutto, mi manca la "protezione". In pratica dopo aver cliccato il pulsante che lancia la sub, mi serve un comando che protegge l'excel e:

• impedisce di cliccare di nuovo il pulsante
• impedisce di modificare qualunque cella, in tutti i 3 sheet
• permette però di salvare l'excel "protetto" per poterlo riguardare in futuro

il comando di protezione immagino va a settare una password. Posso anche impedire che qualcuno vada a leggere il codice vba, trova la password e sprotegge l'excel ???

grazie !!

Answer 1

Buongiorno, Sergio,

benvenuto in MS Q&A ed excel VBA.

Proprio come puoi proteggere con password cartelle di lavoro e fogli di lavoro, puoi proteggere con password una macro in Excel affinché venga visualizzata (ed eseguita).

Inserisci un pulsante di comando nel tuo foglio di lavoro e aggiungi le seguenti righe di codice:

1. Innanzitutto, crea una semplice macro che desideri proteggere.

Range("A1").Value = "This is secret code"

2. Successivamente, fare clic su Strumenti, Proprietà VBAProject.

3. Nella scheda Protezione, seleziona "Blocca progetto per la visualizzazione" e inserisci due volte una password.

4. Fare clic su OK.
5. Salva, chiudi e riapri il file Excel. Prova a visualizzare il codice.

Apparirà la seguente finestra di dialogo:

Puoi ancora eseguire il codice facendo clic sul pulsante di comando ma non puoi più visualizzare o modificare il codice (a meno che tu non conosca la password).

6. Se si desidera proteggere con password l'esecuzione della macro, aggiungere le seguenti righe di codice:

Dim password As Variant
password = Application.InputBox("Enter Password", "Password Protected")

Select Case password
	Case Is = False
		'do nothing
	Case Is = "easy"
		Range("A1").Value = "This is secret code"
	Case Else
		MsgBox "Incorrect Password"
End Select

Risultato quando si fa clic sul pulsante di comando sul foglio:

Spiegazione: La macro utilizza il metodo InputBox dell'oggetto Application. Se l'utente fa clic su Annulla, questo metodo restituisce False e non accade nulla (InputBox scompare). Solo quando l'utente conosce la password ("sempre facile") verrà eseguito il codice segreto. Se la password inserita non è corretta, viene visualizzato un MsgBox. Tieni presente che l'utente non può controllare la password nell'editor di Visual Basic perché il progetto è protetto dalla visualizzazione.

spero che questa informazione aiuta

Saluti,

Giordano

Answer 2

Grazie per la risposta Yordan. Questo risolve la mia ultima domanda (proteggere il codice) però ho ancora bisogno dei comandi VBA che permettono di proteggere anche tutti i fogli di tutto l'excel in modo che non si possano sovrascrivere... e che non si possa nemmeno più usare una seconda volta il pulsante di estrazione.