Macro To Unprotect A Spreadsheet?

Jun 16, 2014

We have a macro that opens a spreadsheet and pastes data from another sheet into it.

Is there a macro statement that will unprotect the spreadsheet if it is saved with protection (it is not password protected)?

View 1 Replies


ADVERTISEMENT

Unprotect Macro Not Working

Feb 2, 2014

It gives me a error and says my password is wrong. I have user names set to return the password so that it is unlocked for certain people. It works for unprotecting the sheets. I modified it and added it back in to try to do it for the workbook.

[Code] .........

I realize that they " and () around the password are differant, but that's how I last left them. I have tried several combinations and it just gives me more errors saying expected end of statement, etc.

View 8 Replies View Related

Using Macro To Protect And Unprotect Worksheets

Oct 23, 2008

I am looking for a way to protect and unprotect all worksheets with a password through a macro. I have excel 2007.

View 2 Replies View Related

Unprotect Worksheet Macro With Password

Dec 31, 2004

Here is my macro, how do I add the password to make it work properly?

Sub unprotect()
' unprotect Macro
' Macro recorded 12/30/2004 by '

ActiveSheet.unprotect
ActiveWorkbook.unprotect
End Sub

Both the sheet and the workbook are protected and use the same password

jiuk - code tags added

View 4 Replies View Related

Macro: Protect & Unprotect Sheets

Nov 9, 2006

Is there an easy way (using a macro) to unprotect and protect sheets?

Most sheets in a certain workbook are protected except a few cells that are open for manual entry. Because I have links to other cells in other workbooks, I must unprotect those sheets/fields before I can edit the links. And I MUST ensure all sheets are protected again when I'm done with my work.

Also, is it possible to password-protect that specific macro so I'm the only one who can run it to unprotect and protect?

View 9 Replies View Related

Password Protect/Unprotect Dialog Macro??? !

Mar 4, 2007

Stumbling over syntax on what should be easy. I want to password protect the active sheet using plain vanilla user input box; and then unprotect ALSO via an input box. Doesn't matter about masking the input with **** or whatever. Based on responses below, here is macro code I used:

To protect the sheet:

Sub ProtectSecurity()
Dim pword As String
pword = InputBox("Enter Password", "Password")
ActiveSheet.Protect pword
End Sub
---------------------------------
To Unprotect the sheet:

Sub UnprotectSecurity()
Dim pword As String
pword = InputBox("Enter Password", "Password")
ActiveSheet.Unprotect pword
End Sub

View 5 Replies View Related

Unprotect Form Control Button With Assigned Macro?

Oct 9, 2012

So I have a sheet with a lot of formulas and form control buttons that have been assigned macros.

When I go to protect certain cells and lock them and the activate sheet protection, suddenly my form control buttons with the assigned macros don't work.

I still need to protect some cells with formulas and don't want to leave the whole worksheet unprotected, but in order to allow the form control button macros to run, it appears that's what I have to do....or, is there another way to do this?

View 3 Replies View Related

Code To UNPROTECT Then PROTECT Workbook When Macro Runs

Jul 24, 2014

Okay, I have this code and it works very well - but it only works if my WORKBOOK is unprotected. I know how to Unprotect then Protect an ActiveSheet, but I can't figure out how to Unprotect then Protect my workbook when the macro runs..

Sub BLM_RENAME_SHEET()
Dim WS As Worksheet
Application.ScreenUpdating = False
For Each WS In ActiveWindow.SelectedSheets

[Code] ......

View 9 Replies View Related

Workbook Enable Macro Protect / Unprotect The Sheet

Sep 4, 2009

I need a macro that I can have in any workbook enabling me to protect / unprotect the workbook that I have currently opened with a set password (let say "Password")

I would link this macro to a button in excel 2002. I have try the following but it doesnt work

Would it be possible that the button (first) works (second) understand whether or not protect / unprotected and do the opposite?

Sub Protect
Activeworkbook.protect password:="password", structure:=FALSE, Windows:=false
End Sub

View 9 Replies View Related

Excel 2003 :: Unprotect And Protect Multiple Works Sheets With Macro?

Feb 25, 2008

I have an annual leave (vacation) work book with a summary page work sheet and separate work sheets for each month i.e. Jan, Feb, Mar.....to......Dec. In order to protect the formulas I have protected them by allowing only access to the input cells on each work sheet and the protect each work sheet.

When someone either joins or leaves the team I have to manually unprotect each sheet and protect again when I have completed the amendments to each of the 13 tabs.

macro code I would need to unprotect all the works sheets in one go (as I use the same password for all the sheets) and reset the passwords (protect) the sheets with more macro code.

I will be running the two macros from my own personal.xls file and ideally they would be fully automatic i.e. I would not need to input the passwords in to unlock or lock the work sheets as the password would be written in the code already

Excel version 2003

View 3 Replies View Related

Macro To Unprotect Sheet Unlock Cells And Protect Worksheet With Same Password

Jan 23, 2012

I have been really trying to get this sorted myself and I can get it to work with one exception. I can't get the sheet to lock with a password. It locks, but if I try to unlock it again, it does so without prompting me to enter a password.

Essentially I am wanting to unprotect two sheets, unlock the cells that were previously locked (so users couldn't enter data in them when the sheet is protected), then reapply the same password to protect the sheet, but now they will be able to enter data in the unlocked range of cells).

The second macro is to reverse the changes made in the first and 're-lock' the unlocked cells) (and again apply the same password to the sheet).

this is the code I have used.

Sub PART_YEAR()

Sheets("2012 Calculator 1 week").Select
ActiveSheet.Unprotect "taado"
Range("D20:D23").Select
Selection.Locked = False
Selection.FormulaHidden = False
Sheets("2012 Calculator 2 week").Select

[Code]...

I am assuming I have superfluous code in there, in addition to my mistake with the reapplication of the password.

View 3 Replies View Related

Protected Sheet - Macro To Unprotect, Refresh Sql Query & Re-protect Fails

Feb 21, 2007

I have a protected worksheet containing an SQL query. I have two cells on the worksheet unlocked so that users can enter fresh parameters to feed the query.
Because I have to use MS Query to interrogate our SQL server (current IT decree), the query won't support parameters directly when the query cannot be represented graphically - so I have to manually edit the sql command text and then refresh the query - or at least that was why I wrote the code below

The problem: My macro won't unprotect the sheet before it calls the SQL.it therefore won't update the sheet to detail the DSN, command text and number of parameters (latter should be 0) - info just used to verify queryit won't run the query / return the data as the sheet is still protected Comment: I have had to remove sheet protection in order to allow the sql to execute and return data. If protection is removed, the query does execute and return data ( changes in the "parameter" cell contents do cause the query to be correctly modified)
I could comment out the debug info but the query still doesn't return data if the sheet is protected.

Activesheet And worksheets(ndx) where ndx has been defined As ActiveSheet.Name
I apologise If my post Is difficult To follow - especially the code.

Sub AgedStockParameters()
nmb = ActiveWorkbook.Name
ndx = ActiveSheet.Name
Workbooks(nmb).Activate
Worksheets(ndx).Activate
ActiveSheet.Range("A1").Select
WkshtQryCon = Workbooks(nmb).Worksheets(ndx).QueryTables(1).Connection
ActiveCell.Value = WkshtQryCon
Range("A2").Select
WkshtQryFld = Workbooks(nmb).Worksheets(ndx).QueryTables(1).CommandText
ActiveCell.Value = WkshtQryFld.......................

View 2 Replies View Related

Automatically Unprotect Worksheet Before Email Macro Then Protect After Email Is Sent

Mar 2, 2009

I currently have a button then when pressed automatically sends a summary report taken from the first page of Sheet 1.

Worksheet needs to be protected all the time, but Macro only works on an unprotected worksheet.

I was wondering what additional code and where to put in so that when
protected back again after Macro has been executed?

Here’s the Macro taken from [url]

View 11 Replies View Related

Toggle "Protect/Unprotect Sheet" In Macro

Nov 27, 2009

Toggle "Protect/Unprotect sheet" in macro
Correct the following macro. It does not work.

View 2 Replies View Related

Macro To Unprotect Sheet - Paste Then Protect Sheet

Apr 8, 2014

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.

View 5 Replies View Related

Macro Fixes Macro: Copies Tabs From The Spreadsheet

Jun 26, 2007

I am working on a macro that copies tabs from the spreadsheet the macro (button) is located in, creates a new book for them, and then pastes values so that no formulas still exist. The problem I am having is with named ranges. The named ranges do not reference the new sheet, but rather the old spreadsheet. This is fine because the new file is solely for presentation, however, one macro (which selects print ranges based on user selected checkboxes) tries to reference the old spreadsheet once it runs. I would like the macro that I currently have working, to also make this macro in the NEW spreadsheet so that it can still highlight the correct print area when used. The macro does not reference the name of the workbook at any point, it is purely "Range("ai10") type references so I don't understand why it is trying to open the old sheet back up.

View 2 Replies View Related

Unprotect The Sheet..

Feb 24, 2009

Spreadsheet was created by me and worksheets locked by me with password. Data is maintained by another on the network. Since acquiring a new PC with xl 2003 replacing 2000, none of the worksheets will allow me to unprotect. The "unprotect" menu option is not available (shaded out), and it says "shared" at the top.

I have numerous spreadsheets that work this way, but this is the only one that has this problem. How can I unprotect it to make modifications?

View 2 Replies View Related

Spinbutton Unprotect...

Dec 25, 2008

When I protect the worksheet with the spinbutton, the spinbutton is no longer accessible. How can I modify the code below (provided by Leith Ross) to make the spinbutton accessible in a protected sheet?

View 3 Replies View Related

Unprotect All Sheets

Nov 23, 2006

I need a macro code to unprotect all sheets in a book. The sheets may range from 3 to 20 sheets, with a common password. I want to keep this as contol. Only one person will be using this.

View 9 Replies View Related

Unprotect The Cells

Oct 16, 2009

does anyone know if I can do something like this:

Sub warehouse()

Dim Flag As Boolean

If .user = "martin.lucas" then _
Range("H:H").unprotect
Range("K:K").unprotect
Range("N:N").unprotect
Set Flag = True
End if

If Flag = False then _
Msgbox("you are not permittedd to do this. See Martin Lucas")
Set Flag = False

End sub.....

View 9 Replies View Related

Unprotect Failing

Oct 11, 2006

I have a workbook that has several macros. When the workbook is saved, it cycles through and kicks off several of them.

This works fine, no errors. I have another macro that saves and then emails the workbook. When this macro runs, the same set of macros is launched due to the save method however it errors during one of the macros.

Basically what's happening is that the one macro (derivecountry) unprotects a sheet and inputs a data value. This macro works fine when run independantly but when it runs as a result of the email macr, the sheet does not get unprotected and the error results.

Here is the code line that runs to unprotect but doesn't always work

ThisWorkbook.Sheets(strShtName).Activate
ActiveSheet.Unprotect (strPassword)

I've also tried

ActiveSheet.Unprotect password:=strPassword

View 4 Replies View Related

Unprotect Sheet

May 3, 2007

I'm working with this workbook and suddenly the worksheets protected! Although I didn't make any password. I checked it but, I coulden't find any password. see code maybe there is a mistake.

View 7 Replies View Related

Macro Not Working On Other Spreadsheet

Feb 7, 2014

The attached workbook contains a macro ("Transfer_Data") that copies values from one cell to another when the "Update Progress" button (near cell A3) is selected. It works perfectly fine in this workbook but when I try the same code in another workbook, which looks and operates exactly like this one, nothing happens.

Is this due to a security setting or missing code line items?

copy&paste in next blank cell2.xlsm

View 10 Replies View Related

Reset A Spreadsheet With A Macro

Sep 23, 2008

As mentioned I want to create a button that can reset this/a spreadsheet.

DWOR_2.zip

I have locked all the cells and unlocked the cells with the light green background. I.e. where a user can input data.

I haven't added a password yet nor protected the sheet. (the macro needs to work when the sheet is protected.)

I am looking for a macro that can be used to reset the sheet to its original state. However, the sheet needs to be protected.

View 14 Replies View Related

Macro Minimizing Spreadsheet At End

Oct 6, 2008

Using Excel 2003. I have a macro set up to copy all information from one Excel workbook to another. There is quite a bit of going back and forth between the 2 workbooks. I ended the macro by clicking in a particular cell in the origination workbook.

When I exceute the macro though it minimizes both workbooks. I have used the VB Editor to make sure that there is code such as.

View 6 Replies View Related

Macro- Spreadsheet With 28 Columns

Apr 15, 2008

I have a spreadsheet with 28 columns. I need some column headings to be amended when I run a macro and I also need some columns deleted.

View 9 Replies View Related

Populate A Spreadsheet Using Macro

Nov 11, 2009

A macro which compiles a list of entries and adds or summarises the cost.

Sheet1 contains multiple entries per group and a cost in ColumnB
Sheet2 contains only one instance of the group with a summary in ColumnB

Here's an example and I hope it helps;

Sheet1
A1 = November , B1 = 100
A2 = November , B2 = 50
A3 = December , B3 = 75
A4 = December , B4 = 10
A5 = September , B5 = 60

After running the macro with CommandButton1
Sheet2
A1 = November , B1 = 150
A2 = December , B2 = 85
A3 = September, B3 = 60

View 9 Replies View Related

Macro To Navigate Through Spreadsheet

May 21, 2006

when the user selects any cell(s), then hits the command button, I want the code to move the cell(s) selection to the far left i.e. Column "A". I've managed this is a roundabout way, but I'm trying to make a far more elegant version.

Set C = Selection
With C
While Not C.Previous Is Nothing
MsgBox C
Set C = C.Previous
Wend
End With

So C is the selection made my the user, for this example they are just selecting one cell. The MsgBox proves to me the code to moving the cell selection to the left, but the While condition falls as the Previous test condition fails and bombs the macro. I cannot think of another way of doing this. Is there a method that returns X and Y co-ordinates as numbers?

View 2 Replies View Related

Use Macro To Print Spreadsheet

Mar 29, 2007

Trying to summarise large (but varied # of rows depending on which project is being reported on) table for specific values. I get the size of the sheet by:

FinalRow = Cells(65536, 1).End(xlUp).Row
FinalCol = Cells(1, 255).End(xlToLeft).Column

As all the search criteria are numbers lists from out ERP System, a 'For' 'Next' loop seems to work on the Auto-filter settings, and only display the matching values. As I am only trying to get the number of occurrences, and not do anything with the data in the sheet, the 'Count' function seems to work pretty well:

'Change to " proper" dates and insert TTC columns
Sheets("Data").Select
Columns("C:G").NumberFormat = "d/mm/yy;@"
Columns("F:F").Insert Shift:=xlToRight
Range("F1").FormulaR1C1 = "TTC"
Columns("F:F").NumberFormat = "0"
Range("F2").FormulaR1C1 = _
"=IF(AND(RC[-1]>0,RC[3]=2),RC[-1]-RC[-2],TODAY()-RC[-2])"
Range("F2").Resize(FinalRow - 1, 1).FillDown
Range("A1").FormulaR1C1 = "=COUNT(R[1]C:R[500]C)"
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)). AutoFilter

How can I replace the '=COUNT(A2:A500)' with '=COUNT(A2:A[FinalRow])' and only count the rows I need to? This sheet can change from between 20 rows up to 50K+. I understand that this may look messy, but have only been playing with VBA for about a month, and I shall tidy it up later.

View 4 Replies View Related

Protect / Unprotect Sheet

Jan 23, 2013

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.

View 4 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved