Hi folks,

using
Application.Dialogs(xlDialogPrintPreview).Show by itself
it works fine.

The problem happens after I called
Application.Dialogs(xlDialogSendMail).Show


Calling again the preview, of the to be printed page of the
spreadsheet, it also shows up, but is frozen and not
clickable at all. Only option left is that Excel has to be shut
down.

If needed I can post some surrounding code or give
more details. For any hint I will be more than thankful.

Greetings
Peter

Hi Steven

You can try inserting the following code into the "This
Workbook" object, it will remove the Share Workbook button
when the sheet is opened and return when the sheet is
closed.

Regards
Will

Private Sub Workbook_Open()
Application.CommandBars("Tools").Reset
Application.CommandBars("Tools").Controls(3).Delet e

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").Select
Application.CommandBars("Tools").Reset
End Sub
-----Original Message-----
Hi folks,

using
Application.Dialogs(xlDialogPrintPreview).Show by
itself
it works fine.

The problem happens after I called
Application.Dialogs(xlDialogSendMail).Show


Calling again the preview, of the to be printed page of
the
spreadsheet, it also shows up, but is frozen and not
clickable at all. Only option left is that Excel has to
be shut
down.

If needed I can post some surrounding code or give
more details. For any hint I will be more than thankful.

Greetings
Peter


.

Hi Will,
thanks a lot for your hint. I placed your code
into "This Workbook" object. But it did not
solve the problem yet.

Greetings to UK
Peter

"Will Francis" schrieb im Newsbeitrag
...
Hi Steven

You can try inserting the following code into the "This
Workbook" object, it will remove the Share Workbook button
when the sheet is opened and return when the sheet is
closed.

Regards
Will

Private Sub Workbook_Open()
Application.CommandBars("Tools").Reset
Application.CommandBars("Tools").Controls(3).Delet e

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").Select
Application.CommandBars("Tools").Reset
End Sub
-----Original Message-----
Hi folks,

using
Application.Dialogs(xlDialogPrintPreview).Show by
itself
it works fine.

The problem happens after I called
Application.Dialogs(xlDialogSendMail).Show


Calling again the preview, of the to be printed page of
the
spreadsheet, it also shows up, but is frozen and not
clickable at all. Only option left is that Excel has to
be shut
down.

If needed I can post some surrounding code or give
more details. For any hint I will be more than thankful.

Greetings
Peter


.

The problem is for everybody easily reproducible:
1. place a button on a sheet
2. the button calls a form containing 2 buttons:
a. preview
starting: Application.Dialogs(xlDialogPrintPreview).Show by
b. mail
starting: Application.Dialogs(xlDialogSendMail).Show

test preview: it works
test mail: it works
test preview again: result: ***** frozen *****

So, it really seems to be a Microsoft problem !!

isn't there any MVP maintaining this NG who could give me
a helping hand, any hint?
Thanks.

Best Regards
Peter

using
Application.Dialogs(xlDialogPrintPreview).Show by
itself
it works fine.

The problem happens after I called
Application.Dialogs(xlDialogSendMail).Show


Calling again the preview, of the to be printed page of
the
spreadsheet, it also shows up, but is frozen and not
clickable at all. Only option left is that Excel has to
be shut
down.

If needed I can post some surrounding code or give
more details. For any hint I will be more than thankful.

Greetings
Peter


.