
Option Explicit
Sub apriomeno()
Dim wb As Workbook
Set wb = Application.Workbooks.Open("percordoenomefile")
If wb.ReadOnly Then
wb.Close
Set wb = Nothing
Application.Wait (Now + TimeValue("0:00:10"))
Set wb = Application.Workbooks.Open("percordoenomefile")
Else
''cosa fare se non è aperto
End If
Set wb = Nothing
End Sub
|
