After Save Event

[Magdoulin]

Hi guys, I hope you are doing well.

Would you please assist with the below.

I’m attaching after save event to close.

However, I want to proceed with an update to ask the code to close the sheet as read-only mode.

What kind of modification I should apply here?

[COLOR=#252C2F][FONT=Courier]Private Sub Workbook_AfterSave(ByVal Success As Boolean)
[/FONT][/COLOR]If Success Then
ThisWorkbook.Close
End If
End Sub

P.S. this post was originally posted in ozgrid but there was no solution there:
https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/1204146-after-save-event

 

[Trevor_S]

The file will already have saved by the time the AfterSave code runs, so perhaps you need the code to resave it to the same place as read-only recommended?

With ActiveWorkbook
  .SaveAs(.Path & "/" & .Name,,,,True)
End With

 

[Trevor_S]

Alternatively you can use the SaveAs to create passwords to prevent editing. The other arguments of the SaveAs code are at: https://msdn.microsoft.com/en-us/vba/excel-vba/articles/workbook-saveas-method-excel

 

[Magdoulin]

yes, exactly, I need the save to be with read-only
but not resave, just save with read only mode activated
how could I do that?

 

[Trevor_S]

Sorry for the delay in replying. If the save is to be done by macro, use the code that I provided before in that macro. But that won't stop anyone bypassing it by saving using File>SaveAs or Ctrl+S. The only way you can catch that is putting something in the After Save event which overwrites the save that they have done with a read-only recommended version.