what does method 'Unprotect" of object_Worksheet failed

[ccafe8]

I've got code that

is attached to a dropdown button,

it has a protect and unprotect line that looks like below:

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

Private Sub combo_pl1_Change()
ActiveSheet.Unprotect ("password")
Select Case combo_pl1.Value

Case "Plus or Minus 0%"
Call non2020pl_rev0percent

Case "Plus or Minus 1000%"
Call non2020pl_rev1000percent

Case Else
MsgBox "Something Else"
End Select
ActiveSheet.Protect ("password")

End Sub


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

can anyone tell me if there is somethign wrong or inefficient that is causing the error as mentioned when i save my work...

 

[Colin Legg]

Hi,

can anyone tell me if there is somethign wrong or inefficient that is causing the error as mentioned when i save my work...

I don't see why the combobox's change event would be raised when you save the workbook?

Instead of using activesheet, you can try using Me to make sure the correct sheet is being referenced:

Private Sub combo_pl1_Change()
    Me.Unprotect "password"
 
    Select Case combo_pl1.Value
 
        Case "Plus or Minus 0%"
            Call non2020pl_rev0percent
 
        Case "Plus or Minus 1000%"
            Call non2020pl_rev1000percent
 
        Case Else
            MsgBox "Something Else"
    End Select
 
    Me.Protect "password"
End Sub

Of course, make sure that "password" is the correct password for that sheet's protection.

Hope that helps...