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