Macro para proteger y desproteger hojas de cálculo

Crear un módulo e insertar el siguiente código:

Sub proteger_hoja()
Sheets("Resumen").Select
ActiveSheet.Protect ("123456")
End Sub

>> Este código protege la hoja de cálculo con la contraseña: 123456

Para desproteger la hoja usaremos el siguiente código:

Sub desproteger_hoja()

Sheets("Resumen").Select
ActiveSheet.Unprotect ("123456")
End Sub

>> En esta caso usamos la misma contraseña para desproteger la hoja.

Para proteger una hoja que contiene una tabla dinámica usaremos el siguiente código que nos permitirá interactuar con sus filtros y escenarios:

Sub proteger_hoja()

Sheets("Resumen").Select
ActiveSheet.Protect Password:=("123456"), DrawingObjects:=False, _
Contents:=True, Scenarios:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True

End Sub

...