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