birolo

Necesito proteger muchas hojas a la vez, para eso uso este macro que saqué hace tiempo de esta página: Sub Proteger() Dim Psw As String Do While Psw = "" Psw = Trim(InputBox("Escribe la contraseña para Proteger las hojas")) Loop For Each ws In...