I have a workbook that when opened by a certain user which I have tied to a
form I want it to be editable but when open by other users I want it to be in
read only format and no prompt or ability to save the document. I am
currently using a macro to select all sheets, lock all cells, then protect
all sheets which prevents editing, however I do not want them to be able to
save it. This macro for prevention only runs when certain users open the
workbook.

any help would be appreciated.

When can accomplish this with two event macros and a tiny trick.

Put these in the workbook code area:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Saved = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.Saved = True
Cancel = True
End Sub

These should prevent attempts to save.

HOWEVER: the tiny trick - Once you have installed the macros, even YOU
won't be able to save the result and so the macros will be "lost". So:

1. Install the macros
2. set Application.EnableEvents to False
3. save the file

Once the file has been re-opened, EnableEvents will be True and subsequent
attempts to save will fail!
--
Gary''s Student - gsnu200829


"calebjill" wrote:

I have a workbook that when opened by a certain user which I have tied to a
form I want it to be editable but when open by other users I want it to be in
read only format and no prompt or ability to save the document. I am
currently using a macro to select all sheets, lock all cells, then protect
all sheets which prevents editing, however I do not want them to be able to
save it. This macro for prevention only runs when certain users open the
workbook.

any help would be appreciated.