Всем привет.
Добавил макрос в файл суть которого в следующем при открытии книги отключаются функции копировать вставить, а при закрытии книги функции становятся активными.
Единственное теперь у меня не активна функции:
"добавить ячейки"
"добавить скопированные ячейки"
"добавить вырезанные ячейки"
Может что в макросе не хватает, помогите кто сможет:) Макрос ниже.
Dim ComBar As CommandBar
Dim ComBarCtrl As CommandBarControl
Private Sub Workbook_Open()
DisAbleAllCLear
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
DisAbleAllok
End Sub
Sub DisAbleAllok()
EnableControl 295, True
EnableControl 296, True
EnableControl 297, True
EnableControl 478, True
EnableControl 292, True
EnableControl 293, True
EnableControl 294, True
EnableControl 847, True
EnableControl 21, True
EnableControl 19, True
EnableControl 22, True
EnableControl 755, True
EnableControl 3125, True
EnableControl 1964, True
EnableControl 872, True
EnableControl 873, True
EnableControl 874, True
With Application
.OnKey "^c", "Dummy"
.OnKey "^v", "Dummy"
.OnKey "+{DEL}", "Dummy"
.OnKey "+{INSERT}", "Dummy"
.CellDragAndDrop = False
.OnDoubleClick = "Dummy"
End With
End Sub
Sub DisAbleAllCLear()
EnableControl 295, False
EnableControl 296, False
EnableControl 297, False
EnableControl 478, False
EnableControl 292, False
EnableControl 293, False
EnableControl 294, False
EnableControl 847, False
EnableControl 21, False
EnableControl 19, False
EnableControl 22, False
EnableControl 755, False
EnableControl 3125, False
EnableControl 1964, False
EnableControl 872, False
EnableControl 873, False
EnableControl 874, False
With Application
.OnKey "^c", "Dummy"
.OnKey "^v", "Dummy"
.OnKey "+{DEL}", "Dummy"
.OnKey "+{INSERT}", "Dummy"
.CellDragAndDrop = False
.OnDoubleClick = "Dummy"
End With
End Sub
Sub EnableControl(iId As Integer, blnState As Boolean)
Dim ComBar As CommandBar
Dim ComBarCtrl As CommandBarControl
On Error Resume Next
For Each ComBar In Application.CommandBars
Set ComBarCtrl = ComBar.FindControl(ID:=iId, recursive:=True)
If Not ComBarCtrl Is Nothing Then ComBarCtrl.Enabled = blnState
Next
End Sub