Can't get this working, tried everything!Please Help

[cjsmile2016]

Problem with the below macro. It disables everything like its supposed to, but when you close the workbook it does not re-enable everything back. I need it to stay Private (hidden). Can't this be done?!?

Module
Private Sub DisableCopyCutAndPaste()
EnableControl 21, False ' cut
EnableControl 19, False ' copy
EnableControl 22, False ' paste
EnableControl 755, False ' pastespecial
EnableControl 848, False ' move/copy sheet
Application.OnKey "^c", "Dummy"
Application.OnKey "^v", "Dummy"
Application.OnKey "+{DEL}", "Dummy"
Application.OnKey "+{INSERT}", "Dummy"
Application.CellDragAndDrop = False
Application.OnDoubleClick = ""
CommandBars("ToolBar List").Enabled = False
End Sub

Private Sub EnableCopyCutAndPaste()
EnableControl 21, True ' cut
EnableControl 19, True ' copy
EnableControl 22, True ' paste
EnableControl 755, True ' pastespecial
EnableControl 848, True ' move/copy sheet
Application.OnKey "^c"
Application.OnKey "^v"
Application.OnKey "+{DEL}"
Application.OnKey "+{INSERT}"
Application.CellDragAndDrop = True
Application.OnDoubleClick = ""
CommandBars("ToolBar List").Enabled = True
End Sub

Private Sub EnableControl(Id As Integer, Enabled As Boolean)
Dim CB As CommandBar
Dim C As CommandBarControl

On Error Resume Next
For Each CB In Application.CommandBars
Set C = CB.FindControl(Id:=Id, recursive:=True)
If Not C Is Nothing Then C.Enabled = Enabled
Next
End Sub

Sub Dummy()
'// NoGo
MsgBox "Sorry command not Available!"
End Sub

ThisWorkbook
Private Sub Workbook_Open()
DisableCopyCutAndPaste = EnableControl
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
EnableCopyCutAndPaste = EnableControl
End Sub

Please Help, and Thank you!
Tim

 

[Von Pookie]

Do you have the Workbook_Open and Workbook_BeforeClose macros in the right place?

Those need to go in the ThisWorkbook module.

 

[Norie]

I'm not sure but I think this might have been solved over here Disable/enable not working on Ozgrid.