adding code to existing code

[rickblunt]

Greetings, I have learned a lot from all of you gurus out there, but I am still such a noob. I am using the following code to launch a custom tool bar:

Private Sub WorkBook_Activate()
    On Error Resume Next
 
        With Application.CommandBars("Daily Checklist")
            .Enabled = True
                .Visible = True
                End With
        On Error GoTo 0
 
End Sub

Now I would like to add the following snippet to disable the ability in the WB to drag and drop. But I can't figure out how to add that in without getting errors.

Application.CellDragAndDrop = False

Could someone give me a little help on adding the drag and drop code into the workbook_deactivate sub - thanks, RB

P.S - if anyone knows of a book that details how to structure codes in this kind of detail I would buy it in a minute!

 

[hiker95]

rickblunt,

See:
Response by mikerickson
http://www.ozgrid.com/forum/showthread.php?t=89438&page=1

 

[rickblunt]

Thanks for the response, that certainly is another way of doing it, but I still dont know how to enter in that snippet of code to existing code, that is where my limited knowledge gets me stuck....

 

[hiker95]

rickblunt,

I tested your WorkBook_Activate code below, without the code for the CommandBars section, and after I saved the test workbook, and opened it again, I was NOT able to drag and drop.



Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

Private Sub WorkBook_Activate()
On Error Resume Next
With Application.CommandBars("Daily Checklist")
  .Enabled = True
  .Visible = True
End With
On Error GoTo 0

On Error Resume Next
Application.CellDragAndDrop = False
On Error GoTo 0

End Sub

 

[rickblunt]

Thanks Hiker, your code is one of the ways I tried it, so it looks like I was on the right track, but I get errors. I will dig a lot deeper and see if I can track it down. At least you have confirmed that my syntax is correct, that is very helpful. I appreciate it - RB