Запрет на редактирование

[Aleksandr]

Подскажите пожалуйста. Как сделать так чтобы некоторые пользователи не могли редактировать документ

[ru3000]

Защитить лист. Защитить книгу. Доступ к книге .Дать общий доступ... поковыряй.

[Aleksandr]

Я так делал. А как с помощью VB.

[Aleksandr]

Вот мой код. Но если я открываю общий доступ к книге то выскакивает ошибка 14004 и книга не разворачивается.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Что бы панель была доступна в других документах
    With Application
        .DisplayFormulaBar = True
        .DisplayStatusBar = True
        .ShowWindowsInTaskbar = True
        .CommandBars.ActiveMenuBar.Enabled = True
        .CommandBars("Standard").Enabled = True
        .CommandBars("Formatting").Enabled = True
        .CommandBars("Visual Basic").Enabled = True
        .CommandBars("Web").Enabled = True
        .CommandBars("WordArt").Enabled = True
        .CommandBars("Clipboard").Enabled = True
        .CommandBars("External Data").Enabled = True
        .CommandBars("Picture").Enabled = True
        .CommandBars("Stop Recording").Enabled = True
        .CommandBars("Reviewing").Enabled = True
        .CommandBars("Drawing").Enabled = True
        .CommandBars("PivotTable").Enabled = True
        .CommandBars("Forms").Enabled = True
        .CommandBars("Control Toolbox").Enabled = True
    End With
    Application.CommandBars("Control Toolbox").Enabled = True
    ' Что бы панель была доступна в других документах
    Application.CommandBars.ActiveMenuBar.Enabled = True
    'Показываем ярлыки листов в других книгах
    ActiveWindow.DisplayWorkbookTabs = True
End Sub