Below the code allows me to get the last modified, but I want to get the last time the file was access. How do get the "Last Accessed" Date/Time?
If CurrentTime < ActiveWorkbook.BuiltinDocumentProperties("Last Save Time") Then
MsgBox "Date Moved"
I have an excel file on a share site which is accessed by several people. The first tab is set up as a home page which directs the person to the relevent part of the work book that they need. My problem is that as the person saves their updates it also saves the location of the workbook they were in. I want it to return to the " homepage" automatically each time it is opened.
View 5 Replies View RelatedJust wanted to ask all the VBA gurus if they would know how to put the number of times (i.e. in Sheet 1, Range A1) a Workbook is opened.
I then want to basically have the code delete every sheet if ithe count is > 50.
I need an vba code that if my workbook is open say at 14:00 that it automatically save and close the workbook.
View 2 Replies View RelatedHow can I ensure that a cell (A1) is defaulted to the current date each time the file (in which the cell resides) is opened.
A1 is a field of a form in which the user can enter a date. I would like it to default to the current date each time the file is opened.
iam trying to populate another open workbook worksheet with the iformation inputed into the the InputBox
Private Sub Workbook_open()
MsgBox "Welcome to THE ESTIMATOR, Provide by Brisbane Marketing and Estimating Services!", 64
' If sheet was named by original open routine, exit
If ActiveSheet.Name = "Main Roof" Then Exit Sub
' otherwise
Do..............
I m not able to use the standard Excel Paste Special function when I copied a range of cells in another Excel workbook opened in a separate instance of Excel. Instead, Paste Special thinks that I have copied some non-Excel objects and gave me the Paste As options. This is not the case if I open both workbook within the same instance of Excel. Could you share with us if there is a trick to trigger the normal Paste Special options in such situations (without having to invoke Macro procedures)?
View 2 Replies View RelatedAll i did was i just created a form to open a workbook from the directories.
Code to copy the data from that recently opened workbook to my workbook where I have my forms. I need to copy that data as in the case that i don't know the workbook and the sheet name i'am going to open as i may open any of the files!!
I have an open workbook (A) and this is where the code should reside. I want to use VBA to copy the content of an entire worksheet from a closed workbook (B) to an existing worksheet in workbook A. How would you accomplish this?
View 7 Replies View RelatedHow to Automatic open others Workbook when we opened the Master Workbook.
Examp.: I have a workbook (Master.xls), and when this file be opened, and then others workbook (Transactions.xls, Order.xls, etc.) is opened too.
I have a workbook that is a formatted report that I need to insert data from a name variable "CSV" file. I have created a macro in this workbook that calls an "Open" dialog for CSV files that I can use to browse to and open the source file. The macro then is supposed to "select all" copy and close the workbook then make the original workbook active and paste the data starting at row 2. The macro "seems" to be working perfectly except when I do the open the macro then makes the original workbook active, selects all copies then wants to close the original workbook. How can I tell the macro that the csv file that I just opened should be the active workbook, baring in mind that the name won't be known before the time it's opened so I can't hardcode the "active. workbook (NAME) "route.
I need to know when excel opened. Is there a way to tell this?
View 7 Replies View RelatedI found some vba codes in this forum which record the date and time in column A when a file is opened.
Can the codes be modified such that when someone opens the file the second time on the same day, the date and time are recorded in column B?
Attached file for your reference.
I have two columns C & D. In col C (C10) a time is entered (either 13.45 or 0:33.22 format). If column D (D10) is blank then the time in Col C stays the same (13.45 or 0:33.22). However if Col D has a M in the cell (D10) I want to add 0.24 to the time in Col C (C10) eg 13.69 or 0:33.46. I have tried various formula combinations but keep getting circular reference errors.
View 6 Replies View RelatedI want my macro on the IR Tracker sheet to run once workbook is opened. Is this possible?
I have attached the workbook for better understanding.
I've started this thread a few weeks ago but didn't get any answers on how to solve the problem or if it was even possible to solve. I would like to know if is possible to set a reference to a NOT OPENED workbook. All the code I've tried so far didn't get me anywhere:
View 3 Replies View RelatedI am looking for a way to have Excel zoom to 120% whenever any workbook is opened. (My boss has poor eye sight...)
I set up a simple Macro
Code:
Sub Auto_Open()
ActiveWindow.Zoom = 120
End Sub
but I get an error that says "Run-time error '91': Object Variable or With block variable not set.
Is it possible to write code that can identify how a workbook has been opened i.e. has the workbook been opened by another workbook or has it received a double click event on the workbook itself.
If it is possible I would like to place the code in the open event of the workbook that is being opened.
An external program opens and closes Excel Workbook (OLE). What is the VBA code so when the WB is opened, Macro1 will run before OLE closes that Workbook?
View 6 Replies View Relatedi'm tyring to formulate a do loop that will basially loop until the workbook is opened. here is my code...
'CHECK IF OPENED WORKBOOK EXISTS
Dim myBook As Workbook
On Error Resume Next
Set myBook = Application.Workbooks(vCriteria & "ISPR.XLS")
On Error Goto 0
what i want is for it to loop until myBook is <> nothing... but i'm not sure how to do that.
Okay I have a basic Time clock calculation in excel (i.e.-(timeout1-timein1)+(timeout2-timein2)="Total time"). What I need to do is convert the "Total time" to be changed to 3 min increments. I don't know if that is the best way to put it but let me show you the chart for the conversions.
3 mins=.05 hrs, 6 mins=.10, etc etc etc.
So lets put this into us
A1 (timein1)= 6:42 AM
A2(timeout1)=11:30 AM
A3(timein2)= 12:00 PM
A4(timeout2)= 5:00 PM (17:00)
So A5(Total Time)=9h 48min, but I need it to equal 9.80 hrs because with the conversion, 48 mins is .80 of an hour. So how can I set up A5 (Total time) to automatically do this calculation? This website is how I would like it to work http://www.1728.com/timecard.htm
I have a little issue with a list-box. When i open my workbook and i click on the List Box the list box freezes, excel doesn't let me select it until i go to design mode, select the list box then close out of design mode. This sort of "fixes" the issue but i would rather not do so this way.
View 2 Replies View Relatedmy workbook is finally working the way it should but every time i open it i get a security warning window with the options disable macros, enable macros and more info. how do i get this to not show up every time it's opened. this workbook will be used by someone other than me and i don't want them to need to do anything but open it and use it.
View 8 Replies View RelatedI have a workbook with about 30 tabs in it. It is currently protected by a password. The workbook itself has a couple of 1000 formulas across the tabs.
What I would like to do is to lock certain cells on each worksheet depending upon if the workbook is opened as "read only" or "in edit mode" (when someone uses the password).
So when someone uses the correct password, I would still like certain cells to be locked, or after the initial password is entered for editing, another popup box with "would you like to edit cell formulas? Y/N (only on selective cells), if no, then no editing on those cells allowed, if yes, then prompted to input another password to do this.
How do I automatically run VBA code when a workbook is opened?
View 7 Replies View RelatedIs there a way that when the workbook is opened, it automatically jumps to the sheet that has today's date on it and highlights that cell.
I have 12 sheets, one for each month and labeled as such. The dates for each month in cells D5:AH5 on each sheet.
I am trying to ensure that m work book keeps the same name even when I email it to others.
I have been told on this forum that it is possible for a workbook to check its own name once opened?
I have two different names that this file can be called 1st is the one that is in use all the time and the 2nd is a archive version where the name changes each month.
The file name I wish to keep the same for the no archived version is Toolbox and a predetermined number I have a workings sheet called workings and in a cell i have a formula =TEXT("Toolbox Application " & Cover!E10,) this will give me the file name that i need to check for example it could be Toolbox Application 00089 or Toolbox Application 00967.
I also have a cmd that archives the workbook and saves it as Toolbox and the Month it was for Toolbox for Jan for example
I also need this to open if it is an archive
if neither of the names match i need the workbook to close and a msgbox to tell user to rename the workbook correctly.
I have a workbook that automatically saves itself when it is closed without prompting the user. Now I need to make the workbook automatically close if another workbook is opened.
if my_workbook.xls is opened and you open another workbook, I need my_workbook.xls to close instantly.
Is this possible to set a macro which will delete the file if opened on another computer? Ie say on WB open I want to set a macro that if Environ(“Username”) = “ABCD” then proceed else delete the file permanently from th e other computers machine. If deletion of file is not possible then deletion of sheets or contents of sheets should be deleted. The sheets will be protected. Expecting a solution to delete the file.
View 2 Replies View RelatedI'm writing a subroutine that asks the user to pick a file (using GetOpenFileName) and extracts some data from it, then closes the workbook it opened automatically.
Problem is that it seems I can only reference workbooks by index, which is a big problem if they have more than one workbook open. I don't want to have to force them to only keep 1 workbook open, that seems like bad practice.
importFile = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "Select field sheet")
If importFile = False Then Exit Sub
Workbooks.Open importFile ' Open the new workbook
importFile ends up returning something like, "C:Documents and SettingsMy DocumentsFieldBook.xls".....................