Private Sub Ok_Click()
     ' если ошибка значит другой пользователь сохраняет файл
    On Error Resume Next
    Workbooks("grafikpost.xls").Save
    If Err Then
 10       If MsgBox("Приложение занято другим пользователем" & Chr( 13 ) & _
        "Для сохранения данных подождите немного и нажмите кнопку OK" & Chr( 13 ) & _
        " Продолжить выполнение? ", vbInformation + vbYesNo) = vbNo Then Exit Sub
        On Error Resume Next
        Workbooks("grafikpost.xls").Save
        If Err Then GoTo  10 
    End If
    On Error GoTo  0 
End Sub