Run When Workbook Opens

Oct 4, 2008

How do I run this I can not get it to work I keep getting errors this is the way I have it for now.

Private Sub ThisWorkbook_Open()
MY_MONTH = Month(Now()) + 5
With Sheets("Master List")
.Unprotect ("123")
.Columns("A").Locked = False
.Columns("A").Hidden = True
.Columns("T:IV").Hidden = True
.Rows("265:65536").Hidden = True
.Columns("E:Q").Locked = False
.Columns("E:Q").Hidden = True
.Columns(MY_MONTH).Hidden = False
.Columns(MY_MONTH - 1).Hidden = False
.Columns(MY_MONTH - 1).Locked = True
Dim ws As Worksheet
For Each ws In Sheets([{"JAN","FEB","MAR","APR","MAY","JUN","JUL","AUG","SEP","OCT","NOV","DEC","2008","Read Me","Record"}])
With ws
.Protect ("123")
End With
End Sub
Compile error: Expected End With

View 9 Replies


Options When Workbook Opens

Jan 31, 2010

I would really like to know if there is a way that when my workbook opens if the following can happen?

- Not display the tabs (NOT "HIDE" the sheets, just not be able to view the tabs themselves)
- Go to full screen (not display ribbon)

View 6 Replies View Related

Autofilter When Workbook Opens

Jul 16, 2008

My workbooks contains 2 worksheets with data and autofilters on for each column in use.

When my workbook opens I am trying to reset the autofilters of each worksheet in the workbook and to filter the data according to one criteria in one column.

This is what I have that works to reset each worksheet but I haven't been able to figure out how to subsequently filter each worksheet.

Private Sub Workbook_Open()
Application.ScreenUpdating = False
For Each w In Worksheets
If w.FilterMode Then w.ShowAllData
w.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Next w
Application.ScreenUpdating = True
End Sub

The autofilter sits in A3 to N3 and I am trying to filter according to column M (i.e. 13th column)

View 9 Replies View Related

Add-in Opens Workbook It Was Created In

Oct 27, 2006

I've created an add-in that runs a simple macro. The problem I have is that when I run the add-in it opens the workbook I originally created it from - is this what I should expect it to do? How do I stop this from happening?

Also, do I need to have the workbook from which I created the add in located in the same place on every machine I want to use the add in on? At the moment if I move the original workbook the add-in won't work.

View 9 Replies View Related

Stop The Calculations When The Workbook Opens

Nov 24, 2009

I need to stop the calculations when the workbook opens. I have tried

View 2 Replies View Related

Workbook Automatically Opens After Closing

Jan 6, 2010

I have a workbook on a share drive that is used by multiple people. In the event that someone leaves the workbook open after using it, I have a timer function that pops up a splash screen after 4 minutes of inactivity which states, "This workbook will close in 1 minute if there is no further activity". If there is no further activity in that minute, the workbook closes.

The code works fine...unless the workbook is manually closed in that minute between the splash screen and when the timer would have closed the workbook. If that happens, the workbook closes normally and then briefly reopens and closes a minute later when the timer would have closed the workbook. Is there any code to prevent this?

View 4 Replies View Related

Calling Subs When Workbook Opens

Mar 7, 2012

I have the following code in a module that I would like to initiate when the workbook opens:

Private Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" ( _
ByVal lpBuffer As String, _
ByRef nSize As Long) As Long

Public Property Get ComputerName() As String

[Code] ........

In a worksheet, I have =compname() in cell A1 and =hdserialnumber() in A2. What is the trick to make the values in these cells appear as soon as the worksheet opens?

View 2 Replies View Related

Date Formats Incorrect When VBA Opens Workbook

Apr 29, 2008

I'm new to VBA so my i'm having alot of problems figuring out simple stuff.

Below is my script and when i run it, the dates turns out incorrect.

I noticed this only happens to dates that are before 13th of each month.


1st May 2008 ( 01/05/2008)

will turn up as

5th Jan 2008 ( 05/01/2008)

However when i manually open the file Todays trades.csv
The date looks just fine.

Is there some problem with using VBA to call up the file?

View 9 Replies View Related

Force Specified Sheet To Display When Workbook Opens

Jun 11, 2013

I need to set the "Sheet1" to be the sheet that always displays first, regardless of what sheet was active when last saved.

The reason is that I have a sheet with instructions on it as how to use the Workbook, including "You must Enable Macros" etc. When Macros are enabled, it's all good, as most people use a USERFORM which I have coded to set "Sheet1".Select and save their work upon closing using the USERFORM.

BUT when the advanced users modify other Sheets directly without using the USERFORM, and "SAVE" and then "Close" , the next time a user opens the Workbook (If they do not enable Macros) it opens to the sheet the advanced user Saved on. Thus killing my instructions page and putting the exact people I did not want messing around on certain sheets, on those sheets, fully bypassing the USERFORM created to avoid the problem.

I can force the workbook to switch to "Sheet1" and Save and Close, every time someone closes or EXITs, BUT I quickly realized when testing that any mistakes made are then permanent because you cant EXIT without Saving.

So. Is there a setting somewhere (Not Requiring Enabled Macros) to force a Workbook to ALWAYS open "Sheet1" first, regardless of what Sheet was last saved in the Workbook?

View 8 Replies View Related

When The Workbook Opens Compile Error In 2007

Jan 8, 2009

I have written a very basic Macro code to retrieve a photo off of my server. I want it to run this macro when a person has selected a certain item off of a drop down list. The problem I am having is that when I try and run the macro manually or when the workbook opens I get a an error message that reads "Compile Error: Invalid outside procedure". I click "Okay" and it highlights this portion of the code

View 5 Replies View Related

Display Message On First Of Every Month When Workbook Opens

Nov 28, 2012

Is there a way of displaying a message box on the first of every month when a workbook opens ?

View 2 Replies View Related

Worksheet Activate Not Happening When Workbook First Opens

May 18, 2009

I have a workbook where the sheets are all protected and I want to stop users scrolling up or across beyond the limits of the input areas.
I have used the following code (or variations of)...

Private Sub Worksheet_Activate()
Me.ScrollArea = "A1:G32"
End Sub

This works fine except that when I first open the workbook, the first sheet displayed can still be scrolled. As soon as you move to another sheet and then back again, it is then OK.

It appears that the Worksheet_Activate code does not execute when the workbook is first opened.

How do I get round this?

View 9 Replies View Related

Data Dump Query When Workbook Opens

Aug 26, 2006

I am trying to find a way to automatically do a query and dump the data into a sheet when a previously created workbook is open. I know how to get the data (use the Tools, Import External Data option to retrieve data from Access) but what I don't know is how to make it do it automatically when the workbook is open.

View 2 Replies View Related

Workbook Opens Slowly With Certain User Profiles

Aug 6, 2007

I have a work book that contains 10sheets. considering one as main sheet remaning as sub sheets. I want to open main sheet from all other remaining sheets using a common button.when I tried normally is shows compile error: Ambiguous name detected. Any other way to solve it.

View 7 Replies View Related

Workbook Automatically Opens When Opening/Closing Any Other

Mar 14, 2008

I have a problem, where every time I close or open any workbook, Excel prompts me to "Enable or Disable Macros" in one particular workbook, wether I have tried to open it or not. In the said workbook, I have a macro that automatically updates a pivot table upon selecting the worksheet where the pivot table resides.

The code for it is as follows:

Sub UpdateIt()
Dim iP As Integer
Application.DisplayAlerts = False
For iP = 1 To ActiveSheet.PivotTables.Count
Application.DisplayAlerts = True
End Sub

Private Sub Worksheet_Activate()
Call UpdateIt
End Sub

There is something in the code that calls UpdateIt any time a workbook is opened, closed or selected.

View 3 Replies View Related

Automatically Open File When Another Workbook Opens

Jul 31, 2008

I am trying exactly the same things stated in here Open two workbooks at the same time as stated in the other thread's answer I would love to "just use the Workbook name IF both Workbooks are in the same folder." both files are in the same folder and this is the code that I am trying to use

Private Sub Workbook_Open()
Workbooks.Open ("toto1234.xls")

and it does not work any one explain me what I am doing wrong?

View 2 Replies View Related

Sort Column Using VBA When Workbook Opens - Runtime 91 Error

Jun 24, 2014

I'm trying to introduce some VBA code to an existing workbook that will automatically sort column A alphabetically on Sheet 2 (Summary) (excluding rows 1 & 2 as they contain headings) whenever the workbook is opened.

At the moment this code doesn't automatically run and when I run it manually I get a run-time error '91' the first time I try and when I run it for a second time (again manually) it works.

The code I've got at the moment is:

'The following code will run the sorting subroutine when the workbook is opened:
Private Sub Workbook_Open()
Call SortByWave
End Sub
'And this subroutine will enable the autofilter functionality, clear all existing filters and then filter the data on column A:
Sub SortByWave()

[Code] ......

View 5 Replies View Related

Opening Saved File Also Opens Blank Workbook

May 3, 2013

When I open any saved Excel file the saved file opens along with a blank workbook titled "Book 1". How can I make it so when I open any saved Excel file it only opens the file I want and not a new workbook every time?

View 2 Replies View Related

Excel Opens Multiple Workbooks When Opening Any Workbook?

Jan 27, 2005

The same two workbooks open when I open any other workbook. They also open up when I open Excel by itself.

View 9 Replies View Related

Workbook Open Events Fires Once. Subsequent Opens Causes Error

Oct 3, 2007

I have a program that uses the Document Open event to display a custom form. This program is being used on about 50 computers for the past 8 years with no problems. One user has a problem now. They can open the program once and the code fires. But when the user tries to open the same file a second time, the "Microsoft Excel has encountered a problem and needs to close" dialog box is displayed. The document that is recovered has no vba modules and no code in the Document open event. I've uninstalled and reinstalled Office Professional. Shut down all firewalls.

View 9 Replies View Related

Code That Copies A Range Opens Notepad Pastes The Range Opens Save Dialog And Types The File Name

Nov 6, 2009

I currently have the following code that copies a range opens notepad pastes the range opens save dialog and types the file name. The problem I have is with overwriting the existing file.

Shell "notepad.exe", vbNormalFocus
SendKeys "^V"
SendKeys "^s"
SendKeys "Total_IEDs_Hour_Of_Day_2009.xml"
SendKeys "{TAB}"
SendKeys "a"
SendKeys "{ENTER}"

Everything works fine to this point. Then it opens the do you want to overwrite dialog and I cant get it to hit yes.

View 9 Replies View Related

Run Sub When Worksheet Opens

Apr 24, 2007

I have a date displayed in a controlbutton caption that fails to refresh each time the worksheet is opened.

Q1: How do I run the sub below each time the user opens the worksheet?

Q2: Is there a better way to clear the contents of a textbox?

Private Sub ClearForm_Click()
ActiveSheet.Range("I4").Value = 0
ActiveSheet.Shapes("Text Box 12").Select
Selection.Characters.Text = ""
MailDate.Caption = Range("H11").Value
End Sub

View 9 Replies View Related

Opens Spreadsheet Twice

Dec 24, 2008

When I double click an excel spreadsheet in windows explorer it opens spreadsheet then closes it then opens it again.

This doesnt happen if I have an instance of excel already running.

I thought it might be to do with file association and the open with option.

View 9 Replies View Related

VBA That Opens Excel In New Window

May 3, 2014

I have a project were i have to make a macro and place in a workbook such that as soon as i open that excel file

1. excel workbook is opened in New Excel window
2. Ribbon is hidden for this new window.

So when user closes this excel window there is no problem with other workbook ribbon, as there are open in different window

I have tried with code stated below it hides the ribbon but new excel window is not open

Private sub Workbook_open()
Application.ExecuteExcel4Macro "Show.toolbar(""Ribbon"",False)"
End Sub

View 2 Replies View Related

Randomize When File Opens

Sep 14, 2009

This is a follow-on to a great solution provided by Shg and Rylo. Here is the link.

My users have run in to an interesting issue with the file. Each time the files opens it has the same 5 questions selected. What I need the code to do is randomize the questions each time the sheet is opened. Basically, the users seem to have a problem using the "make quiz" button, so they have requested that I make sure that the quiz randomizes each time it is opened.

View 7 Replies View Related

Tracking Who Opens Spreadsheet

Dec 19, 2007

I have a spreadsheet that can't be password protected but this doesn't mean just anyone should be accessing it. Is there a way to record who opens it and when? Ideally I could place some code into the spreadsheet that recorded on a sheet who has opened it and when. This will detract certain nosy people from accessing it!

View 9 Replies View Related

Run A Macro When Worksheet Opens

Feb 1, 2007

I have worksheet with a macro and currently if I run the macro using the play button and then select the macro it runs fine but what i want it to do is run when i open the workbook automatically.

View 3 Replies View Related

Select The File And Opens

Feb 28, 2007

I have a function which selects a file and opens it.It is part of a code.

Sub Cpy()
' Macro recorded 1/16/2007 by PZCHFR
Set PresentWorkBook = ActiveWorkbook

End Sub

Function FSel()
filetoopen = Application. GetOpenFilename("Document Files (*.xls), *.xls", 1)
'Workbooks.Open Filename:=filetoopen
'Set OpenedWorkBook = Application.Workbook(filetoopen)
Set OpenedWorkBook = Workbooks.Open(Filename:=filetoopen)
End Function

When the user does not select any file and clicks "cancel" in the dialog box,this gives me runtime error .How do i make the code correct so as to handle the case where there is no file selected.

View 4 Replies View Related

Conditional Macro When Excel Opens?

Sep 28, 2013

I want to run a VBA macro when Excel opens if and only if the file name contains a specific string or if and only if the worksheet name contains a specific string. The file only contains one worksheet. For example, if the file name contains the string "SalaryData" or the sheet name contains "SalaryData", then I want to run a VBA macro to delete some of the confidetial information. Idealy, this would be done as the file is opening before it is displayed.

View 1 Replies View Related

Excel 2010 :: Opens New Instance For Each Fie

Dec 12, 2012

In the last couple of weeks my copy of Excel 2010 has started acting strange. Now when I double click an xls or xlsx file in Windows Explorer, it tries to open a new instance of Excel, whic means that it tries to reopen Personal.xlsm and Personal.xlsb, and finds they are already open, so it gives me an error message. Previously it perfectly happily opened the document in another window in the same instance, which is presumably much more memory efficient quite apart from the file locking problem mentioned. How do I get it back to the way it was before? Is this another of MS's famous overnight downgrades?

View 2 Replies View Related

Copyrights 2005-15, All rights reserved