Results 1 to 5 of 5
  1. #1
    New Lounger
    Join Date
    Aug 2003
    Posts
    11
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Talking

    We have a workbook that contains a mass of data valuable to a competitor. It has to be available to view by employees via the intranet/vpn. We want to prevent any data being copied to another 'unsecured' workbook. I can prevent cut,copy,paste,print,save, save as but I cannot find/figure out how to prevent the 'Save as web page' or the 'Save as' on the Excel logo top left of the workbook. Anyone help me out here?

  2. #2
    5 Star Lounger
    Join Date
    Aug 2001
    Location
    Surrey, United Kingdom
    Posts
    1,001
    Thanks
    0
    Thanked 0 Times in 0 Posts
    [quote name='barberdt' post='765987' date='18-Mar-2009 09:39']We have a workbook that contains a mass of data valuable to a competitor. It has to be available to view by employees via the intranet/vpn. We want to prevent any data being copied to another 'unsecured' workbook. I can prevent cut,copy,paste,print,save, save as but I cannot find/figure out how to prevent the 'Save as web page' or the 'Save as' on the Excel logo top left of the workbook. Anyone help me out here?[/quote]

    Morning

    This should disable the 'Save as' part of your question

    Code:
    Private Sub Workbook_Open() 
    	Application. CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save As...").Enabled = False 
    	Application.CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save").Enabled = False 
    End Sub
    Cheers

    Steve
    Cheers

    Steve

    Asking the questions everbody wants the answers too but feels too stupid to ask themselves :-)

  3. #3
    New Lounger
    Join Date
    Aug 2003
    Posts
    11
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Steve
    Many thanks for the help but this does not prevent a user from doing a 'File-Save as Web Page..' or prevent a 'Save as..' from the Excel logo.

    Got any more ideas?

    Dave B.

    [quote name='stevehocking' post='765989' date='18-Mar-2009 11:09']Morning

    This should disable the 'Save as' part of your question

    Code:
    Private Sub Workbook_Open() 
    	Application. CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save As...").Enabled = False 
    	Application.CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save").Enabled = False 
    End Sub
    Cheers

    Steve[/quote]

  4. #4
    Plutonium Lounger
    Join Date
    Nov 2001
    Posts
    10,550
    Thanks
    0
    Thanked 7 Times in 7 Posts
    You could create a BeforeSave event for the workbook and always set the Cancel argument to be True.

    You may have to take steps to ensure that macros are always enabled, such as setting the sheet with the data to be VeryHidden and unhiding it from your macro when it runs.

    There will come a point where you have to trust your employees though, it can be really hard to prevent them taking a photo of the PC screen and sharing that, unless you are the kind of organization that can search employees for cameras at the door.

  5. #5
    WS Lounge VIP sdckapr's Avatar
    Join Date
    Jul 2002
    Location
    Pittsburgh, Pennsylvania, USA
    Posts
    11,225
    Thanks
    14
    Thanked 342 Times in 335 Posts
    [quote name='StuartR' post='769253' date='05-Apr-2009 08:14']There will come a point where you have to trust your employees though, it can be really hard to prevent them taking a photo of the PC screen and sharing that, unless you are the kind of organization that can search employees for cameras at the door.[/quote]

    Even print-screen will work and there are many ways to disable protection for those so inclined...

    Steve

Posting Permissions

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