Macro to prevent 'save-as'

[nicademas]

Is there any way to write a macro which can prevent computer illiterate users from saving their files EVERYWHERE??

Thanks,
nica

[Mark O'Brien]

On 2002-02-21 06:58, nicademas wrote:
Is there any way to write a macro which can prevent computer illiterate users from saving their files EVERYWHERE??

Thanks,
nica

By EVERYWHERE, do you mean that the users just save the workbook in whatever directory/folder they happen upon? Or do you mean that you don't want the user to sve the workbook at all?

To stop the user from saving the workbook at all you can do this:

1. Right click on the XL sheet icon to the left of the "File" menu, choose "View Code".
2. Copy and Paste this code:


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

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

That will stop them from saving (assuming that they don't turn off macros at startup).

Forcing the user save in a specific directory is a bit more tricky. If this is what you want to do then let me know what the full path of the directory is and I can code this if you want. e.g. "C:TempMyImportantFiles"


_________________
Mark O'Brien

[ This Message was edited by: Mark O'Brien on 2002-02-21 07:32 ]

[nicademas]

I need them to be only able to save - in the directory they open it from & not save-as becasue they tend to put the files in the strangest places & very valuable data is lost.

Thanks so much!
Nica

[salcampbell]

please explain how to perform your first point - do not want them to be able to "save as" only "save." thanks

[Cbrine]

Nica,
The easiest way would be to customezie each of the users toolbars and remove the saveas option and button. This would prevent "illiterate" users from saving everywhere.

The first save of a file would be prompted for a folder, then they would only be able to overwrite the current file name.

HTH
Cal

PS-I would recommend training the users vs. limiting thier access to functionality, so I hope you have a good reason.

[salcampbell]

our agency is too large to do that, they create copies of the original file...isn't there a way to use macros to do something

[Cbrine]

Nica,
If you are talking about a single file, and the user security is set to medium, this would be possible, but to limit all users save options for all files, it would have to be on a single PC basis.

HTH
Cal

[Mark O'Brien]

I just got a great question via PM.

"How do you add the code that I suggested to a workbook and then save it?"

The easiest answer is to do the following:

After you have made the code changes you need to make.

1. Go to View|Toolbars and choose "Visual Basic"
2. Toggle the 6th control from the left "Design Mode"
3. Save your workbook
4. Close and reopen the workbook. Design mode should be off.

[Jorne]

These codes works fine thanks.

But how do you prevent users from taking the file (without opening it) and copy paste it to somewhere else?

[TobiasTokio]

But is it still possible to save the workbook with a macro function?