After dismissing getsaveasfilename dialog, my userform becomes inactive

  • Thread starter Thread starter Ramana
  • Start date Start date
R

Ramana

Hi,
My Add-In I am opening a user form displayed as modal dialog on clicking a
toolbar button.
From this form, on a button click, I am opening 'GetSaveAsFileName' dialog
to get the file name from user.
After dismissing the dialog, the userform becomes inactive and I am able to
select cells on the active worksheet.
Is this a known issue with Microsoft?
Is there any solution to activate my form and restrict the user from
accessing worksheet.

Regarding restricting access to worksheet, I am able to restrict the user
access by setting the application.interactive property to false.
But with this setting, I am not able to display the userform if I select
multiple sheets before displaying the dialog. I am getting the following
error.

Runtime error 1004,
Method 'Interactive' of object '_Application' failed.

Advance Thanks for help
-Ramana
 
This approach may help:

Private Sub CommandButton1_Click()
Dim FN As Variant
Me.Hide
FN = Application.GetOpenFilename("Excel file,*.xls")
Me.Show
End Sub


--
Jim
| Hi,
| My Add-In I am opening a user form displayed as modal dialog on clicking a
| toolbar button.
| From this form, on a button click, I am opening 'GetSaveAsFileName' dialog
| to get the file name from user.
| After dismissing the dialog, the userform becomes inactive and I am able
to
| select cells on the active worksheet.
| Is this a known issue with Microsoft?
| Is there any solution to activate my form and restrict the user from
| accessing worksheet.
|
| Regarding restricting access to worksheet, I am able to restrict the user
| access by setting the application.interactive property to false.
| But with this setting, I am not able to display the userform if I select
| multiple sheets before displaying the dialog. I am getting the following
| error.
|
| Runtime error 1004,
| Method 'Interactive' of object '_Application' failed.
|
| Advance Thanks for help
| -Ramana
|
|
 
Hi Jim,
Still I am able access the worksheet cells after dismissing the
getsaveasfilename dialog.
Also I am not getting the focus rectangle on the button even after calling
setfocus method.

Thanks,
Ramana
 
Hi Jim,
Thanks for the help.
I got the mistake. It's working fine now.
The problem is 'Show Modal' property of the user form is set to false and I
am displaying the form as model using
myForm.Show VbModal
I not sure about the different between setting the property and using Show
method with 'VbModal' as the argument.

After setting the form's 'ShowModal' property to true, it is working fine.

Thanks again for the help

-Ramana
 
Back
Top