Olá amigos

Estou com o seguinte problema: Desenvolvi no meu Office 365 um código que funciona corretamente no Excel do cliente (versão Office 2010), porém devido suas necessidades de segurança, coloquei algumas linhas a mais para e desbloquear a planilha, executar o código e então voltar a bloquear a planilha. Isso a cada execução, linha selecionada, etc.

O problema é que, após essa alteração a planilha não abre mais na máquina dele. Já reenviei sem as linhas de bloqueio/deslboqueio e funcionou certinho, ou seja, o problema é com essas linhas. 

São 2 macros: Uma para realçar a linha selecionada sem perder a formatação após alterar a célula/linha e outra para permitir que o cliente insira 20, por exemplo, e o Excel complete com o mês e ano correntes. As 2, portanto, estão na mesma plan do Visual Basic.

Segue meu código

Private Sub realceSelecao(ByVal Target As Excel.Range)
ActiveSheet.Unprotect Password:=""
ActiveWorkbook.Unprotect Password:=""
h = ActiveCell.Height
w = Range("a2:i2").Width
t = ActiveCell.Top
On Error Resume Next
ActiveSheet.Shapes("RectangleV").Delete
On Error Resume Next
ActiveSheet.Shapes("RectangleH").Delete
'Ajuste dos shapes retangulos
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, w, h).Name = "RectangleV"
With ActiveSheet.Shapes("RectangleV")
.Fill.Visible = msoFalse
.Fill.Transparency = 20#
.Line.Weight = 2#
.Line.ForeColor.SchemeColor = 10
.PrintObject = False

End With
ActiveSheet.Protect Password:=""
ActiveWorkbook.Protect Password:=""

End Sub

Private Sub data(ByVal Target As Range)

ActiveSheet.Unprotect Password:=""
ActiveWorkbook.Unprotect Password:=""

Dim intervalo As Range
Dim dia As Date
Set intervalo = Range("C10:D10000")

Application.EnableEvents = False

If Not Application.Intersect(intervalo, Range(Target.Address)) Is Nothing Then

If Not IsEmpty(Target.Value) Then
Range(Target.Address).NumberFormat = "General"

If Len(Target.Value) <= 2 Then

dia = Target.Value & "/" & Month(Now) & "/" & Year(Now)
Range(Target.Address).Value = dia

End If

Range(Target.Address).NumberFormat = "dd/mm/yyyy"
End If

End If

Application.EnableEvents = True

ActiveSheet.Protect Password:=""
ActiveWorkbook.Protect Password:=""

End Sub