topic Abort document close in VBA Forum

Abort document close

Anonymous — Mon, 13 Nov 2000 19:42:06 GMT

In A2K, is there a way to prevent the document to close ? There's no Cancel
in the BeginClose event...

Thanks
________________________________
Alain Bouchard
Graduate Student
Geomatics Research Centre
Laval University
Sainte-Foy (Québec)
G1K 7P4

Alain.Bouchard@scg.ulaval.ca

Re: Abort document close

Anonymous — Mon, 13 Nov 2000 21:40:38 GMT

Would something like this work? I only have R14 here and it doesn't have a
BeginClose event so couldn't test it.

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
If CommandName = UCase("CLOSE") Then
SendKeys "{Esc}"
End If
End Sub

"Alain Bouchard" wrote in message
news:94B9952992E019AE01C87626A1A5E209@in.WebX.SaUCah8kaAW...
> In A2K, is there a way to prevent the document to close ? There's no
Cancel
> in the BeginClose event...
>
> Thanks
> ________________________________
> Alain Bouchard
> Graduate Student
> Geomatics Research Centre
> Laval University
> Sainte-Foy (Québec)
> G1K 7P4
>
> Alain.Bouchard@scg.ulaval.ca
>

Re:

Anonymous — Mon, 13 Nov 2000 22:09:28 GMT

Sorry, that doesn't work. The BeginCommand is raised only when the user type
"Close", it's not raised if the user close AutoCAD for example. Also, you
should never use SendKeys to send a message to AutoCAD, too risky. I'm
looking for a function to lock the document, only to prevent closing, not
editing.

Thanks anyway

Alain

Michael Kintz wrote in message
news:8C1E9A8BC5036192074FE31A04278305@in.WebX.SaUCah8kaAW...
> Would something like this work? I only have R14 here and it doesn't have
a
> BeginClose event so couldn't test it.
>
> Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
> If CommandName = UCase("CLOSE") Then
> SendKeys "{Esc}"
> End If
> End Sub
>
> "Alain Bouchard" wrote in message
> news:94B9952992E019AE01C87626A1A5E209@in.WebX.SaUCah8kaAW...
> > In A2K, is there a way to prevent the document to close ? There's no
> Cancel
> > in the BeginClose event...
> >
> > Thanks
> > ________________________________
> > Alain Bouchard
> > Graduate Student
> > Geomatics Research Centre
> > Laval University
> > Sainte-Foy (Québec)
> > G1K 7P4
> >
> > Alain.Bouchard@scg.ulaval.ca
> >
>