O
ososmarmy
Is there a way to prevent a protected workbook and worksheet from bein
"saved as" a text file. I'm using excel 2002 and windows 2000
"saved as" a text file. I'm using excel 2002 and windows 2000
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
I
icestationzbra
do you mean a "txt" extension file, or just being "Saved As" anything?
O
ososmarmy
If I can prevent it from being "saved as" anything that would be great.
I'm just trying to prevent the copy protection from being worked
around.
I'm just trying to prevent the copy protection from being worked
around.
D
Dave Peterson
Almost anything you do to try to stop this would involve macros. And that won't
stop the really dedicated.
But something like this in the ThisWorkbook module will stop some (maybe even
most):
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
MsgBox "Please don't save this"
Cancel = True
End If
End Sub
But I could use windows explorer and just copy it somewhere else.
(Or copy the cells into another workbook and save that one. Excel isn't made
for this kind of security.)
stop the really dedicated.
But something like this in the ThisWorkbook module will stop some (maybe even
most):
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
MsgBox "Please don't save this"
Cancel = True
End If
End Sub
But I could use windows explorer and just copy it somewhere else.
(Or copy the cells into another workbook and save that one. Excel isn't made
for this kind of security.)
I
icestationzbra
there is no way to make it foolproof. one can simply copy a file to
another location, rather than using SaveAs.
here is a way to avoid SaveAs. it is a VB macro.
this macro was provided by harlan and dave in one of my earlier posts.
this code needs to go into the WorkBook_BeforeSave procedure.
If SaveAsUI = True Then
MsgBox "Restriction on FileSaveAs location!", vbCritical
Cancel = True
Exit Sub
End If
another location, rather than using SaveAs.
here is a way to avoid SaveAs. it is a VB macro.
this macro was provided by harlan and dave in one of my earlier posts.
this code needs to go into the WorkBook_BeforeSave procedure.
If SaveAsUI = True Then
MsgBox "Restriction on FileSaveAs location!", vbCritical
Cancel = True
Exit Sub
End If
O
ososmarmy
Thanks for your help. At least I can weed out the truly unmotivated.