I believe it was yesterday this board had a post how to lock and protect cells with data and leave them unlocked and unprotected if they're blank, but I can't find it. Does anyone know where it was?
View 9 Repliesis there a way to lock certain cells to allow data entry but not allow data to be removed.
View 2 Replies View RelatedI need the attached spreadsheet to lock cells after data is entered into cells E13-G74 and the page saved. It will be opened twice daily and saved. Also im not sure if it makes a difference but I would like all other cells outside this range locked except for C5, C6, C7 AND C8. I have seen several threads on the topic but am extremely new to using VBA and cannot make anything work.
View 6 Replies View RelatedI have a spreadsheet whee teammates can inut the date in one cell and the exact time in another cell - how do I lock the cell with the time so it can't be changed?
View 1 Replies View Related
I need a macro which will lock the cells after data is entered in the cell once. Cell should should be only edited after a password is provided. I found the following macro but the problem is that it's not locking the cells where I have Data Validation List :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:M10000")) Is Nothing Then 'set your range here
ActiveSheet.Unprotect Password:="1234"
Target.Locked = True
ActiveSheet.Protect Password:="1234"
End If
End Sub
I need a macro which will lock the cells after data is entered in the cell once. Cell should become non editable and should be only edited after a password is provided.
View 4 Replies View RelatedI am trying to apply a conditional cell lock to a worksheet. I am using Excel 2003, not 2007.
In column J, I have a list validation being used. The default value is "Not Claimed", I want to lock the cell from being edited once the value has been changed to any other value on the list.
The worksheet will be password protected to prevent entries into static fields (A:I & N:P).
I also would like to give the user the ability to unlock a specific cell, not the entire worksheet, by entering a password or something if they accidently choose a wrong value from the list.
I have column Q and beyond available if I need to have the password entered somewhere else.
I have attached a sample of the file I am working with.
I have searched and found many examples of code that will lock cells once data has been entered. But for some reason, I cannot get it to work in my workbook. The weird thing is, I have successfully got them to work on blank workbooks. I unlock a range I want people to be able to edit, I protect the workbook, I enter the code, and it works. But I do the same thing on my workbook, nothing locks.
I've tried locking all the cells on a sheet, and only unlocking a small range, as in the examples (A1:A10), and I cant get it to work. I've tried not pre-protecting the sheet, I've tried 4 or 5 different examples of code. If it wasn't for the fact I've gotten it to work on blank workbooks, I'd think VBA was disabled or something. I can't post a copy of my workbook for you all to look at because its on a stand-alone computer at work (and the USB is disabled for info-sec).
Excel Version 2007
I’d like to copy a range of cells: (A1 – A4) and paste them into Cell A5, but here’s the rub: I would like the values after I paste them to be separated by commas.
View 9 Replies View RelatedI am creating a 'add supplier' userform, in which i open the userform, type in the new suppliers information, then press submit.
The problem is that the data i enter deletes the data that i previously entered into row 26 instead of posting the data into a new row (I wish it to be 27, then 28, etc)
Here is my current code for the userform
VB:
Private Sub CommandButton1_Click()
nextrow = 26
Sheets("Suppliers").Cells(nextrow, 3) = UserForm5.TextBox1.Value
Sheets("Suppliers").Cells(nextrow, 5) = UserForm5.TextBox2.Value
Sheets("Suppliers").Cells(nextrow, 6) = UserForm5.TextBox3.Value
Sheets("Suppliers").Cells(nextrow, 7) = UserForm5.TextBox4.Value
[Code]....
I am in a process of creating a excel based productivity for my team. This workbook has 2 worksheet, one is QA productivity tracker which is accessible to all, after the information is filled i want to store it daywise in a master tracker (next worksheet).
I have created a macro which copies the information to master sheet, but the challenge i am facing is that at every execution, macro should paste the data in next row.
I don't believe my earlier post was a duplicat thread. I posted the original thread, then posted a LINK to the original thread. I didn't even ask the question in the link, so there was no way someone would have wasted time answering the question from there. I didn't think I was breaching protocal. Anyway, since both instances of the thread were closed, here is the re-post.
I've recently been trying to learn a little about pivot tables. In the example attached, I have 2 worksheets. One holds raw data collected from suppliers, the other holds a default pivot table created from that data.
i need someone that can think through this boolean logically. its been a long day at work and now I'm trying to walk through this boolean thing to make sure my data will post on the right pages.
I have an Excel Macro that will capture inputted customer/vehicle data from an input screen, at the end, based on questions answered, i need to place that data on 1 of 4 sheets in my excel document.
The questions are:
Is this a Nationwide claim? (Y.N) (boolean = nw)
Is the vehicle here? (Y/N) (boolean = vh)
So here's what i got
if NW = true and VH = True then place data on "sheet1"
if NW = true and VH = False then place data on "Sheet2"
if NW = False and VH = true then place data on "sheet 3"
if NW = false and VH = False then place data on "sheet4"
I can't think of how to write this IF statement for this to happen. can't get the logic going.
OR IS THERE A BETTER WAY?? i'm sure there is.
I have a data sheet where the user puts the date the activity takes place and the place,reason, and staff. What I am trying to do is once the user puts the data on the data sheet, the data is place on the calender sheet for that month and date.
View 9 Replies View RelatedI have attached link to a resource planner I have cobbled together and am stuck on the last piece of code. The "Assign Project" button needs to take the project and resource from the drop-down lists and populate the column of that resource with the project name between the dates that have been selected.
Resource Planner: [URL] ....
I'm using Excel 2010 and Windows 7
User form data entry.
I need to save the data of For Eg. A form in Sheet 1, B form in Sheet 2, C form data entry in sheet 3.
what is happening now is that, all the entries are going in the Active Sheet that is open in the excel file. I want to automate the process of data entry, by making it enter data from specific form in specific sheet.
1st form
Code:
Private Sub CommandButton1_Click()
eRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(eRow, 1) = ComboBox1.Text
Cells(eRow, 2) = TextBox12.Text
Cells(eRow, 3) = TextBox2.Text
Cells(eRow, 4) = TextBox3.Text
Cells(eRow, 5) = TextBox4.Text
Unload Me
ThisWorkbook.Save
End With
End Sub
2nd form
Code:
Private Sub CommandButton1_Click()
eRow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(eRow, 1) = ComboBox1.Text
Cells(eRow, 2) = TextBox14.Text
Cells(eRow, 3) = TextBox2.Text
Cells(eRow, 4) = TextBox3.Text
Cells(eRow, 5) = TextBox4.Text
Unload Me
ThisWorkbook.Save
End Sub
am making Excel for private use, i need the following makro to be active, here is the idea because i didnt yet work with makros at all:
If A1 = False
then Range B1:D1 will be locked cells
If A1 = True
then Range B1:D1 will be unlocked cells
Those rules apply to 1 day in the year.
the range A1:D1 will be copied about 400 so the makro should be active to each day separatly.
Check the picture attached for example of one day
I have a custom data entry form which is working fine. The form completes customer data for reviewing at a later date. I have now been asked to change it so it will seperate the data in to customer's who require some documents sent out and some that dont.
Is it possible to have a combobox on the form and if the options on the combobox are Yes and No (original), when either option is selected the data will complete on to a seperate sheet for cases with documents required or documents not required?
I'm using the code below to lock certain cells depending on the value of other cells. The code below deals with one line of my spreadsheet only and as the spreadsheet comprises 38 data entry rows I've repeated this code 38 times in the worksheet module with the appropriate changes to row numbers.
It works, but causes much screen flickering and "thinking". I'm new to vba so no doubt I've made this code too extensive or lengthy or whatever (or just plain wrong).
Can anyone assist with suggestions on how to simplify the code and/or help with code to handle all 38 lines without repeating the routine 38 times?
I am trying to lock the unused cells in 32, 2 column by 7 row named ranges, based on whether or not two cells, above each range are equal or less than each other. In other words while one of the cells is less than or equal to the second cell all cells in the range below should be unlocked, as soon as that condition is no longer true the blank cells need to be locked.
I am trying to use this in the Workbook_Sheetcalculate so that the macro will run automatically.
I am aware of setting protection to certain cells by the Excel Options. which is unlocking the by defalut locked cells and then setting the sheet protect in tools->protection. I want this to be done through VBA code.
i have a template which has text in some cells and some cells are blank, i need to lock the cells which has text and keep the blank cells unlocked for user input. As this is a template it will be copied to another sheet, so i need to retain the protection properties in all new sheets (copied from the template). Attaching the template for which the protection needs to be done.As of now the sheet1 has protection property set through the toolbar properties.
I use the attached workbook to keep tack of feed use in turkeys. when a new flock is added to a farm (Airport View or Home farm) A template is copied and pasted from the "templates" sheet depending on what type of diet they will be on. (Ralco ABF or Ralco Standard) that template refers to the Ration sheet to calculate how much corn is in each diet. After a flock is complete I will never change the numbers again, it is just for record keeping. I want to be able to change the Corn/ton numbers in a ration (on the rations tab) if need be and not affect all the older completed records.
View 1 Replies View RelatedIs there a way to protect a sheet from a user dragging a cell?
View 6 Replies View RelatedI have used the following code to lock cells when saving.
I need to exclude Cell B2 when saving
let me know what changes i should make.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
if ActiveSheet.Name = "Summary" Then
On Error Resume Next
'Resume to next line if any error occurs
Dim Cell As Range
With ActiveSheet
'first of all unprotect the entire
'sheet and unlock all cells
.Unprotect Password:="pw"
[code]....
W3:W300 is a protected range containing formulas returning numbers from one upwards, with two decimal places.
I need some vba to check this range and, if a number greater than 1 is found, to make the corresponding cells in Columns X and Y blank and lock them.
I am assigned to a very tedious task which requires me to lock selectively, cells from Jan through to Dec. Instead clicking the cells and selecting the various options from the menu bar, I would like to do it the other way.
If I want to go locking a cell upon selecting it, what are the VB codings?
I am trying to get user to enter month and goto sheet named the month they enter. I would also like to tag on the end of each one a 1,2,3,4 as I have four sheets four each month. Jan1, Jan2, Jan3, Jan4 etc..
Sub Cell()
Dim InptPass As String
Dim Pass As String
Dim month As String
Pass = "mypassword"
InptPass = InputBox("Please Enter Password")
If InptPass <> Pass Then
MsgBox "Incorrect Password", vbCritical
Exit Sub
Else
month = InputBox("Enter Month to Lock")
month1.Activate
ActiveSheet.Range("A1:BK22").Locked = True
MsgBox "Cells Locked", vbInformation
End If
End Sub
In my spreadsheet, I have a column for credit card totals (G) and cash totals (J)
I am adding the amounts for Food (Column B), Liquor (Column C), Wine (Column D), Beer (Column E), and Taxes ( Column F) for a total in Column G.
However, Column G is only for credit card totals and I want to do the same calculations for cash totals (Column J) using the same B through F Column without those numbers being plugged back into Column G, when I have no credit card total.
I've got a spreadsheet set up for a simple barcode scanning system. The user scans the barcode of the product when complete, and it logs it to a sheet along with a date & time timestamp. I'm then planning to use a v-lookup (barcode to product name) & pivot-table to count instances of 'product name' so that I can monitor what is being produced easier, nothing too tricky.
The problem I'm having comes from the products of the same spec having the same barcode, so data validation is hard to apply, as I can't 'not allow dupes' - the concern I have is that if the user unknowingly (or knowingly!) scans the same ticket twice, I think I've got 2 of a product when I've only got one. The idea I had was to lock all cells for a set time period (say 1 minute) after an entry so that it couldn't be accidentally scanned twice.
I want to copy a formula and want to lock a certain column, just like you use the dollar signs in normal formulas. Because the data in tables can't be locked with dollar signs.
Example:
example 1.xlsx