Excel - agregar password a boton

saludos
que codigo pongo en un boton para que al momento de darle clik me pida un password,
tengo un boton que limpia el contenido de una celdas y es:

private Sub CommandButton1_Click()

With ActiveSheet
.Range("B9:B800").Value = ""
.Range("c9:B800").Value = ""
.Range("d9:B800").Value = ""
.Range("e9:B800").Value = ""
.Range("f9:B800").Value = ""
End With
End Sub

que le agrego para que me pida un password antes de limpiar las celdas

gracias