Don't bother. If the user really wants to save the workbook, there's
utlimately nothing you can do to stop them. All of your methods would be
defeated simply by opening the workbook with macros disabled. Or by
switching to VBA and saving the workbook manually. Or by using Customise to
reassign the Save command to any toolbar or menu. Etc.
In practice, it's just as effective to put a note in the workbook: "Please
don't save this workbook."
"harpscardiff"
wrote in message
news:harpscardiff.1y875b_1131533422.7986@excelforu m-nospam.com...
I've searched as much as I can, to find out which how to disable save
completely, so effectivly, all ways to save should be disabled. The
user won't need to save the document.
This is what I have found:
1.
Code:
--------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If SaveAsUI Then
Msgbox "The 'Save As' function has been disabled.", vbInformation, "Save
As Disabled"
Cancel = True
End If
End Sub
--------------------
2.
Code:
--------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Close SaveChanges:=False
End Sub
--------------------
3.
Code:
--------------------
Private Sub StopSave()
' Trap and call the OurSaveProcedure() macro when Control-S is pressed
If Application.OnKey("^s", "") Then ' Prefix ^ (caret) for Ctrl key
Msgbox "Save has been disabled"
End If
End Sub
--------------------
4.
Code:
--------------------
Public Sub MenuSave(Enable As Boolean)
'////////////////////////////////////////////////////////'
'/ /'
'/ - Worksheet Menu and Standard Menu - /'
'/ Enable or Disable Save Menu Option /'
'/ /'
'////////////////////////////////////////////////////////'
'Written April 25, 2005
'Author: Leith Ross
'E-mail:
Dim Status
Dim CmdBar1 As CommandBar
Dim CmdBar2 As CommandBar
Set CmdBar1 = Excel.CommandBars("Worksheet Menu
Bar").Controls("File").CommandBar
Status = Enable
For I = 1 To CmdBar1.Controls.Count
CtrlName = CmdBar1.Controls(I).Caption
If CtrlName = "&Save" Then
CmdBar1.Controls(I).Enabled = Status
End If
Next I
Set CmdBar2 = Excel.CommandBars("Standard")
CmdBar2.Controls("Save").Enabled = Status
End Sub
--------------------
Which is the best to use?
Apprecaite your time.
--
harpscardiff
------------------------------------------------------------------------
harpscardiff's Profile:
http://www.excelforum.com/member.php...o&userid=25960
View this thread: http://www.excelforum.com/showthread...hreadid=483443