SaveAs Question

[Guest]

I was wondering if there was amethod of capturing the SaveAs and disabling it
before the user tries to use it? I have this code for the Save but it still
allows the user to use SaveAs.

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

If Application.UserName <> "rcj" Then

Cancel = True
MsgBox "Sorry, But You Don't Have Permission To Save This File",
vbExclamation, "Invalid Permission"

End If

'MsgBox Application.UserName

End Sub


Thanks In Advance,
Rob

 

[Dave Peterson]

This should stop any File|Save or File|SaveAs.

Maybe you turned off events (application.enableevents = false) and forgot to
reenable it???

Or maybe the workbook was opened and macros were disabled???

 

[Guest]

Sweet It Works. Thanks.

This should stop any File|Save or File|SaveAs.

Maybe you turned off events (application.enableevents = false) and forgot to
reenable it???

Or maybe the workbook was opened and macros were disabled???