jerryeagle respondió:
Dim Pass As String Pass = InputBox("Escriba la Contraseña para proteger la Hoja") ActiveSheet.Protect Password:=Pass, DrawingObjects:=True, Contents:=True, Scenarios:=True o en lugar del inputbox, pon una contraseña entre comillas ""