[VBA-Excel] Inserire Password

[karl93]

Salve ragazzi,
Ho inserito una macro in un foglio Excel con il seguente codice:

Sub Azzeravalori() ' ' Azzeravalori Macro '  '
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    Range("C7").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveWorkbook.Save
    Range("B5").Select
End Sub

Ora vorrei inserire(oltre alle funzioni già presenti), la richiesta di una password per sbloccare. Mi potete consigliare?


Grazie in anticipo!


Ps.
Spero di non avere sbagliato sezione.

[karl93]

Nessun aiuto?

[karl93]

Ma nessuno mi può aiutare? Nessuno sa darmi un consiglio?

Ma mica ho sbagliato sezione?

[MItaly]

Non c'è bisogno di uppare ogni momento, specie visto che il thread ha appena un giorno e non mi pare che abbia rischiato di finire in seconda pagina.

[karl93]

Ok...allora aspetterò che qualcuno mi dia un consiglio!

Grazie!

[karl93]

Mi è stato detto che non devo aggiungere una Risposta alla mia discussione, perchè tanto non rischia di finire in seconda pagina; ma da quando ho aperto questa discussione, nessuno mia ha risposto con un consiglio o soluzione. Quindi vi chiedo gentilmente se è possibile avere un qualcosa per risolvere il mio problema. Grazie!

[gibra]

Non puoi usare un InputBox?

myPwd = Application.InputBox("Inserire la Password")
If myPwd <> "xyz" Then
    MsgBox "Password non valida.", vbExclamation
    Exit sub
End If

Non ho verificato, vedi se funziona.
Se non funzione guardati la guida VBA su InputBox e MsgBox.

[karl93]

Ho inserito in questo modo:

Sub Azzeravalori() ' ' Azzeravalori Macro '  '
    ActiveSheet.Unprotect
    Cells.Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    Range("C7").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveWorkbook.Save
    Range("B5").Select
Dim myPwd As Integer
myPwd = Application.InputBox("Inserire la Password")
If myPwd <> "xyz" Then
    MsgBox "Password non valida.", vbExclamation
    Exit sub
End If
End Sub

Mi visualizza questo:
"Errore 13 - Incongruenza tipo"

Il tutto viene segnalato a partire da:

myPwd = Application.InputBox("Inserire la Password")

Ho sbagliato il tipo di variabile? O qualcos'altro?

[gibra]

Controlla sulla guida il tipo restituito da InputoBox()

[karl93]

Ho cambiato il tipo e la Macro funziona; quindi se la mando in esecuzione, mi blocca quello che richiedo. Però se da Excel clicco su:

Revisione -> Foglio

Mi sblocca tutto,senza chiedere la password. Se invece voglio fare in modo che quando eseguo questi passi,Excel mi chieda la password? Come devo fare?


Grazie ancora!