Protecting and Unprotecting All Workbook Sheets

I want to be able to have a pair of buttons on my toolbar that allows me to protect and unprotect ALL the sheets in a workbook.

An earlier post provided the methodology to do it for ONE workbook. What can I do so that I can have a toolbar button so that I can do this for ANY workbook.

Below please find the methodology:
Push Alt+F11 and go to Insert>Module, paste in this code:

Dim Shts As Worksheet
Sub UnProtectAllSheets()
'Unprotects ALL worksheets
For Each Shts In ThisWorkbook.Worksheets
Shts.Unprotect Password:=secret
Next
End Sub

Push Alt+Q.

Now Push Alt+F8 and click "UnprotectAllSheets" then "Options" and assign a shortcut key.

Sub ProtectAllSheets()
'Protects ALL worksheets
For Each Shts In ThisWorkbook.Worksheets
Shts.Protect Password:=secret
Next
End Sub

Push Alt+Q.

Now Push Alt+F8 and
click "ProtectAllSheets"
then "Options" and assign a shortcut key.

Thank You
Glenn