Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileDialog deactivating the close button
When the user is selecting a file to open, I want to deactivate the X (Close
Button) so the user can not exit out of the macro. Do you know if this can be done? With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Filters.Add "Text files", "*.den" If .Show = True Then Txt = .SelectedItems(1) 'Import data For x = LBound(ColumnsDesired) To UBound(ColumnsDesired) ColumnArray(x, 1) = ColumnsDesired(x) ColumnArray(x, 2) = DataTypeArray(x) Next x Workbooks.OpenText Filename:=Txt, _ DataType:=xlFixedWidth, FieldInfo:=ColumnArray ActiveSheet.UsedRange.Copy Destination:=Isheet.Range("A1") ActiveWorkbook.Close SaveChanges:=False End If End With -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...mming/200701/1 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileDialog deactivating the close button
Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True MsgBox "Please use the button to close the form", vbInformation End If End Sub xxxxxxxxxxxxxxxxx susan On Jan 25, 3:45 pm, "Fredriksson via OfficeKB.com" <u27002@uwe wrote: When the user is selecting a file to open, I want to deactivate the X (Close Button) so the user can not exit out of the macro. Do you know if this can be done? With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Filters.Add "Text files", "*.den" If .Show = True Then Txt = .SelectedItems(1) 'Import data For x = LBound(ColumnsDesired) To UBound(ColumnsDesired) ColumnArray(x, 1) = ColumnsDesired(x) ColumnArray(x, 2) = DataTypeArray(x) Next x Workbooks.OpenText Filename:=Txt, _ DataType:=xlFixedWidth, FieldInfo:=ColumnArray ActiveSheet.UsedRange.Copy Destination:=Isheet.Range("A1") ActiveWorkbook.Close SaveChanges:=False End If End With -- Message posted via OfficeKB.comhttp://www.officekb.com/Uwe/Forums.aspx/excel-programming/200701/1 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileDialog deactivating the close button
whoops - i misread your post - that will disable the X on a userform -
don't know if it will work for the worksheet itself..... sorry susan On Jan 25, 3:45 pm, "Fredriksson via OfficeKB.com" <u27002@uwe wrote: When the user is selecting a file to open, I want to deactivate the X (Close Button) so the user can not exit out of the macro. Do you know if this can be done? With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Filters.Add "Text files", "*.den" If .Show = True Then Txt = .SelectedItems(1) 'Import data For x = LBound(ColumnsDesired) To UBound(ColumnsDesired) ColumnArray(x, 1) = ColumnsDesired(x) ColumnArray(x, 2) = DataTypeArray(x) Next x Workbooks.OpenText Filename:=Txt, _ DataType:=xlFixedWidth, FieldInfo:=ColumnArray ActiveSheet.UsedRange.Copy Destination:=Isheet.Range("A1") ActiveWorkbook.Close SaveChanges:=False End If End With -- Message posted via OfficeKB.comhttp://www.officekb.com/Uwe/Forums.aspx/excel-programming/200701/1 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
FileDialog deactivating the close button
Directly above "End If" add...
Else 'Code to keep the macro going -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware "Fredriksson via OfficeKB.com" <u27002@uwe wrote in message When the user is selecting a file to open, I want to deactivate the X (Close Button) so the user can not exit out of the macro. Do you know if this can be done? With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Filters.Add "Text files", "*.den" If .Show = True Then Txt = .SelectedItems(1) 'Import data For x = LBound(ColumnsDesired) To UBound(ColumnsDesired) ColumnArray(x, 1) = ColumnsDesired(x) ColumnArray(x, 2) = DataTypeArray(x) Next x Workbooks.OpenText Filename:=Txt, _ DataType:=xlFixedWidth, FieldInfo:=ColumnArray ActiveSheet.UsedRange.Copy Destination:=Isheet.Range("A1") ActiveWorkbook.Close SaveChanges:=False End If End With -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...mming/200701/1 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Deactivating a macro button | Excel Discussion (Misc queries) | |||
Deactivating a Forms macro button based on a worksheet condition? | Excel Discussion (Misc queries) | |||
Don't let user close. Use macro button to close? | Excel Programming | |||
Excel shoud not close all active books when clicking close button | Excel Discussion (Misc queries) | |||
excel - Windows close button (x) should only close active workboo. | Setting up and Configuration of Excel |