Range locked vba excel

Range locked vba excel

Помогите пожалуйста!
Есть код макроса, который находится на листе, а не в модуле.
Требуется определенные ячейки защитить от редактирования.
[vba]

200?’200px’:»+(this.scrollHeight+5)+’px’);»> ActiveWorkbook.Activate
Sheets(«Entrance»).Activate
Columns(«A:L»).Select

Selection.Locked = True
Sheets(«Entrance»).Activate

Получаю ошибку «Run-time error ‘1004’ Метод Select из класса Range завершен неверно» и выделяется строка:
[vba]

Как можно исправить это?
Заранее спасибо!

Помогите пожалуйста!
Есть код макроса, который находится на листе, а не в модуле.
Требуется определенные ячейки защитить от редактирования.
[vba]

200?’200px’:»+(this.scrollHeight+5)+’px’);»> ActiveWorkbook.Activate
Sheets(«Entrance»).Activate
Columns(«A:L»).Select

Selection.Locked = True
Sheets(«Entrance»).Activate

Получаю ошибку «Run-time error ‘1004’ Метод Select из класса Range завершен неверно» и выделяется строка:
[vba]

Как можно исправить это?
Заранее спасибо! Red_Sloth

Помогите пожалуйста!
Есть код макроса, который находится на листе, а не в модуле.
Требуется определенные ячейки защитить от редактирования.
[vba]

200?’200px’:»+(this.scrollHeight+5)+’px’);»> ActiveWorkbook.Activate
Sheets(«Entrance»).Activate
Columns(«A:L»).Select

Selection.Locked = True
Sheets(«Entrance»).Activate

Получаю ошибку «Run-time error ‘1004’ Метод Select из класса Range завершен неверно» и выделяется строка:
[vba]

Как можно исправить это?
Заранее спасибо! Автор — Red_Sloth
Дата добавления — 14.02.2016 в 14:06

Источник

How to unlock and lock Excel cells for running a macro

I have a spreadsheet that has two buttons — To retrieve records from database and another one to upload changes from excel to database. The macro for retrieving records from Database is as follows. Now after retrieving the records, I want the users only to edit certain columns( here the columns from January to Scenario) so that the users, after updating those cells can click on the update button to save the changes to the database. However, I don’t want them to touch the other columns ( EmpID through Status).I want a macro that would lock those columns after data retrieval and unlock while retrieving the records on clicking the Retrieval button. This is because I am clearing the worksheet whenever I click on the retrieve records buttons. I tried several methods and it’s not working. I would appreciate your help.

4 Answers 4

One of the best ways to learn how to do something in VBA is simply to perform the task with the Macro Recorder on. That way you will know the basic code required to complete the task.

It also helps to understand that all cells start off with a property of «Locked» but that only becomes useful when the workbook is Protected using the Review > Protect Sheet option.

So to make sure no one can change all any of the cells in your book after the data has been changed, you’d need to protect the workbook using:

The various options could be changed or removed depending on what you want done.

As I understand it, you want only certain columns locked. In this case, you actually have to unlock the cells you will allow them to enter — so you have to think about it backwards.

This line of code would set the Locked property of the cells C1:C1000 to False so that when the Workbook is Protected, the user can still edit the cells:

If you have any other questions, just post.

Источник

Error 1004 when setting Range.Locked

I get the catch-all runtime error 1004, «unable to set the Locked property of the Range class» when, well, trying to set the Locked property of a Range object. The code looks like this:

When I set a breakpoint on the line and try to query the value of that_goddamn_range.Locked from the Immediate window, this works without problem, but setting it fails.

If, however, I run that_goddamn_range.Select , break the macro, unprotect the sheet (it gets reprotected automatically on selection change) then right click, pick Properties, switch to the Protection tab and tick Locked then confirm, things work okay however.

What could possibly be going wrong?

5 Answers 5

Here’s a complete explanation:

Typically, there are two causes of this error: trying to change a cell’s Locked property on a protected sheet and/or trying to change the Locked property of a single cell in a merged range.

In the first case, you can either unlock the sheet or set UserInterfaceOnly protection for it, which is highly recommended since you then don’t have to mess with repeatedly unlocking/locking it.

With regard to merged cells, you can’t lock a single cell that is part of a merged range but there are reasonable options:

If you are using cell-address notation to reference the cell/range,

then reference the whole merged range instead:

Range(«A1:A3»).Locked = True ‘where «A1:A3» is the entire merged range

If you are using a named range for a set of merged cells, by default it will be defined to reference the first of the merged cells only. You can either edit its definition to include the entire merged range or use its MergeArea property to reference its associated merged range:

But note that you can’t do both since the MergeArea property is, apparently, undefined for a range that is not a strict subset of a larger merged area!

Of course, you can always unmerge the merged range before setting the Locked property of an included cell and then re-merge it afterward, but I have never seen a situation in which one of the above two solutions wasn’t sufficient (and much cleaner).

Источник

Lock certain cells in a range

I’m trying to loop through a range of cells, locking any cell that has content while leaving empty cells unlocked.

When I run the below code the result is the entire sheet is locked. If I add an else statement the sheet is unlocked. Basically whatever the last .locked = (true, false) statement is is how the entire sheet winds up.

Change 1 Is it possible that I have some setting on/off that is interfering since I’m the only one who is unable to get any of this to work?

7 Answers 7

You can try this.

If you say Range(«A1»).Select, then it locks only A1. You can specify multiple cells to be locked by specifying as follows:
A3:A12,D3:E12,J1:R13,W18
This locks A3 to A12 and D3 to E12 etc.

I may be missing something but.

. will lock all cells on the active sheet. If you just change it to.

. then it works; I think?! As the range is very small, you may as well not unlock cells at the start, and instead unlock cells whilst locking them e.g.

If you are new to VBA, I would recommend cycling through code line-by-line as described in this Excel consultant’s video. If you step through code, you can check «has cell A7 behaved as expected?». instead of just seeing the end product

A quick way to unlock non-blank cells is to use SpecialCells see below.

On my testing this code handles merged cells ok, I think this is what is generating your error on Tim’s code when it looks to handle each cell individually (which to be clear is not an issue in Tim’s code, it is dealing with an unexpected outcome)

You may also find this article of mine A fast method for determining the unlocked cell range useful

I know this is an old thread, but I’ve been stuck on this for a while too, and after some testing on Excel 2013 here’s what I conclude if your range includes any merged cell

• The merged cells must be entirely included within that range (e.g. the merging must be entirely within the range being lock/unlocked
• The range being merged can be larger, or at least exactly the range corresponding to the merged cells. If it’s a named range that works as well.

Also, you cannot lock/unlock a cell that is already within a protected range. E.g if you run:

Twice it will work the first time, and fail the second time around. So you should unprotect the target range (or the sheet) before.

Источник

How to lock a cell in Excel formula using VBA

Users entering data into the wrong cells or changing existing formulas can make data collection a tedious process. However, you can prevent users from going outside the intended boundaries by disabling certain sections of your workbook. In this article, we’re going to show you how to lock a cell in Excel formula using VBA.

Protection

Worksheets are objects in a workbook’s worksheet collection and they have Protect and Unprotect methods. These methods determine the protected status of a worksheet as the name suggests. Both methods can get accept other optional arguments. The first is the password argument. By setting a string for the parameter argument, you can lock your worksheets with a password. Below is a breakdown.

Lock Cells

Important note: Protecting a sheet does not lock individual cells! The cells you want to lock should be marked as Locked too. A cell can be marked as Locked, and/or Hidden, in two ways:

The User Interface method requires using the Format Cells dialog. Select a cell or a range of cells, and press Ctrl + 1 to open this menu and go to the Protection tab. Use the corresponding checkboxes to activate properties.

The second method is doing this via VBA code. Every cell and range can be made Locked and FormulaHidden properties. Set these two as True or False to change their status.

You can use the Hidden status to hide your formulas as well.

Detect Cells with Formulas

If you just need to lock only cells with formulas, you need to first identify cells that have formulas. The cells and ranges have a HasFormula property, which makes them read only. It returns a Boolean value based on whether the cell or range has a formula. A simple loop can be used to detect cells in a given range that contain formula.

To run this code, you need to add a module into the workbook or the add-in file. Copy and paste the code into the module to run it. The main advantage of the module method is that it allows saving the code in the file, so that it can be used again later. Furthermore, the subroutines in modules can be used by icons in the menu ribbons or keyboard shortcuts. Remember to save your file in either XLSM or XLAM format to save your VBA code.

Lock cells and protect a worksheet

The code example below checks every cell in the range «B4:C9» from the active worksheet. If a cell has a formula, it locks the cell. Otherwise, the cell becomes or remains unlocked.

Источник