damianjmcgrath
Board Regular
- Joined
- Oct 31, 2008
- Messages
- 72
I was writing some VBA to disable the SaveAs functionality of a spreadsheet, and couldn't quite get it to work, so I removed it and went down a different route to achieve what I wanted. However, ever since playing with that code, I can no longer use SaveAs in any Office application, including Excel. I can't remember the code I was playing with, I've since deleted it, and I'm not even 100% sure some VBA could have some wide-ranging implications.
Whenever I try and go to File --> SaveAs, it brings up the Save As window, so I can choose the Computer folder, and then choose My Documents, but clicking My Documents does nothing. It doesn't bring up the Save As File Dialog box. Even when I click Browse, that doesn't do anything either.
When I close a brand new unsaved spreadsheet, it prompts me to save for the first time, but then when I click Save, nothing happens.
It seems coincidental that I was messing around with some save code, and then these issues occur. I don't know what sort of setting I could have unticked, a disabling of file dialog boxes or whatever.
In VBA, I tried writing some code to bring up the save as dialog box, which was:
But running that code did absolutely nothing. When I checked, intChoice was equal to 0 after the Application line of code.
Does anyone have any ideas?
[/SIZE][/FONT][/SIZE][/FONT]
Whenever I try and go to File --> SaveAs, it brings up the Save As window, so I can choose the Computer folder, and then choose My Documents, but clicking My Documents does nothing. It doesn't bring up the Save As File Dialog box. Even when I click Browse, that doesn't do anything either.
When I close a brand new unsaved spreadsheet, it prompts me to save for the first time, but then when I click Save, nothing happens.
It seems coincidental that I was messing around with some save code, and then these issues occur. I don't know what sort of setting I could have unticked, a disabling of file dialog boxes or whatever.
In VBA, I tried writing some code to bring up the save as dialog box, which was:
Code:
Sub Example1()
Dim intChoice As Integer
Dim strPath As String
intChoice = Application.FileDialog(msoFileDialogSaveAs).Show
If intChoice <> 0 Then
strPath = Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1)
Call MsgBox(strPath, vbInformation, "Save Path")
End If
End Sub
[FONT=Calibri][SIZE=3][FONT=Calibri][SIZE=3]
But running that code did absolutely nothing. When I checked, intChoice was equal to 0 after the Application line of code.
Does anyone have any ideas?
[/SIZE][/FONT][/SIZE][/FONT]