Como controlar as alterações sem compartilhar a pasta de trabalho?
Normalmente, quando você aplica o recurso Controlar alterações no Excel, a pasta de trabalho será compartilhada ao mesmo tempo, o que será irritante porque alguns dos recursos do Excel serão desabilitados. Como você poderia controlar as alterações sem compartilhar a pasta de trabalho? Aqui, vou recomendar um código VBA para você.
Rastreie as alterações sem compartilhar a pasta de trabalho com o código VBA
Converter texto em tabela no Outlook
Não há uma maneira direta de resolver esse problema, mas você pode aplicar um código VBA flexível para resolvê-lo. Faça o seguinte:
1. Clique com o botão direito na guia da planilha que deseja controlar as células alteradas e escolha Ver código a partir do menu de contexto, no pop-out Microsoft Visual Basic para Aplicações janela, copie e cole o código a seguir no espaço em branco Módulo:
Código VBA: rastreie as alterações sem compartilhar a pasta de trabalho:
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
Note: No código acima, A1: Z1000 é o intervalo de dados que você deseja controlar as alterações.
2. Em seguida, salve e feche esta janela de código, agora, quando você alterar os valores em qualquer célula dentro do intervalo especificado definido no código, as células serão rastreadas e a pasta de trabalho não será compartilhada. Veja a imagem:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!