Thanks Thanks:  0
Likes Likes:  0
Results 1 to 4 of 4

Thread: Read only program

  1. #1
    Board Regular
    Join Date
    Mar 2002
    Location
    Sydney/Brisbane , Australia
    Posts
    542
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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

  2. #2
    MrExcel MVP Ivan F Moala's Avatar
    Join Date
    Feb 2002
    Location
    Auckland, New Zealand
    Posts
    4,209
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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

  3. #3
    Rest in Peace
    Join Date
    Feb 2002
    Posts
    1,582
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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'?

  4. #4
    MrExcel MVP Ivan F Moala's Avatar
    Join Date
    Feb 2002
    Location
    Auckland, New Zealand
    Posts
    4,209
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •