Thanks! That pointed me in the right direction, the working code is a
follows:


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel A
Boolean)

Select Case Application.UserName

Case "My UserName"

Case Else
MsgBox "Can't save"
Cancel = True
End Select

End Su

--
kde
-----------------------------------------------------------------------
kdev's Profile: http://www.excelforum.com/member.php...fo&userid=1653
View this thread: http://www.excelforum.com/showthread.php?threadid=31382