Read only program

[Qroozn]

Good evening guys.
I have an excel program running.
What i want is to make it so the user can only use the program... but they can never actually save it. all changes made within the program will actually be saved to a seperate file on the c:.
and reopening the excel program will automatically rectify these links.

How can i limit all access to saving the program.?

TIA

[Ivan F Moala]

On 2002-03-17 21:25, Qroozn wrote:
Good evening guys.
I have an excel program running.
What i want is to make it so the user can only use the program... but they can never actually save it. all changes made within the program will actually be saved to a seperate file on the c:.
and reopening the excel program will automatically rectify these links.

How can i limit all access to saving the program.?

TIA

Placed into the ThisWorkbook module

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

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


Ivan

[Dave Hawley]

Hi Qroozn


Part 2 of Ivans solution will work, but part one would stop the Workbook from being closed, I'm not sure if you want that.

Why not just make the file 'Read-only'?

[Ivan F Moala]

On 2002-03-17 23:33, Dave Hawley wrote:
Hi Qroozn


Part 2 of Ivans solution will work, but part one would stop the Workbook from being closed, I'm not sure if you want that.

Why not just make the file 'Read-only'?

Didn't check !!

Do what dave suggested Save workbook BUT
put password in for open as read only.
Then place this code in

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Pwd
Pwd = InputBox("Enter password to save")
If Pwd <> "me" Then Cancel = True
End Sub

Ivan