Worksheets Are Not Saving Correct Protection Configuration
Jan 18, 2009
I have a workbook with several worksheets in it. 4 of them have macros written in them, some do not. I protected each sheet with a password and made it so that users couldn't select any "locked" cells, and did this on ALL the worksheets. I noticed now that, just upon opening the workbook (not running any macros yet), on the sheets with macros I'm able to select locked cells (which is wrong), but the sheets without macros still function correctly. I think that this may have to do with Excel's default protecting arrangement where you can select either locked or unlocked cells. I specifically locked all worksheets with the correct arrangement but every time I open the workbook some of the worksheets default back to Excel's default arrangement. What can I do about this problem? I need this configuration to follow the workbook and not the specific computer it's on. Many users are going to use this, and can't be able to select locked cells. My macros do unprotect and re-protect the sheets to run, and I'd wonder if I can edit these to protect the sheets in a different configuration (which I don't think I can do with regards to being able to select locked cells) but these macros don't even run before this happens, and the worksheet open event doesn't involve any unlocking or re-locking (it just disables the cut and drag-and-drop functions.
View 8 Replies
ADVERTISEMENT
Aug 28, 2007
I use the following piece of code to show/hide certain worksheets in a workbook. To access the hidden sheets, a command button runs the code. It works very well, except that the password is openly displayed in the message box (as opposed to returning asterisks for the typed characters).
Is there a way of achieving this?
Sub togglesheets()
'This asks for a password before show / hide data sheets will work
Dim Ws As Worksheet
Dim strPassword As String
strPassword = InputBox("Enter Password")
If strPassword "Password" Then MsgBox "Wrong Password": Exit Sub
'This will toggle show / hide the data sheets
Application.ScreenUpdating = False
For Each Ws In ActiveWorkbook.Worksheets
If Ws.Name = "Apr-Sep" And Ws.Visible = xlSheetVisible Then
Ws.Visible = xlSheetVeryHidden
ElseIf Ws.Name = "Apr-Sep" And Ws.Visible = xlSheetVeryHidden Then
Ws.Visible = xlSheetVisible
End If
If Ws.Name = "Oct-Mar" And Ws.Visible = xlSheetVisible Then
Ws.Visible = xlSheetVeryHidden..........
View 9 Replies
View Related
Apr 2, 2012
I used VBA codes to apply different passwords for different worksheets in a single excel workbook. They worked fine. Then i applied a password to the VBA code itself through the VBA project properties. Also worked.
But my problem is that, if any one enters a wrong password to open any of the worksheets, the VBA will open an error message window and when "end" option is clicked, the VBA code will open without any prompt for the password.Thus the entire purpose is defeated.
View 9 Replies
View Related
Dec 17, 2009
I currently use a Core2 Duo PC and often max out the both CPU for extended periods when recalculating large (30MB+) spreadsheets.
Wondering if anyone has experience with Quad Core desktop PC's and large files and if there is a noticeable / significant performance improvement with more cores..
Ram doesn't seem to be an issue.
View 10 Replies
View Related
Nov 4, 2008
I am trying to e-mail a portion of a spreadsheet that I have. My approach is the following: I save a copy in a temporary folder, open that copy, remove all the sheets that I don't need to send out, save it (same name as the e-mail subject), and then e-mail as an attachment.
The current approach does not remove the macros and references though. I use the following to remove the macros and references:
View 3 Replies
View Related
Jul 22, 2007
I have this code (got it from here: [url] that saves worksheets as separate workbooks. It works perfectly fine for that but I would like to save each worksheet as a text file (tab delimited). I tried changing FileFormat:=xlNormal to FileFormat:=xlFile but a debug error occurs.
Sub MakeMultipleXLSfromWB()
'Split worksheets in current workbook into
' many separate workbooks D.McRitchie, 2004-06-12
'Close each module AND the VBE before running to save time
' provides a means of seeing how big sheets really are
'Hyperlinks and formulas pointing to other worksheets within
' the original workbook will usually be unuseable in the new workbooks.
Dim CurWkbook As Workbook
Dim wkSheet As Worksheet
Dim newWkbook As Workbook
Dim wkSheetName As String
Dim shtcnt(3) As Long
View 9 Replies
View Related
Apr 27, 2007
I have a huge workbook that takes up a lot of memory. The user saves her work every day by saving the entire workbook. Hence, we are using up a lot of hard drive space. I have been trying to find a way to save the relevant worksheets in a format that consumes less disk space. I find that if I save a single worksheet as a web page without the option of interactivity the file is only about 50k. But I need to save three worksheets, not just one. Is there any way to do this? If not, is there any other SAVE AS method that allows one to save three worksheets at a reduced file size? I do not need interactivity, I simply need for the user to be able to go back and view the relevant information in each file.
View 7 Replies
View Related
Jan 19, 2008
In my program I have prevented the user from saving the Workbook with the following code
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim p As String
Cancel = True
Do While Cancel = True
p = InputBox("Enter password to save file:", "Password Required To Save", "")
If p = "Enter Password Here" Then
Cancel = False
Else
yn = MsgBox("Wrong password. Try again?", vbYesNo, "Invalid Password")
If yn = vbNo Then
Exit Sub
End If
End If
Loop
End Sub
I also need to prevent the user, when they use the save as, from saving certain worksheets. Ex: There are 6 worksheets in the workbook. I only want them to be able to save the first three. Issues: One of the workbooks that I want to allow them to change has a tab name that changes frequently.
View 2 Replies
View Related
Jan 21, 2008
What I want to do: find the four cell that have the same value "99" in belows configurations
A B C D
1 99
2 99
3 99
4 99
A B C D
1 99
2 99
3 99
4 99
View 9 Replies
View Related
Oct 7, 2008
I have another little conumdrum I'm trying to work out.
I'm using one of Ron's scripts as an add-in which I've just amended the output path for.
http://www.rondebruin.nl/tips.htm
This script essentially creates a new workbook from each worksheet in the active workbook.
As I have a workbook of about 500 worksheets, I am trying to group the worksheets opposed to having to split all and rejoin them manually.
Luckily all of my worksheets names are initials with numbers after them (as assigned by excel when merged):
e.g., RH, RH (2), RH (3), RH (4), AG, AG (2), AG (3) and so on.
That said there are some random ones too, but I'm happy for them to be kicked out as individual files.
Anyway I'm pretty sure there is a way this can be added into this existing script by addressing Sheet.Name perhaps but I'm a bit unsure exactly..
Sorted in order (i.e. 2,3,4) would also be a bonus but not essential as they need to manually checked and I have a separate macro for sorting worksheets anyway.
View 12 Replies
View Related
Jun 25, 2014
To this point I have been able to successfully write code that will save a constant set of worksheets as a pdf. However, I would now like to alter it to be able to dynamically select the desired worksheets from a list box (I have been able to populate my list box) and then save as a pdf. The last step is where I am have issues. This is what I have thus far..
Dim relativePath As String
Dim Selected As Long
For Selected = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(Selected) = True Then
Sheets("Summary").Range("Q65536").End(xlUp)(2, 1) = ListBox1.List(Selected)
ListBox1.Selected(Selected) = False
[Code] ..........
View 6 Replies
View Related
Feb 20, 2008
I am trying to write this code where I need to save an excel workbook with a number of tabs to 1 text file with a name of users choice.
I am able to do this if there is a separate file for every worksheet within the workbook but not if we have the same text file to append every time.
View 9 Replies
View Related
Aug 15, 2013
Text configuration - how can I tell a cell to pick up a phrase from one cell, but if that phrase is equal to one particular phrase, then produce a blank.
View 3 Replies
View Related
Aug 3, 2007
I am trying to find a easy way to delete multiple worksheets in a workbook and then saving the workbook based on the tab name of the worksheet.
View 9 Replies
View Related
Jul 25, 2008
I have been trying to create a Macro that can do the following.
Open a Excel Workbook, Copy the Worksheets that I need (ignoring ones that are not needed.), Save them in the correct location with a new folder of date and time and saving them as csv files.
I have all the elements but can't seem to get them to gel correctly.
Just wondering if anyone has anything like this that I could adapt or edit.
View 9 Replies
View Related
Feb 27, 2014
I am creating a box CBM optimizing tool at work for shipping our products internationally so that the sales department and logistics can estimate shipping costs and weights with out needing me to physically pack everything in advance. I have broken every product we sell into individual CBM's as well as the boxes that we use to ship. I have also set it up to give a break down of "boxes needed" to accommodate the approximated CBM by box size.
How to create a function that will take that info and calculate which combination of boxes will utilize the available space... In other words, how do i take my break down of the 6 box sizes available, with the "# of boxes needed" data i already have, and have it tell me which combination of boxes will utilize the maximum percentage of space, or leave the least amount of unused space based off of the cumulative CBM being shipped.
Snippet attached:
Capture.PNG
View 1 Replies
View Related
Feb 15, 2010
I'm trying to create a formula that will added the correct amount in the correct cells, I have create a dunny sheet in trying to achieve this. If Cell B8:B11 = ABS or Dum that any points won should be added to Cell L8:L11 right now its adding it into K8:K11. If Cell B8:B11 = is Blank any player points should be added to cells K8:K11. I'm using this formula throughout cells K8:K28 =IF(J8>J25,1,IF(AND(J8<>0,J8=J25),0.5,0)) Any thing in red is incorrect anything in blue is what I'm trying to achieve.
View 4 Replies
View Related
Jan 19, 2010
I am new to VBA & not sure of the full understanding of code copied from a workbook which worked on the same principle but with Monthly (12) tabs. I thought if modified to show weeks, the macro would be able to locate the current week tab & day/date within - but upon opening, the cell stops at WK19 & column O - rather than WK43, Column N (which changes daily).
Sub Auto_Open()
week(1) = "WK1"
week(2) = "WK2"
week(3) = "WK3"
week(4) = "WK4"
week(5) = "WK5"
week(6) = "WK6"
week(7) = "WK7"
week(8) = "WK8"
week(9) = "WK9"
week(10) = "WK10"
week(11) = "WK11"
week(12) = "WK12"
week(13) = "WK13"
week(14) = "WK14"
week(15) = "WK15"
week(16) = "WK16"
week(17) = "WK17"
week(18) = "WK18"
week(19) = "WK19"
week(20) = "WK20"
week(21) = "WK21"
week(22) = "WK22"
week(23) = "WK23"
week(24) = "WK24"......................................
View 9 Replies
View Related
Jan 26, 2014
We receive about 20 sales files of several hundred lines of data each day from various agencies. I want to create a macro / VBA code which checks that the data submitted is correct so that we can upload it into our database without import errors and / or having to manually check each line of data.
I envisage something like an output report:
#####################
149 entries
Column A - Date - OK
Column B - Customer_Phone - Errors (Should be 11 digits)
Row 21 - Customer_Phone - Error (Not 11 digits)
Row 108 - Customer_Phone - Error (Contains letters)
Column C - Outcome - OK
Please correct and re-check.
#####################
View 4 Replies
View Related
Jul 3, 2008
I have a table with 3 columns of dates and then a column with Set # that I
feel in the box #.
I need to see how many items processed for each set per day.
Example:
[url]
The problem is that it counts the correct amount but not with the correct
dates.
The formula that I use is:
=SUMPRODUCT(--($I$3:$I$8<>"")*(($C$3:$C$8=39601)+AND($E$3:$E$8=39601)+AND($G$3:$G$8=39601)))
View 14 Replies
View Related
Aug 18, 2004
I recieve an error :
Run-time error '50289':
Can't perform operation since the project is protected.
When i try and run my code.
The code does add parts to modules and workbook events, but I need the code to be protected.
View 9 Replies
View Related
Jan 30, 2003
I have a spreadsheet that imports data, manipulates it then deletes 2 of the sheets then saves the file under a different name to the network. Is there any way to save this new worksheet without it storing the macros - so when the user open it, only the data is there and they get no prompt to enable macros?
View 6 Replies
View Related
Jan 7, 2009
I have created a form in a worksheet which I have added questions too and then locked all cells except the ones where I want the answers in.
I have then added a button to the bottom of the sheet called "Print and Save". This work sheet is called "form"
On a second sheet called "database", I have all the titles of the questions running from a -> k and nother else.
What I want to happen is the user input the information on "form" into the boxes available. Once they have completed the questions, I want them to be able to click on "Print and Save" so that firstly the page "form" prints, and then for all of the answers to be saved in "database" below the titles for each question.
I have had a play, but just don't know where to start. Also, once there is a row of questions below the titles, I don't want it to overwrite information already there, it needs to go onto the next empty row available.
Attached is my excel file.
You will see in the code that I have the code for printing.. I just found this on the net and it seems to work fine for me.
View 9 Replies
View Related
Mar 22, 2009
I have a macro that copies the contents of a cell, and pastes it into the the first blank cell of a range. Its important that the entire sheet is protected, but the macro won't allow the paste function because of the protection.
Is there a VBA code to unprotect the sheet, run the copy/paste macro, then protect the sheet again. THe problem is I would prefer the protection to use a password, as I don't want the user to simply unprotect the sheet from the menu bar.
View 9 Replies
View Related
Aug 10, 2006
I tried the following code and it doesn't work:
Sub Macro2()
Cells.Select
Selection.Locked = True
Selection.FormulaHidden = False
Range(Range("A" & Rows.Count).End(xlUp).Row & "A300").Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("AE11:AG300").Select
Selection.Locked = False
Selection.FormulaHidden = False
End Sub
I want to be able to unlock all cells after the last cell that has data in column A down to row 300. Also need to unlock cells AE11:AG300. What's wrong with my code?
View 5 Replies
View Related
Nov 1, 2008
I have a worksheet where there are a few columns. The columns involved in my problem is Column A and B. So the users open the worksheet and they change the values of column A. Column B has a vlookup formula and if the value of column A is changed than column B automatically changes its value as well (vlookup).
My problem is that the users of this file are not experienced computer peoples so, sometimes (by accident) they change the value of column B (deleting the formula). I tried to set the protection for column B.... but then it will not allow any change (vlookup will not work) to the cells in column B. So my question is that how can I allow the users to see the values in column B but not to edit it..and also let excel to let the formula to change the values of column B (if column A value is changed)?
View 2 Replies
View Related
Nov 5, 2008
is there a way that i can stop people being able to edit certain cell in a sheet but still allow them to type in other cells as when i have tried diffrent ways it locks the whole sheet
View 5 Replies
View Related
Dec 18, 2009
I have set up a workbook containing 15 sheets. 12 of them are named Jan to Dec. I KNOW how to protect each one, but is it possible to protect all twelve in one go?
View 9 Replies
View Related
May 2, 2007
I have a worksheet that I want to protect, but when I use the protect worksheet command on the tools menu, it renders all of my VBA useless.
View 11 Replies
View Related
Oct 8, 2008
I know how to protect VB code (e.g. Protection tab of VBAProjectProperties), however I would like to know how to embed code to stop the user from accessing the Macro (via Run Macro).
I understand you can do this by adding "Private" to the subroutine, however, is there some code I could add into a macro/connecting to a button, that would enable the user to protect the sheet (without needing to manually type private within the Module subroutine)?
View 9 Replies
View Related
