I have a file (Sheet1 only used) with two Forms Command Buttons, with
Captions ToProtectWB and ToUnprotectWB. I want one to be enabled
and the other disabled according to the current setting. This is what I now
have **which is producing R/T 1004**. Can someone assist me?

Sub ToProtectWB()
'
ActiveWorkbook.Protect Password:="password", Structu=True,
Windows:=False
Sheets(1).Buttons("Protect WB").Enabled = False
Sheets(1).Buttons("Unprotect WB").Enabled = True
End Sub
Sub ToUnprotectWB()
'
ActiveWorkbook.Unprotect Password:="password"
Sheets(1).Buttons("Unprotect WB").Enabled = False
Sheets(1).Buttons("Protect WB").Enabled = True
End Sub