Excel Proteger célula sem acusar mensagem

[SimPos]

Bom eu sei como bloquear as células, mas peguei um modelo pronto na internet que achei interessante, quando o usuário tenta dar dois cliques na célula protegida não fica dando aqueles sinais sonoros e mensagem de planilha protegida, simplesmente fica a cruzeta do excel nula nada acontece, outra característica que nem seleção é possível.

 

Alguém sabe como faz?

[Muca Costa]

Veja se é isso:

 

Sub Desabilita_Alerta()
   Application.DisplayAlerts=False 'desabilite o alerta
   'Insira aqui seu código desejado
   Application.DisplayAlerts=True  'habilite novamente
End Sub

[SimPos]

@Muca Costa Vish mas onde coloco isso amigo?

[Muca Costa]

Veja se é assim:

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Locked And ActiveSheet.ProtectContents Then
        Application.DisplayAlerts = False
        Cancel = True
    End If
End Sub

[Patropi]

Boa tarde @SimPos

 

Citação

Vish mas onde coloco isso amigo?

 

Clique com o lado direito do mouse no nome da planilha (muitos chamam de Aba) --> selecione --> exibir código --> Na janela em branco que abrir copie e cole o código postado pelo Muca.

 

Se foi útil, clique em Curtir.

 

[]s

[SimPos]

@Muca Costa Cara bem isso mesmo obrigado, o primeiro não funcionou