Ho 7 macro che impediscono a un utente di copiare e incollare in una cartella di lavoro.
Tuttavia, ogni tanto voglio essere in grado di copiare e incollare. C'è un modo per disabilitare queste macro con un'altra macro?
Posso solo trovare informazioni su come disabilitare tutte le macro e questo non sembra realizzabile con un'altra macro stessa.
Vorrei anche essere in grado di riattivare le macro e pianificare l'esecuzione di questa macro ogni volta che la cartella di lavoro viene chiusa, in modo che l'utente successivo, per impostazione predefinita, non possa copiare e incollare.
Di seguito sono riportate le macro che utilizzo per impedire la copia e l'incollaggio.
Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub