Proteger en el LIBRO: Estructura y Ventanas con MACRO

Tengo el siguiente problema:

- Al ejecutar lo siguiente solo PROTEGER/DESPROTEGE en el LIBRO la estructura.

1----------------------------------------------------------------

Private Sub PROTEGERLIBRO_Click()

ThisWorkbook.Protect "AHORASIATRABAJAR"

End Sub

2-----------------------------------------------------------------

Private Sub DESPROTEGERLIBRO_Click()
ThisWorkbook.Unprotect"AHORASIATRABAJAR"
End Sub

-------------------------------------------------------------------

Necesito lo siguiente:

- Mediante una instrucción (EXCEL/MACRO) PROTEGER/DESPROTEGE en el LIBRO la estructura y VENTANAS.

- Al ejecutar lo siguiente no hace nada.

1-------------------------------------------------------

Private Sub PROTEGERLIBRO_Click()

With ActiveWorkbook

.Protect Structure:=True, Windows:=True

.Unprotect ("123")

.Protect ("123")

End With

End Sub

2-----------------------------------------------------

Private Sub PROTEGERLIBRO_Click()
With ActiveWorkbook
.Protect Structure:=True, Windows:=True
'.Unprotect ("123")
.Protect ("123")
End With
End Sub

Agradecería de antemano su ayuda.