In the attached, the XL file should kill / delete itself when I close it.
Excel shows a warning message before deletion.
Is there any way to disable this warning message or any message if possible?
Note:
I added the line: application.displayalerts = false but still getting warning Msgs.
In the current Code you are making a MsgBox yourself to warn that you're deleting the workbook... MsgBoxes are not warnings/Alerts, so they cannot be disabled. If you want to get rid of it simply remove the alert.
The Red text isn't needed if you do not want the msgbox to show, remove that and it should work... Also need to remove the If statement since it's dependable on the answer in the msgbox...
[VBA]
Option Explicit
Private Const MSG_TITLE As String = "Deleting Current Workbook ..."
Private Const MSG_TEXT As String = _
"You are about to permanently delete the current workbook located in :"
'pate a ref. to this in before close
Sub Kill_Myself()
Application.DisplayAlerts = False
Dim lUserDecision As Long
Dim sMsg As String
Beep
lUserDecision = _
MsgBox(sMsg, vbExclamation + vbYesNo, MSG_TITLE)
With ThisWorkbook
If lUserDecision = vbYes Then
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End If
End With
End Sub
[/VBA]
I'd warn you to use it like this though, since you can really get screwed if you do not use it correctly...
Code would become like this:
[VBA]
Option Explicit
'pate a ref. to this in before close
Sub Kill_Myself()
Application.DisplayAlerts = False
Dim lUserDecision As Long
On Error Resume Next
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Posting Permissions
Reply With Quote
