Pause vba for manual action in excel

[jokkebal]

I want to allow users to sort a protected worksheet. Apparently, this is not possible without unprotecting. This is the workaround I think about :

• user launches macro (button, shortcut,...) that unprotects for, say 15 seconds.
• user can now sort
• vba reprotrects after the 15 seconds

In other words, VBA should not wait until something happens (filling of a cell,...), just re-protect when 15 seconds are over

How can I do this ?

 

[ryansclev]

The following subs should unprotect the sheet for 15 seconds and allow edits before protecting the sheet again.

Sub ProtectOnOff()
ActiveSheet.Unprotect Password:="Password"
Application.OnTime Now() + (TimeValue("00:00:15")), "ProtectSheet"
End Sub

Sub ProtectSheet()
ActiveSheet.Protect Password:="Password"
MsgBox "Worksheet Protected"
End Sub

 

[jokkebal]

This exactly does what I hoped for, plus the MsgBox as an extra. Many thanks !