Отмена вставки макросом только для одной книги

[Николай_0702]

Доброго всем времени суток! подскажите пожалуйста как сделать? Есть макрос, нашёл в глубинах интернета, который отменяет вставку в таблицу, в которой предусмотрен ручной ввод информации но если открыта эта книга действие макроса распространяется на всё открытое в экселе, на все книги! а нужно что бы он работал только в одной книге! макрос прилагаю. Заранее спасибо всем кто помог!

Sub Запрет()
'    Author: boa
'    e-mail: boa@ya.ru

Private Sub Workbook_Open()
   Dim cbBar As CommandBar
   With Application
       .OnKey "^{v}", "MyPaste"
       .OnKey "+{INSERT}", "MyPaste"
       For Each cbBar In .CommandBars
           On Error Resume Next
           cbBar.Controls("Вст&авить").OnAction = "MyPaste"
       Next cbBar
'        With CommandBars("Cell").Controls.Add(Type:=msoControlButton, Before:=1)
'            .OnAction = "MyPaste"
'            .FaceId = 22
'            .Caption = "Вставить значение"
'        End With
   End With
End Sub

Private Sub Броницы_1_BeforeClose(Cancel As Boolean)
'восстанавливаем всё на место при выходе
Dim cbBar As CommandBar
   With Application
       .OnKey "^{v}"
       .OnKey "+{INSERT}"
       For Each cbBar In .CommandBars
           On Error Resume Next
           cbBar.Reset
       Next cbBar
   End With
End Sub

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор