Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Interesting problem
I have a bit of code that is supposed to prevent users from saving however, it is also preventing me from saving the workbook with the bi of code in!! Does anyone have an idea on how to get the workbook to sav the bit of code (which goes in the workbook module). Code as follows: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel A Boolean) MsgBox "Can't save" Cancel = True End Sub Thanks -- kde ----------------------------------------------------------------------- kdev's Profile: http://www.excelforum.com/member.php...fo&userid=1653 View this thread: http://www.excelforum.com/showthread.php?threadid=31382 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Interesting problem
Try:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) select case application.username case "Your Name" else MsgBox "Can't save" Cancel = True end select End Sub "kdev" wrote: I have a bit of code that is supposed to prevent users from saving, however, it is also preventing me from saving the workbook with the bit of code in!! Does anyone have an idea on how to get the workbook to save the bit of code (which goes in the workbook module). Code as follows: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MsgBox "Can't save" Cancel = True End Sub Thanks! -- kdev ------------------------------------------------------------------------ kdev's Profile: http://www.excelforum.com/member.php...o&userid=16530 View this thread: http://www.excelforum.com/showthread...hreadid=313824 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Interesting Formula Problem | Excel Worksheet Functions | |||
Interesting TIF file problem | Excel Discussion (Misc queries) | |||
interesting query problem | Excel Programming | |||
Most Interesting Problem I Had Ever Got. | Excel Programming |