Все же макрос работает на совсем корректно. Без профессиональной помощи не разберусь
На странице кнопка вызова определенного Меню
| Код |
|---|
Private Sub Admin_Menu_Click()
Admin_Menu_Initialize
Load Window_Menu
Window_Menu.Show vbModeless
End Sub |
В меню только 1 Флаг "Общий доступ у книге"
При инициализации меню "Admin_Menu_Initialize" я проверяю в каком состоянии сейчас "Доступ книге", чтобы Флаг корректно отображался
1 - при Общем доступе
0 - при отсутствии
| Код |
|---|
Private Sub Admin_Menu_Initialize()
If ActiveWorkbook.MultiUserEditing = True Then
Window_Menu.ExclusiveAccess_CheckBox.Value = True
Else
Window_Menu.ExclusiveAccess_CheckBox.Value = False
End If
End Sub |
При манипуляциях с Флагом (включить/выключить), код работает корректно (общий доступ работает, сохраняет в нужную директорию! !Но при условии, если прописано On Error Resume Next
'Действие при установки/снятии флажка "Включить общий доступ к книге"
| Код |
|---|
Private Sub ExclusiveAccess_CheckBox_Click()
Dim MyPath$, MyName$
MyPath = ThisWorkbook.Path
MyName = ThisWorkbook.Name
On Error Resume Next
If ExclusiveAccess_CheckBox.Value = False Then
Application.DisplayAlerts = False
ActiveWorkbook.ExclusiveAccess
Application.DisplayAlerts = True
Else
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs MyPath & "\" & MyName, AccessMode:=xlShared
Application.DisplayAlerts = True
End If
End Sub |
Иначе ругается Method 'ExclusiveAccess' of Object '_Workbook' failed
Конечно все работает с On Error Resume Next, но хочется понимать, можно ли иначе, так сказать по правильному
