Рабочая книга перед закрытием Не работает для некоторых, но работает для других - PullRequest
0 голосов
/ 05 июня 2019

У меня есть следующие коды, которые работают для некоторых людей, но не для других. Следующее делает обратное при открытии электронной таблицы. Может ли это быть настройка, которую он превосходит?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Control As Office.CommandBarControl

Application.CommandBars("ply").Enabled = True     'disables right-Click on 
sheet tab

For Each Control In Application.CommandBars.FindControls(ID:=21)    
'disables CUT
Control.Enabled = True
Next Control For Each Control In 
Application.CommandBars.FindControls(ID:=19)     'disables COPY
    Control.Enabled = True
 Next Control

Application.DisplayFormulaBar = True
Application.CutCopyMode = True
Application.CellDragAndDrop = True

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...