Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

SECURE Workbook?

Status
Not open for further replies.

VulcanJedi

Technical User
Oct 2, 2002
430
0
0
US
Is there any good / real way to secure a workbook?
I know you can lock cells and password protect files....etc.
All I want is that when people open the file they can edit and do whatever they want....BUT:

NO SAVING PERIOD. Not via buttons...not prompted when exiting.
NO BS SAVE AS feature, no copy/paste the sheet to a new book to rename...if they disables ability to cut/copy/paste so be it.

The form is controlled and has little data entry thanks to code anyhow.

Anybody have good insights/approaches? Either from XL inherently or via VBA? TIA

tranpkp [yinyang] Tranpkp [pc2]
 
Hi,

There is a little funtion that may point you in the right direction.

Place this code in the ThisWorkbook module

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

The only problem with this is that you can't save the code for it to work. Catch 22.

You can also disable the Cut/Copy/Paste functionality.

Hope this gives some insight.

Matt Smith

No two nulls are the same
 
Just a little Microsoft humour. This has got to be one of the most useless functions built unless I have completely missed something. Matt Smith

No two nulls are the same
 
You could query the keyboard state in the beforesave event, so that it would save if ALT+SHIFT+CONTROL are all pressed... Rob
[flowerface]
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top