[Dúvida] Planilha Protegida

Meu excel insiste em dizer que a planilha está protegida, mas fiz o passo a passo direitinho e ainda não consigo acessar.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Planilha1.Unprotect Password = "1234"

    Planilha1.Cells(ActiveCell.Row, 1).Interior.Color = vbGreen
    Planilha1.Cells(ActiveCell.Row, 2).Interior.Color = vbGreen
    Planilha1.Cells(ActiveCell.Row, 3).Interior.Color = vbGreen
    Planilha1.Cells(ActiveCell.Row, 4).Interior.Color = vbGreen
    Planilha1.Cells(ActiveCell.Row, 5).Interior.Color = vbGreen
    Planilha1.Cells(ActiveCell.Row, 6).Interior.Color = vbGreen

    frmCadastroProdutos.Show

    Planilha1.Cells(ActiveCell.Row, 1).Interior.Color = vbWhite
    Planilha1.Cells(ActiveCell.Row, 2).Interior.Color = vbWhite
    Planilha1.Cells(ActiveCell.Row, 3).Interior.Color = vbWhite
    Planilha1.Cells(ActiveCell.Row, 4).Interior.Color = vbWhite
    Planilha1.Cells(ActiveCell.Row, 5).Interior.Color = vbWhite
    Planilha1.Cells(ActiveCell.Row, 6).Interior.Color = vbWhite

    Planilha1.Protect Password = "1234"

    Cancel = True


End Sub