I would like to know how to set default property of protect sheet tool to check the desired boxes. This because I have written the vba code to unprotect the sheet for some purpose and then protect back but after that there are only 2 boxes that ticked. I want to have another boxes to be ticked too.
View 6 Replies
I am working with Excel 2003 and find that the default "Protect Sheet" dialog box opens with a default of both the "Select locked cells" as well as the "Select unlocked cells" check boxes marked. Is there a way to change this default?
View 2 Replies View RelatedThis first macro works fine:
Sub UnhideHBPorCholesterolQ1toQ3()
'
ActiveSheet.Unprotect "password"
Rows("58:67").Select
[Code]....
why the second macro does not seem to work. I get a Run-time error that says "Unable to set the Hidden property of the Range Class".
In the toolbar there's a section titled "Number" which allows you to change cell formats with selections named General, Number, Accounting, Date, Time, etc. I want to permanently change some of their default formats.
For instance, currently when I select Number the default is -4000.00. I want to PERMANENTLY change its default to (4,000.00). How do I do this?
I have a sheet that is password protected. I have this code attached to a command button. It will unlock the worksheet, autofilter it, print it, unfilter it, and password protect the sheet again. However it is protecting it without a password. I need to have it protected with the password so that someone will not be able to just go to tools to unprotect the sheet.
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "rainforest"
Columns("O:O").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=1
Selection.AutoFilter
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
End Sub
I've created a spreadsheet containing 200+ entries for my companies suppliers. These include their name/code, contact emails and contact number. This list is far more easily accessible as it saves the user having to bring up the suppliers details within our own bespoke software. However what seemed like a nifty spreadsheet has quickly turned into a giant mush of details with no way to quickly find the one you want without scrolling down to the one you want.create a function/tool that can allow me to type the contact name in cell "X" and have Excel take me to the suppliers line in the table?
View 14 Replies View RelatedI am using Excel 2010 and I have a password protected workbook with password protected sheets that uses several macros. Most of them, in order to run, have to un-protect the sheet and then re-protect it again. This has been accomplished easily enough by adding ActiveSheet.Unprotect Password:= "mypassword" and ActiveSheet.Protect Password:= "mypassword" to the appropriate places in the script. All of my macros, which do various things like sorting and moving data, deleting blank rows, displaying dialog boxes containing warning messages etc. run fine.
My problem is this: when I password protect the sheets manually, I have checked the following options in the "Protect Sheet" dialog box. Under "Allow users of this worksheet to" I have checked 1)Select unlocked cells and 2)Format cells. After entering my password and closing the dialog box my sheet is protected, but I can edit cells in the manner my allowances permit. However, once I run any of the macros that un-protect and re-protect the sheet, I remain able to select and edit unlocked cells (practically, for my purposes, this means that I can input data which will appear in the default font size and color of the sheet) but I cannot format cells (which, practically, for my purposes would allow me to occasionally change the font color and size of the data). Naturally, after running a macro, the other cell-formatting options are unavailable to me as well. Is there any way to get my manual selections to remain in place after running a macro that functions as mine do? Or is there any way to make my manual selections the default settings for a protected sheet?
I want a sheet to copy and paste into another worksheet, I have that code and its working fine, but what I also want to do is for the sheet to be protected,so the code would be, copy, unlock, paste, lock, save.
Here is the code I have so far. I know i have to include ActiveSheet.Unprotect "passowrd" ActiveSheet.Protect "password", but I dont know where to include that last part of the code.
I made a new class to make other code less redundant, but it isn't functioning. The class has a "workbook" and "worksheet" member, and these can be accessed through properties. The problem is that the properties don't actually seem to return anything, and no data can be accessed through them.
Private mActiveWorkBook As WorkBook
Private mActiveWorkSheet As Worksheet
Property Get wSheet() As Worksheet
wSheet = mActiveWorkSheet
End Property
Property Get wBook() As WorkBook
wBook = mActiveWorkBook
End Property
'Sets active WorkBook
Sub SetActiveWorkBook(ByVal wBook As String)
Set mActiveWorkBook = Workbooks(wBook)
End Sub
'Sets the activeWorksheet in the workbook.
Sub SetActiveWorkSheet(ByVal wSheet As String)
If mActiveWorkBook Is Nothing Then
MsgBox ("Invalid WorkSheet selection - WorkBook not defined")
Return
End If
Set mActiveWorkSheet = mActiveWorkBook.Worksheets(wSheet)
End Sub
This class is used in the macro as such:
Dim uDate As Updater
Set uDate = New Updater
uDate.SetActiveWorkBook ("Book1.xls")
uDate.SetActiveWorkSheet ("TestTab")
'Below Code is not functioning
uDate.wSheet. Range("A1").Value = "foo"
' Expected result - set Cell A1 in sheet testTab = "foo"
' Actual Result - nothing
Dim st As String
st = uDate.wSheet.Range("B5").Value
MsgBox (st)
' Expected results - bring msgBox of values of cell B5, this cell is not empty
' Actual Result - Empty Message box comes up
So - its fairly obvious to me that something is wrong with the properties. The members themselves are not null, I have verified in the debugger that the class members refer to actual sheets/workbooks, but the properties don't like passing anything out and show as "variable not set" in the debugger. How can I get this to work?? It works fine when I do not use the class, like such:
Dim wB As WorkBook
Set wB = Workbooks("Book1.xls")
Dim wS As Worksheet
Set wS = Worksheets("TestTab")
Dim st As String
st = wS.Range("B5").Value
msgBox(st)
But I would like to get the class and properties to work to save clutter elsewhere.
I had set up a long time ago a macro enabled sheet in the XLSTART folder and Template folder. It used to work where any file I opened, if I clicked new sheet, the data from that file would be in sheet2. Now for some reason it's not showing up anymore and just a blank sheet appears.
View 2 Replies View RelatedI am trying to get my excel file to show the sheet "Main Menu" when the xls file is opened.
I ideally need to get all other sheets hidden and this one to be visible.
I have a form with several combo boxes, and they function just the way I like as far as being able to pick from the list, or typing in them and having it show you the next available item in the list as you add letters. Whats happening that I would like to know how to deal with is... as soon as you type a letter that is not in my lookup range it generates an error. "Could not get the list property - Invalid property array index". I don't want people to be able to add to the list, but I would like a msgbox to pop up. Then allow them to go back to the box and try again.
View 2 Replies View RelatedI make excel file that contains certain formulas and graphs. Now I wonder is that a way for protect that file so it can be used only on specific cumputer, so if someone copy that file and paste it on their computer file will not work properly
View 1 Replies View RelatedMy user form has a line of code that protects the sheets and does not allow any changes and selection of cells. It worked great on my personla computer.
Running the file on another computer the code does not protect the sheet. The strange thing is that if I go the Tools>Protection> the options is set to Unprotect. That measn that the code actually has protected the sheet but I am still able to make chages. If I manually unprotect and again protect the sheet, it is protected till the time close the file and open it again.
Excel file 1 has:
Sheet 1: Account numbers and balances
Sheet 2: Mapping information detailing what account in file 1 is to go to a different account number in file 2.
Excel file 2 has:
Lots of sheets where information is to be keyed in.
This is a very manual process with lots of data entry to input into accounting forms I send to our head office. The "file 2" has sheet protection on all sheets so that formats, data, columns etc etc cannot be altered and only certain fields updated.
I think I have successfuly written my scripts to loop through the account values and map those to all spots in all sheets they are referenced to on the mapping document, however I am getting an error message that the "cell or chart you are trying to change is protected and therefore read-only".
Basically I look through the sheet and look for my mapping code, if that matches, I add the balance to the exisitng value of the cell, in the next column.
i.e. if B2 has the corresponding code I will add the balance to the current value of cell C2.
This is an extract of the code where I am looking up the sheet:
Dim ws As Worksheet
For Each ws In Sheets
If Left(ws.Name, 2) "OP" Then
Dim rg As Range
Dim cl As Range
Set rg = Range("A1:IV65536")
For Each cl In rg
If ActiveCell.Locked = False Then
If cl = kessanid Then
cl.Offset(0, 1).Value = acctvalue
End If
End If
Next cl
End If
Exit For
Next ws
It may be that because the sheet is protected as a whole nothing can be done but I was hoping that because I am going to the specific cell which allows input I should be able to do this.
I am using the following code to protect/unprotect a sheet in a tool that i am working on, which seems to work great. It unprotects the sheet runs the code inbetween the two liens of code and then protects the sheet again.
VB:
ActiveSheet.Unprotect Password = "mypassword"
ActiveSheet.Protect Password = "mypassword"
The issue I am having is if i want to go in and edit the sheet without running the code it will not let me. When I go in and type the password to unprotect it says it is invalid. I have typed it exactly how the code reads. I have even tried including the quotes but no luck.
Protect columns in a sheet. Is it possible to protect columns for entries?
View 2 Replies View Related1) I need to have code to protect the sheet that my user form is writing to. In other words, when the information from the user form is populated to the sheet, I want that sheet protected by a password that I set where I can unlock it, but no one else can.
2) I need to protect my VBA code with a password, I do not know how to do this, I have looked everywhere. I do however think this is something simple and I will kick myself once I find out where it is.
I'm trying to protect a sheet so that it can be unhidden only if you know the password.
This is because I have a macro that updates some of the cells and there are some people (and only those) that should be able to access it quickly and easily. -> can't use VeryHidden or cell lock.
I have a workbook with several worksheets. I need to prevent users from viewing worksheet mgrview unless they have a password for it.
View 1 Replies View Relatedthe following macro, changes a few cells etc, then protects the sheet.... however I wanted the protected sheet part to have a password "Sausage"...
macro, so it protects the sheet with a password as "Sausage"
Sub RATIFY1()
'
' RATIFY1 Macro
'
'
Sheets("Outline Generator").Select
ActiveSheet.Unprotect
Range("E6").Select
ActiveCell.FormulaR1C1 = "Outline Ratified"
[Code]....
I have a very hidden Worsheet called DropList. On open all worksheets are protected.
When I run a Macro that calls on a value from DropList or adds a value to it I get an error message:
"Run time Error '1004"
You cannot use this command on a protect sheet.... "
In the DropList worksheet I have selected all cells and have unlocked them.
I need to keep this workbook very hidden,
How can I unprotect it, whilst keeping it very hidden, so that users can still add data via a combo list?
any suggestions.
Can you protect a sheet name from being changed by a user?
Can you protect a sheet from being deleted by a user?
I have an Excel 2003 file available to all employees on a network. There are three sheets. Two sheets are protected with passwords and users can not enter any data on them. They are used to hold data needed by the third sheet.
The third sheet (named FORM) is for user input. FORM has a majority of the cells protected with a password. Users can enter information, save the file, print the sheet, or make duplicates of the sheet. The sheet contains data validations, conditional formatting, and formulas.
I have some VBA which acts on all the sheets (even those which users might have inserted) making them visible (very hidden) or not. When a user opens the file (whether for the first time or after adding sheets), I always want them to have FORM unhidden. I have VBA to do this but what if a user changes the name of the sheet? CRASH!
I have a spreadsheet that has some queries imported from Access (Via DATA | Import External Data)
Anyways i would like to protect this spreadsheet but using the TOOLS | Protection method gets me the following message when i try to refresh my query
I have a worksheet where the users need to enter time. I have a macro that captures the time when the user hits Ctrl + t
What I want now is a code which protects the cell after entering the time with Ctrl + t.
I tried to do it, but my macro only works when I don't set any passwords to protect the sheet. How can I pass the password to the code and protect the sheet after the code to capture the time is being executed.
I find the protection options of Excel confusing. I have a pivot table. Alonside it our a few formula columns. I want to protect only the columns outside the pivot but can not get it to work. I tried this:
1) Highlight entire sheet
2) Format Cells Protection - remove checkmark from: Lock Cells
3) Highlight 4 rows outside pivot
4) Format Cells Protection - place checkmark in Lock Cells
5) Tools Protection Sheet - supply password
The result is that the 4 columns outside the pivot are indeed locked BUT SO IS THE PIVOT...ie you can not utlize the dropdowns!
It must have something to do with the pivot, on a regular sheet (no pivot) it works fine. Further if, while Protecting the sheet, I click the: allow Pivot table reporting box, then it allows dropdown usage but blows up as soon as you select something with an error about not being able to redisplay selected itemsbecause of protection being on....
Greetings I have a workbook with many sheets and i want a macro to protect all the worksheets with certain settings except for one sheet, sheet 3.
I have borrowed some code from this page that I cannot get to work and I would appreciate any help. the code should also have an if statement that unprotects sheet 3 but i don't know how to do that either. I just get syntax errors
Private Sub Workbook_Open()
Dim wSheet As Worksheet
For Each wSheet In Worksheets
wSheet.Protect Password:="secret", DrawingObjects:=True, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingRows:=True, AllowDeletingRows:= _
True _
.EnableSelection = xlUnlockedCells
.EnableOutlining = True
Next wSheet
End Sub
Is there anyway to protect each sheet at one time? I have about 70 sheets and I dont wan to go to each and protect them. They all have the same password so I hope thats not a problem.
View 2 Replies View RelatedJust wondering if there is a way to prevent users from changing tab/ sheet names in a workbook? Either via sheet protection (I couldn't find any option) or using code.
View 2 Replies View RelatedIs there is any way we can protect sheet in such a way that; if user - Mr. A inputs his password he can only go and is able to input his data in sheet 1.
I've a file which have multiple sheets say about 80 tabs are present. My colleague only works on one of the tab (sheet) enters data, that file is placed on our general sharing folder I want to know if it is possible that I can assign protection in such a way that when she enters her password she is able to input data only on the sheet in which she works and cannot roam around to other sheets?
Or is it possible that on first sheet there is username or password can appear? And if the data inputting person opens that file and enter her password option appear which can take her to that particular sheet? And if a guest open that file he/she can only view particular sheets which contain reports?
