Erro de tempo de execução do VBA 1004 quando protejo a folha

Question

Eu tenho uma pasta de trabalho compartilhada com duas planilhas, uma planilha tem muitas fórmulas, portanto, quero proteger a "planilha 1".

Também cortei e colei alguns códigos VBA na "folha 1". O VBA funciona muito bem até proteger a folha. Mas quando eu proteger a folha, um erro de tempo de execução 4 é exibido.

Alguma ideia do que está errado?

Projeto

Private Sub Workbook_Open() 
StartBlink 
End Sub 

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
StopBlink 
End Sub

Módulo1

Public RunWhen As Double Sub StartBlink() 
With ThisWorkbook.Worksheets("sheet1").Range("a1").Font 
    If .ColorIndex = 3 Then   
        .ColorIndex = 2 
    Else 
        .ColorIndex = 3 
    End If 
End With 

RunWhen = Now + TimeSerial(0, 0, 1) Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", , True 
End Sub 

Sub StopBlink() 
ThisWorkbook.Worksheets("sheet1").Range("a1").Font.ColorIndex = _ 
    xlColorIndexAutomatic Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", , False 
End Sub

    

Answer 1

Você quer proteger a célula A1? Eu acho que se você desproteger (remover marca de verificação bloqueada de células de formato - > proteção - > bloqueado) apenas A1 Cell e proteger todo o resto da folha, o código será executado e piscar