Temporarily Remove Read Only
Oct 29, 2009Is there a way to, on a temp basis to remove the read only feature when enabled and then re-enable it after a VBA routine is excuted?
View 10 RepliesIs there a way to, on a temp basis to remove the read only feature when enabled and then re-enable it after a VBA routine is excuted?
View 10 RepliesI have a comma delineated text file that is full of stock item details such as stock code, description, 3 different prices etc it is about 15 fields wide by about 400 rows down. I need to be able to import all rows but only certain columns into an excel worksheet using vba. I know I can easily just rename it to .xls or .csv or something like that but its a text file we export out of our system at work and we need to be able to give it to customers who then can import into this excel spreadsheet/calculator I am creating.
The file looks something like this:
"String 1", ""String 2", "String 3", "String 4", ...... all the way up to 15
There is 400 or so rows (which represent stock items)
Now I need to copy all rows in column 1 (string 1) all rows in column 12, 13, 14, 15 (This is the only data I need from the text file in this particular spreadsheet/calculator)
I have it working fine reading the entire row in one at a time splitting it up into a string array using the Split() function and then only copies the certain array indexes i need into the worksheet here is the code for this: ...
Is there a way to remove the option to open a file as read only when the file is already open by another user? Ideally when a user tries to open a file that is already in use they would get a message to that effect and the only option at that point would be for them to select "notify" when file is available.
View 8 Replies View RelatedI'm trying to open a file on a network drive...but I'm getting the following error message when it opens: "This file may be read-only, or you may be trying to access a read-only location. Or the server the document is stored on may not be responding." Now, the file itself has no rights restrictions and is not read only. It doesn't appear to be locked.
Now, there are other Excel files in the same directory which I could open fine; however, the Excel documents having the above problem all have a little black icon "appears to be a padlock" (image attached) at the bottom left hand side of the Excel file icon. I tried the following:
- Renaming
- Converting to a different file format (didn't work, it won't let me)
- Opening in notepad...etc doesn't work.
This file is dated back in 2004...do you think it's corrupt? Is there anything i can do to open or recover this?
I've set up a method to register users so they can use my applications. Very simple, First Name/Last Name/Scan your ID card. Unfortunately, that is apparently not "idiot-proofed" enough for some of my users. They keep entering their full name into the first name section, then they'll repeat the same information (full name) in the last name section. I swear they're doing this kind of stuff just to annoy me and see if they can break what I build.
Anyway, is there a way to change a single cell so that if the user hits the spacebar, it will simply tab to the next cell.
I have a workbook that opens full screen without any menus including the Worsheet Menu Bar. When the sheet opens the Title bars and Workshheet Menu Bars are visible
at first and then the sheet jumps to full screen without either. I tried to prevent seeing this screen jump by surrounding my code for hiding
all menus & viewing full screen with-
Application. ScreenUpdating= False
Application.ScreenUpdating=True
This works in other sections of code as intented but has no effect here. Even though I realize this has no functional benefit, because I am already able
to use the entire screen, I would like to find a way to hide this screen jump.
I want to temporarily display a userform (maybe for 4seconds) when my spreadsheet loads.
I cannot grasp the ontime function, and from what I can tell most messages posted on here relate to using it for intervals, or to be used at a set time in the day. (I have looked at the Helpsheet for the Ontime function, but struggle to apply what is being said to my situation)
I have a vba function linked to conditional formatting that i want to temporarily stop while a sub to insert a line is running as the sub stops when it hits the sheet where the vba function operates. When i disable the vba function (or remove the vba function) the sub works fine, if the vba function is not disabled the sub stops.
View 4 Replies View RelatedI have a Sheet Activate code so that when going through a workbook, range a1 is always selected.
However, i have another macro, which navigates through each monthly sheet in the workbook, and uses cell a19 as a 'topleft' const cell, with a time delay, so that i can view a chart in the same place for each month on each monthly worksheet, kind of like a journey through time.
The problem i have, is that i need the sheet activate functionality when normally navigating through the sheet, but this overrides my macro which needs to open sheets with cell a19 as the top left cell.
So my question is, can you disable a sheet activate sub at the beginning of a macro, and activate it again at the end?
How do disable Private Sub Macro
I have a private sub macro for Sheet1 as shown below
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address "$B$2$" Then Sheets("Start").Select
Exit Sub
End Sub
And I have another macro (call ADDNumLine) that add additional data to the Sheet1. How do I temporally disable the Private Sub above when executing Macro AddNumLine?
I have a set of procedures that require auto recalc to be on to work correctly. I've tried application.volatile and Application.CalculateFull with no luck. I'm trying to put together code that makes sure recalc is on, but that first determines the current recalc status and then changes it back to Manual when necessary. I don't know how to determine the current status. The following code should work if the red sections are fixed.
Sub TempAuto()
Dim CurrentState As unknown
CurrentState = Application.Calculation status
Application.Calculation = xlAutomatic
If CurrentState = Manual Then
Application.Calculation = xlManual
End If
End Sub
I would like to run a macro on a worksheet that changes some cell values. Some of these cells have conditional formatting applied. With this particular macro I do not want Excel's Conditional formatting to react to these changes. How can I temporarily switch off Excel’s Conditional Formatting with VBA before I run the macro so that it doesn't react to these changes? What exactly triggers conditional Formatting to re-calculate?
View 2 Replies View RelatedI have downloaded some of my bank statements in excel format but they are just static data - ie, they are just numbers in boxes and the BALANCE column does not react when I take out a transaction.
I have put in a formula for the BALANCE column so it does now take its value from the previous day plus or minus transactions, but now I want to do additional things.
- How would I, for example, categorise several transactions as "HOLIDAY" [URL] ....... and then temporarily make them disappear so that I can see the effect of that on my balance? I can see how to hide/unhide transactions but that doesn't actually seem to have any impact on the balance column.
- Second query: how do I make my current spreadsheet a template so that when I download the next bunch of bank statements I can just apply all the formulae in this one to it?
How to temporarily disable PowerPoint charts which are linked to Excel. The problem is, whenever I copy a slide and try to paste it elsewhere, Office attempts to update all of the links in the entire PowerPoint. Since the slide deck has so many links, this takes an awful lot of time to do. I don't want to break the links completely as I would lose any ability to keep them dynamic. I've checked all of the advanced options within PowerPoint, but cannot find any way to temporarily disable links from updating.
View 1 Replies View RelatedI have a simple macro that cycles through the sheets in a workbook, and if the sheet's codename matches one of a defined list, some of its data is added to a summary sheet.
The macro works exactly as intended, but a strange thing happened yesterday: some data was missing from the summary sheet because one of the sheets was being ignored. This sheet is named 'MCP' on its tab, and has codename Sheet8.
Here's the strange part: on stepping through the code, cycling the sheets, I noticed that the sheet icon, name and codename had disappeared from the Microsoft Excel Objects folder in the Project Explorer. When the loop got to the sheet in question
Code:
For Each ws In ThisWorkbook.Worksheets
Debug.Print ws.Name
Debug.Print ws.Codename
The above code displayed its name (correctly) as 'MCP', but its codename was blank; the sheet was therefore skipped by the code because the codename had to match against a defined list.
While I was pondering this, and doing some web searches, the sheet then re-appeared in the Project Explorer and everything worked again.
My question is this: is it likely to be due to the workbook being shared? I know that workbook sharing in Excel is often discouraged, but this is a simple workbook only used by a maximum of three users (two of these had the workbook open at the time the issue was reported)
I've changed the code so that the sheet name is inspected in the event that the codename is blank, which should guard against the issue provided sheets are not deleted/renamed.
Windows XP, Excel 2003
I would like to know the easiest way to temporarily keep a worksheet code from running while I am editing, then turn it back on when I am done. I was thinking a button with these commands(?)>
Application.ScreenUpdating = False
Application.EnableEvents = True
but I don't know which button to use, or if I would need a button for each.
I have a spreadsheet where I want to require certain fields to be completed then I want to have that file auto emailed. I have learned that I do need to have the file saved before sending otherwise the data will not appear in the email, so with this I want to have the file temporarily saved emailed then the temp file deleted.
Here is the code I have so far but it errors on the blue text, I did change the TempFileName from = "Copy of " & wb1.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") to = [C16] & "_" & [B6] & "_" & [D6]
Private Sub CommandButton1_Click()
If Range("B6").Value = "" Or _
Range("d6").Value = "" Or _
Range("f6").Value = "" Or _
Range("E9").Value = "" Or _
[Code] ......
I have found a very useful UDF for removing non-alpha characters from strings. (See below, Credit for posting to Stanley D Grom - Ozgrid post ´Removing Non-alpha Characters From Text´).
Option Explicit
Private Function RemoveCharacters(InString As String) As String
Dim intLoopCounter As Integer
Dim intStringLength As Integer
Dim intASCIIVal As Integer
intStringLength = Len(InString)
InString = LCase(InString)
For intLoopCounter = 1 To intStringLength
intASCIIVal = Asc(Mid(InString, intLoopCounter, 1))
If intASCIIVal >= 97 And intASCIIVal <= 122 Then
RemoveCharacters = RemoveCharacters + Mid(InString, intLoopCounter, 1)
End If
Next intLoopCounter
End Function
Two requests:
1. Could the UDF be modified such that any part of a string contained within brackets is also removed (e.g. "NLGA High Street (West-Enfield), EN6" becomes "nlgahighstreeten")?
2. Can an argument be added to the format of the UDF, such that numbers (0 to 9) are either included or excluded (e.g. RemoveCharacters(A1,1) where the argument ´1´ would include any numbers (0 to 9), so "NLGA2003 High Street (West-Enfield), EN6" becomes "nlga2003highstreeten6")? ´blank´or ´0´would exclude these numbers, i.e. would return "nlgahighstreeten"
i m wishing to make a ss available to all but only ready only format 2 people need access to ammend the data and spreadsheet.
View 2 Replies View RelatedI've created an add-in. When I try to update the coding in the add-in, Excel reports that the add-in is read only and prompts me to choose another name for it. However, it is not currently selected in my Tools -> Add-ins... window.
View 9 Replies View RelatedSimply stated:
Range("A5") = Qty
Range("A6") = Cost
Range("A7") = Cost * Qty
In the UserForm:
TextBox1 fills Qty range
TextBox2 fills Cost range
I'd like to have TextBox3 to show the result on Range("A7"). This box would not be enabled, therefore is not clickable or Tab accessible.
I tried
Private Sub TextBox3_Change()
TextBox3.Value = CStr(Range("A7").Value)
TextBox3.Text = Format(TextBox3.Text, "Currency")
End Sub
but that does not do it.
Lately I've been learning how to pluck data right from a web page:
for instance,
cageNum = IE.document.getElementById("txtCage").Value
will read the info right out of the txtCage textbox at the page where my IE object is.
Now I'd like to read a table into excel. How is that done?
I used to read *.txt file into C/C++ program?
Now from Yahoo downloading stock prices, they are in EXCEL *.csv format. How can read them into C/C++ program?
I've got an excel sheet from a guy at work who decided to lock the entire document down so I can't do anything with it. Virtually all the ribbon options are greyed out, there isn't anything locking it in the code, I've tried checking the save as "read-only" option and it's not there. How I can actually save this is editable? I've looked in windows explorer and it's not read-only in there either. I tried save-as and even tried making it an XLS instead of an XLSM and it still won't let me edit it
View 1 Replies View RelatedThe xls file I have written is used by multiple users at the same time. None of them can actually change the file - it opens data files and imports the data it needs then writes back any changes to the data to those files.
So the "read-only" option that my users see is of no importance to them - can this be bypassed somehow?
I have a text file that I want to read the data into a sheet and split and store into columns.
The format of the textfile as follows (Only two records will contain 200 with line break to seperate):
Atom "file" contains: C:B_200801142021_VIDEO_BOYS_EVENTS_FIRSTBIRTHDAY@Video Title 1.mp4
Atom "©nam" contains: Video Title 1
Atom "purd" contains: 200801142021
Atom "keyw" contains: VIDEO_BOYS_FIRSTBIRTHDAY
File "F_©nam" contains: Video Title 1
File "F_purd" contains: 200801142021
File "F_keyw" contains: VIDEO_BOYS_FIRSTBIRTHDAY
Raw data:
1 acct01 John Doe 10
2 acct01 Hits 20
2 acct01 Runs 05
Goal:
1 acct01 John Doe 10 20 05
For a couple of reasons I have had to take a workbook off of a local machine and place it on the network so others can access it. I cannot share the workbook because of the macro's and protection on it. At any one time only one person should have full control of workbook. The others only need read only access. I won't go into the whole deal but I was hoping there was a way on startup to detect if the workbook is in read only mode or not (Other than the basic notifications and indications that excel gives as many users either ignore or do not understand them). If so I would like a big message to popup stating this fact to the user and also if possible show them who currently has it open. Lastly, they would have a cancel workbook open option until they get the other user to exit.
View 2 Replies View RelatedIs that possible that I can make an excel file as a read only through code... and if needed should be opened by giving password ?
View 6 Replies View RelatedI have a formula that puts a date into a format I want to read date from a data base.
[Code] ..........
Output is correct = '17-03-2014' if the date is greater than or equals to the 10th but if its the 1st for example I get '1-03-2014' which is wrong as I need the zero to count the date properly. I tried a Left formula on a date field to bring in the first 2 digits but because its a date it returns for example 41 instead of 17 if its the 17th. I was going to do a Left(Text type of formula and place it into an if statement but that didnt work.