Como controlar alterações sem partilhar o livro?
Normalmente, ao ativar a funcionalidade Controlar Alterações no Excel, o livro é automaticamente partilhado, o que pode ser incómodo, já que algumas funcionalidades do Excel ficam desativadas. Como controlar alterações sem partilhar o livro? Apresentamos-lhe uma solução prática com um código VBA.
Controlar alterações sem partilhar o livro com código VBA
Converter texto em tabela no Outlook
Não há uma solução direta para este problema, mas pode recorrer a um código VBA flexível. Siga estes passos:
1. Clique com o botão direito no separador da folha em que pretende controlar as células alteradas e escolha Ver Código no menu de contexto. Na janela do Microsoft Visual Basic para Aplicações que surge, copie e cole o seguinte código no Módulo:
Código VBA: Controlar alterações sem partilhar o livro:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Const xRg As String = "A1:Z1000"
Dim strOld As String
Dim strNew As String
Dim strCmt As String
Dim xLen As Long
With Target(1)
If Intersect(.Cells, Range(xRg)) Is Nothing Then Exit Sub
strNew = .Text
Application.EnableEvents = False
Application.Undo
strOld = .Text
.Value = strNew
Application.EnableEvents = True
strCmt = "Edit: " & Format$(Now, "dd Mmm YYYY hh:nn:ss") & " by " & _
Application.UserName & Chr(10) & "Previous Text :- " & strOld
If Target(1).Comment Is Nothing Then
.AddComment
Else
xLen = Len(.Comment.Shape.TextFrame.Characters.Text)
End If
With .Comment.Shape.TextFrame
.AutoSize = True
.Characters(Start:=xLen + 1).Insert IIf(xLen, vbLf, "") & strCmt
End With
End With
End Sub
Nota: No código acima, A1:Z1000 é o intervalo de dados cujas alterações pretende controlar.
2. Em seguida, guarde e feche esta janela de código. A partir de agora, sempre que alterar os valores em quaisquer células dentro do intervalo definido, as alterações serão registadas sem partilhar o livro. Veja a imagem:
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos