Thanks to all NOW OK Undo macro, now with code

[neills]

I have a macro to paste a diagram into my spreadsheet but cannot undo or delete this diagram if needed. I need the sheet to be protected and the macro unprotects then reprotects any help would be appreciated. Neill

[ This Message was edited by: neills on 2002-05-08 04:34 ]

[ This Message was edited by: neills on 2002-05-08 07:01 ]

[Tom Schreiner]

http://www.erlandsendata.no/download...croexample.zip

[Abdc]

On 2002-05-08 03:11, neills wrote:
I have a macro to paste a diagram into my spreadsheet but cannot undo or delete this diagram if needed. I need the sheet to be protected and the macro unprotects then reprotects any help would be appreciated. Neill

Post your code.
It should be simple to do a macro to delete whatever the "diagram" is that your macro created.

[neills]

here is the code for the macro


Sub Start()
'
' Start Macro
' Macro recorded 07/05/2002 by Neill'
' Keyboard Shortcut: Ctrl+s
'

ActiveSheet.Unprotect password:="aaaaa"
ActiveSheet.Shapes("Group 436").Select
Selection.Copy
ActiveCell.Select
ActiveSheet.Paste
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:="aaaaa"
ActiveCell.Offset(0, 1).Select
End Sub



any good

Thanks Neill

[Vas]

If you manage to save a reference to the shape then you should be able to do something like this:

Dim shpLast As Shape

Sub Start()
...
Application.OnUndo "Inserting Diagram", "DeleteDiagram"
End Sub

Sub DeleteDiagram
shpLast.Delete
End Sub