Copy 'Change all cells in the worksheet to values if you want 'With Destwb.
Make a selection in that list, and a macro will run to change the sheet protection.
The first step is to add a drop down list, somewhere in the workbook.
The file send in outlook has this name: Part of 2017 30-mar-17----Sub Emailasexcel() Dim Out App As Object Dim Out Mail As Object Dim File Ext Str As String Dim File Format Num As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim Temp File Path As String Dim Temp File Name As String With Application . Enable Events = False End With Email To = Worksheets("Coding"). Unless you email the entire source workbook or save a copy of it via Save As, then email the entire copy, you can't avoid making the worksheet copy.
Cells(5, 9) Set Sourcewb = Active Workbook 'Copy the Active Sheet to a new workbook Active Sheet.
which obviously isn't working because the screen updates a whole lot afterwards. I almost wish this were more complicated; the fact that everything looks so simple is making it difficult to think of what could possibly be happening! So this morning application.screen Updating was working as expected. The test code that I wrote is below: Sub test() Debug. One thing that seems to be common among those modules not working, is that they all contain code that changes worksheets. In any case, it's a real mystery why this happens from one day to another!
I started to debug, and immediately after the "Screen Updating = false" line executes, I go to the immediate window and type: Debug. Any clues on how to solve it would be greatly appreciated. Screen Updating = True End Sub _________________________________________________________ Private Sub Check_for_Open_Workbook() Application.
In this example, the drop down list will be added to a sheet named Admin.
To add the drop down list: The next step is to add code to the Admin worksheet, and it will run when the selection changes in cell B3.
Hi al When you use this test macro in Windows to avoid the problem that you can't copy grouped sheets with a Table in one of them you not see the screen flicker.
Enable Events = False End With Set Sourcewb = Active Workbook 'Copy the sheets to a new workbook 'We add a temporary Window to avoid the Copy problem 'if there is a List or Table in one of the sheets and 'if the sheets are grouped With Sourcewb Set The Active Window = Active Window Set Temp Window = .
Screen Updating = false" because I saw the yellow highlight go over the line in debug mode. Calculation = xl Calculation Automatic Application. Screen Updating from within the code instead of the immediate window, but I'm fairly sure what I'll find. This function gets called by an event handler that catches a Commands Bar button event (? Basically, we create a menu bar and one of the buttons in our custom "File" menu is labeled "Load Portfolio" which calls this function. I have encountered the same symptoms and can't think as to why it's happening. I think that maybe something has broken in my excel because even when I closed out of excel and opened a brand new 2003 workbook with no previous code I was getting the same problem. The interesting thing is that *some* of my modules allow Screen Updating to be set to False, there's only a few that don't.