none
Inserir linha em planilha protegida para compartilhamento RRS feed

  • Pergunta

  • Boa tarde,

    Estou tentando optimizar uma planilha que tenho no trabalho com um código para inserir uma nova linha após a última preenchida.

    O problema é que além de proteger a planilha nós também utilizamos a função "Proteger e compartilhar pasta de trabalho". Mas quando uso esta função para compartilhar a planilha na rede o código não funciona mais. Existe alguma forma de fazer o código funcionar com a planilha protegida para compartilhamento?

    Segue o código que estou utilizando:

    Sub btninserir()
    
    ActiveSheet.Unprotect
    
    Dim linha  As Long
    
    linha = Range("A" & Rows.Count).End(xlUp).Row
    linha = linha + 1
    Range("A" & linha).Select
    
    With Selection.EntireRow
        .Offset(-1).Copy
        .Insert
        On Error Resume Next
        .Offset(-1).SpecialCells(xlCellTypeConstants, 23).ClearContents
        On Error GoTo 0
    End With
    
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    
    End Sub


    segunda-feira, 2 de março de 2015 17:17

Respostas

  • Macros não funcionam em planilhas compartilhadas. Você terá que remover a configuração de compartilhamento da pasta de trabalho se quiser usar macros.

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    terça-feira, 3 de março de 2015 13:35
    Moderador