Help in turning Alerts & Prompts off (not as easy as you think!)

[jbugman]

Hello,

Turning prompts/alerts off and on in excel is easy with:

Application.DisplayAlerts = False 
' Your code
Application.DisplayAlerts = True

However, I am working in a shared workbook. When I want to unshare the workbook, i dont want the prompt "am i sure" bit etc.

Adding the bit above, it doesnt work, any ideas, i really need this to work without user prompt (I can get it to share without it lol)

Sub unshareme()

Application.DisplayAlerts = False '

If ActiveWorkbook.MultiUserEditing Then
    ActiveWorkbook.ExclusiveAccess

    End If
Application.DisplayAlerts = True 
End Sub

Many thanks for this

 

[Peter_SSs]

However, I am working in a shared workbook. When I want to unshare the workbook, i dont want the prompt "am i sure" bit etc.

Sub unshareme()

Application.DisplayAlerts = False '

If ActiveWorkbook.MultiUserEditing Then
    ActiveWorkbook.ExclusiveAccess

    End If
Application.DisplayAlerts = True 
End Sub

Many thanks for this

Welcome to the MrExcel board!

That code seems to work for me. I had the shared workbook open on two machines (Excel 2002 and Excel 2007) and ran the code without receiving any warning/alert. The result was an unshared workbook on the machine I ran the code on and the other machine now locked out of the workbook.

Of course, any changes but not saved by the other user(s) will be lost.