LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 897
Default Disabling SAVE AS Temporarily

Glad to hear it worked!

--JP

On Jan 8, 12:04*am, monir wrote:
Perfect! *Thank you very much.



"JP" wrote:
How about


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If SaveAsUI Then
MsgBox ("The 'Save As' function has been disabled."), vbInformation,
"Save As Disabled"
Cancel = True
End If
End Sub


HTH,
JP


On Jan 7, 9:34 pm, monir wrote:
Hello;


I need to disable the File option Save As while the file test.xls is open,
and return to normal File options on exit.
How to do that ??
The following w/b event DOES NOT produce the desired effect:


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'MS Excel help: SaveAsUi True if the Save As dialog box will be displayed
* * SaveAsUI = False
End Sub


Thank you.- Hide quoted text -


- Show quoted text -


 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Disabling effects of cells (temporarily) booner Excel Programming 1 November 11th 05 01:35 PM
Totally Disabling (^ save ) (Save as) and Save Icon – Which code do I use: harpscardiff[_10_] Excel Programming 8 November 10th 05 12:24 PM
Disabling Save Function TheRobsterUK Excel Discussion (Misc queries) 2 May 31st 05 05:02 PM
Disabling Save Pop-Up R. Woltner Excel Programming 0 July 7th 04 12:28 AM
Temporarily Disabling an Event Macro stratuser Excel Programming 2 December 2nd 03 08:07 PM


All times are GMT +1. The time now is 11:11 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"