Olá!

Gostaria de uma imensa ajuda à respeito de uma codificação que estou utilizando para bloquear as opções de copiar e colar dentro de uma pasta de trabalho.
A codificação que uso é essa abaixo:

Private Sub Workbook_Activate()

Dim oCtrl As Office.CommandBarControl

 

'Desabilita todos os comandos de Recortar

     For Each oCtrl In Application.CommandBars.FindControls(ID:=21)

            oCtrl.Enabled = False

     Next oCtrl

 

'Desabilita todos os comandos de Copiar

     For Each oCtrl In Application.CommandBars.FindControls(ID:=19)

            oCtrl.Enabled = False

     Next oCtrl

 

        Application.CellDragAndDrop = False

 

End Sub

 

Private Sub Workbook_Deactivate()

Dim oCtrl As Office.CommandBarControl

 

'Habilita todos os comandos de Recortar

 

     For Each oCtrl In Application.CommandBars.FindControls(ID:=21)

            oCtrl.Enabled = True

     Next oCtrl

 

'Desabilita todos os comandos de Copiar

     For Each oCtrl In Application.CommandBars.FindControls(ID:=19)

            oCtrl.Enabled = True

     Next oCtrl

 

        Application.CellDragAndDrop = True

 

End Sub

 

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

    With Application

        .CellDragAndDrop = False

        .CutCopyMode = False 'limpa a área de transferência

    End With

End Sub

Há uma opção avançada no excel para habilitar ou não a alça de preenchimento, e o problema é que com essa macro ela desativa porém não ativa novamente quando fecho o arquivo.
Há alguma codificação que possa reativá-la?