Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() I’ve searched as much as I can, to find out which how to disable sav completely, so effectivly, all ways to save should be disabled. Th 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 -- harpscardif ----------------------------------------------------------------------- harpscardiff's Profile: http://www.excelforum.com/member.php...fo&userid=2596 View this thread: http://www.excelforum.com/showthread.php?threadid=48344 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Set Up the Save Icon to "Gray Out" if No Changes since last Save | Excel Discussion (Misc queries) | |||
how to get disk icon on save button of save as dialog like 2000 | Excel Discussion (Misc queries) | |||
Placing a code before Save & Save As | Excel Programming | |||
Disabling Save Upon Exit | Excel Programming | |||
Disabling Save Pop-Up | Excel Programming |