Código:
Sub ProtegerHojas()
Dim wksht As Worksheet
For Each wksht In ActiveWorkbook.Worksheets
‘Proteger todas las hojas.
wksht.Protect Password:="contraseña"
Next wksht
End Sub
Si, por el contrario, lo que queremos es desproteger la hoja, sustituye el código marcado en amarillo por el siguiente:
‘Desproteger todas las hojas.
wksht.Unprotect Password:="contraseña"
⭐ Si te gustó, por favor regístrate en nuestra Lista de correo y Suscríbete a mi canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.