ActiveWorkbook.Unprotect "Password"

ActiveWorkbook.Protect "Password"

I actually tried
ActiveWorksheet.unprotect (I hadn't protected it with a password) but
for some reason it didn't work. Anyway, I now have it working with

ActiveSheet.Protect UserInterfaceOnly:=True

For anyone interested, I figured out that protect  and unprotect  work
exactly as stated in this email EXCEPT if the sheet is protected from
the spreadsheet command bar before entering the vba module, the
unprotect doesn't work.

You need to set the EnableSelection property. You are probably protecting the
sheet, but still allowing the users to select both locked & unlocked cells. Tru
something like this:

Sub AAAA()
Call ProtectSht("Sheet1")
End Sub

Sub BBBB()
Call UnprotectSht("Sheet1")
End Sub

Private Sub ProtectSht(ShtName As String)
Sheets(ShtName$).Protect
Sheets(ShtName$).EnableSelection = xlNoSelection
End Sub

Private Sub UnprotectSht(ShtName As String)
Sheets(ShtName$).Unprotect
Sheets(ShtName$).EnableSelection = xlNoRestriction
End Sub

For greater security, you could add a password.

I actually accomplished what I wanted with the following:

ActiveSheet.Protect UserInterfaceOnly:=True

I don't think there is an issue about locked versus unlocked, because
it works fine now. Before, I had protected two sheets  manually (not
the whole workbook) with no password and the protection worked; then
I had attempted to unprotect  them at the beginning of my routine and
then protect  them again at the end. I have no clue why what I did
before didn't work.

In that case try this...



ActiveWorkbook.ActiveSheet.Unprotect

"Do something"

ActiveWorkbook.ActiveSheet.Protect