vonzuben, boa noite.

Vc tá usando o evento Worksheet.SelectionChange. Então, para acionar o que vc quer é necessário haver mudança (Change) da seleção. E como toda a planilha está bloqueada, a seleção sempre ficará na K7, que está desbloqueada. Uma solução é deixar outras células desbloqueadas ou criar uma forma/botão para chamar a macro.
Ou ainda usar o evento Worksheet_BeforeDoubleClick (2 cliques, mas sem precisar tirar o cursor).

Qlq dúvida é só falar.

Abraço!

Problema que Worksheet_BeforeDoubleClick que fica o cursor, se caso eu queira alterar, tenho que clicar fora da celula e clicar novamente

Experimente outros eventos de planilha, como por exemplo BeforeRightClick (aciona a rotina com o botão direito do maouse):

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim DateFormats, DF
DateFormats = Array("m/d/yyyy", "dd mmmm yyyy")
    For Each DF In DateFormats
        If DF = Target.NumberFormat Then
            If CalendarFrm.HelpLabel.Caption <> "" Then
                CalendarFrm.Height = 191 + CalendarFrm.HelpLabel.Height
            Else: CalendarFrm.Height = 191
                CalendarFrm.Show
            End If
        End If
    Next
End Sub

É por causa do evento SelectionChange já ter ocorrido.

Tente usar algo como:
Worksheet_Change()
If Target.Address = "?????" Then
End if

Com botão direito ao clicar no X fechar, fica abrindo menu do Excel

???

Usando esse modo, se ao clicar no botao x de fechar o pop do calendario, abre o menu do excel

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$K$7" Then
    Dim DateFormats, DF
    DateFormats = Array("m/d/yyyy", "dd mmmm yyyy")
    For Each DF In DateFormats
        If DF = Target.NumberFormat Then
            If CalendarFrm.HelpLabel.Caption <> "" Then
                CalendarFrm.Height = 191 + CalendarFrm.HelpLabel.Height
            Else: CalendarFrm.Height = 191
                CalendarFrm.Show
            End If
        End If
    Next
End If
End Sub

Já tinha feito isso hronconi, pois não deu certo !

Se clica na celula e não faz nada !

Já tinha feito isso hronconi, pois não deu certo !

Se clica na celula e não faz nada !

Por que não cria um botão então?

Usando esse modo, se ao clicar no botao x de fechar o pop do calendario, abre o menu do excel

Use esse código com o botão direito:

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

    Dim DateFormats, DF
    DateFormats = Array("m/d/yyyy", "dd mmmm yyyy")
    For Each DF In DateFormats
        If DF = Target.NumberFormat Then
            If CalendarFrm.HelpLabel.Caption <> "" Then
                CalendarFrm.Height = 191 + CalendarFrm.HelpLabel.Height
            Else: CalendarFrm.Height = 191
                CalendarFrm.Show
                Cancel = True
            End If
        End If
    Next

Voce pode tambem ao proteger a planilha, deixar o item selecionar celulas bloqueada ativado, assim altere a seleção e tera o calendaraberto ou, simular a alteração de seleção na abertura ou ativamento da planilha, veja em seu modelo para jan

Vou tentar aqui, Valeu

Foi em duplicata mas faltou o anexo