De fato é muito raro utilizarem este comando em VBA, mas existe sim a possibilidade de faze-lo, por exemplo :
Esta rotina desfaz a ÚLTIMA ação :
Sub UndoLastAction()
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End Sub
Se pesquisar na Net encontrara varios tópicos sobre este assunto, alguns até com conteudo mais completo com a possibilidade de desfazer mais ações, alguns se utilizam de fazerem tipo cópias das alterações e depois aplicarem as reversões, é bem variado e alguns até bem complexos.
De uma olhada no site abaixo :
Undoing a VBA Subroutine
http://j-walk.com/ss/excel/tips/tip23.htm
Preserving the Undo List
http://excel.tips.net/T002060_Preservin ... _List.html
Este tambem fala a respetio :
Creating An Undo Handler To Undo Changes Done By Excel VBA
http://www.jkp-ads.com/Articles/UndoWithVBA00.asp
Uma obs, é que revendo alguns links, temos tambem variações referentes a ações efetuadas manualmente e/ou atraves de rotinas, são coisas distintas.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 22/04/2014 10:01 am