Botón para bloquear/desbloquear libro excel

Inserta un botón de alternar (Toggle Button), cámbiale el nombre a tgbDesbloquear y asígnale el siguiente código a su evento CHANGE:

Private Sub tgbDesbloquear_Change()
If ActiveWorkbook.ProtectStructure = True Or ActiveWorkbook.ProtectWindows = True Then
ActiveWorkbook.Unprotect ("1234")
ActiveSheet.Range("a1").Value = "Libro Bloqueado: " & ActiveWorkbook.ProtectStructure
tgbDesbloquear.Caption = "Bloquear Libro"
Else
ActiveWorkbook.Protect Structure:=True, Windows:=True, Password:="1234"
ActiveSheet.Range("a1").Value = "Libro Bloqueado: " & ActiveWorkbook.ProtectStructure
tgbDesbloquear.Caption = "Desbloquear Libro"
End If
End Sub

Que tengas un EXCELente fin de semana.

Jorge A. Rodríguez Lopera