Copy Protection :: Unique To A Computer
Feb 15, 2006
I understand that security in Excel is not very robust, but the users I intend to distribute a workbook to are not very sophisticated
Are there any system properties that are accessible to Excel/VBA and are unique to a computer that could be encoded in a hidden/protected cell, so the workbook would be frozen if copied to another computer?
Eg the user emails me that property which I enter in the check cell, and upon opening the workbook the check cell is compared to the system property, locking it up if the check fails?
View 9 Replies
ADVERTISEMENT
Nov 13, 2012
I have a condition setup (under "This Workbook") upon opening a spreadsheet to verify a computer's predetermined motherboard serial number that will shut the Excel workbook down if the numbers do not match. This works fine. What I'd like to do is to add a second condition that will allow a password to be entered in a textbox if the numbers do not match so that the serial number condition could be manually overridden, if necessary. If the serial number and the password are incorrect the workbook automatically closes.
Here is the code that works:
Private Sub Workbook_Open()
If CreateObject("Scripting.FileSystemObject").GetDrive("C:").SerialNumber "-XXXXXXX" Then ActiveWorkbook.Close False
End Sub
Here is what I am attempting to do that is not functioning properly - need to add a textbox to enter a password to override an incorrect serial number
Private Sub Workbook_Open()
If CreateObject("Scripting.FileSystemObject").GetDrive("C:").SerialNumber "-XXXXXXX" Then
Dim Rng
Rng = InputBox("aaaaaa")
If Rng "aaaaaa" Then ActiveWorkbook.Close False
End Sub
View 9 Replies
View Related
Nov 29, 2007
I am attempting to copy a range from one worksheet and paste it to a new worksheet when the system clock hits a specific time. It needs to run continuously and identify that a previous colum has been filled and paste into the next open column. I am just getting my feet wet. I have some code to begin with but I am getting a 1004 error.
'Application. ScreenUpdating = False
Sheets("mysheet").Select
Range("E3:E10").Select
Selection.Copy
Sheets("CmyOtherSheet").Select
Range("B1:B8").Select
ActiveSheet.PasteSpecial xlPasteValues
'rTime = TimeValue("12:31:00")
'Application .OnTime rTime, "RunThisProcedure"
View 4 Replies
View Related
Dec 3, 2007
I have a worksheet that sometimes needs to be edited. In order for me to copy and paste I have to "comment block" the Workbook change and the Worksheet change event macros. Make my copy and paste then I have to "Uncomment block". I do this manually. Is there a way to create a macro to do this? Or is there an easy way to do what I am trying to accomplish.
View 9 Replies
View Related
Jan 28, 2008
[url]
Private Sub Workbook_Open()
****'** MsgBox Environ("ComputerName")
****If Environ("ComputerName") UCase("Authorized PC Name") Then
********MsgBox "Sorry No Go!" & vbCrLf & "Wrong computer!"
********End
****Else
********'** Do your thing here
********MsgBox "Proceed"
****End If
End Sub
Reading the thread in the link above, It seems as if one could limit access to a workbook. I tried this code on a dummy workbook, I have a few question...
1. Why am I getting "Sorry, No Go. Wrong Computer" when I just put the code in the dummy worksheet for the first time?
2. Can this code be modified to capture my clients computer information to restrict the workbook useage only on one computer and prevent unauthorized distribution to other computers?
3. Can this code run automatically everytime the workbook is open?
View 9 Replies
View Related
Feb 1, 2007
I have hidden columns on a sheet.
I protect the sheet with a password before I send out the file to a 3rd party. However, it seems that all a user has to do is select the sheet cells, copy and paste onto another sheet or file. The protection is nonexistant and the user is able to unhide the columns.
Am I missing something?
Is there a way to "really" protect a sheet so that a user is unable to unhide confidiential columns? Preferably a method without VBA code.
View 9 Replies
View Related
Dec 24, 2008
I have the following code from a form. It works just fine copying named ranges from one sheet to another. The probloem now is that I don't want to copy the characteristic of the formating or whether they are protected or not. The originating spreadsheets have cells that are protected. I am trying to copy those values over to the new sheet and paste their values or formulas but not their formatting (background color) or the fact that some of the cells are 'locked'. I want the new sheet to have the values and formulas but not the be lock for the user. Is this possible with the current way I do the code or do I have to rewrite it? How would you approach this?
Private Sub CommandButton1_Click()
Import_Data_Form.Hide
Run "NPA"
Set b = Selection
ad = b.Address
' Local Variables
Dim wkbDataFile As Workbook
' Let user select source datafile
Call UserSelectFile_WOpen(wkbDataFile)
If wkbDataFile Is Nothing Then
MsgBox "User did not select a workbook to open"
Exit Sub
End If
Application. ScreenUpdating = False
Set wb = ThisWorkbook
Application.DisplayAlerts = False
View 4 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
Oct 8, 2013
I am trying to make a summary of data in an excel spreadsheet. I want to copy the last unique row based off the first column Here is an example of the data:
DocOrd#
text
Value
1
[Code] .........
View 1 Replies
View Related
Jan 8, 2009
How to make it copy over A, B, and C not just A and B? I tried adjusting some of the ranges, but I get a Run time Error 104. Also, what is the (Rows.Count, 3) doing?
Sub CopyUnique()
Dim LR&, LR2&
Application.ScreenUpdating = False
With Sheets("AY")
.Range("A1:B1").EntireColumn.Insert
LR& = .Cells(Rows.Count, 3).End(xlUp).Row
.Range("C1:D" & LR&).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("A1:B" & LR&), Unique:=True
LR2& = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("A1:B" & LR2&).Copy Sheets("ORG").Range("A1")
Sheets("ORG").Columns("B:B").Columns.AutoFit
.Columns("A:B").Delete Shift:=xlToLeft
Application.CutCopyMode = False
End With
Application.ScreenUpdating = True
End Sub
View 9 Replies
View Related
Oct 20, 2006
I have a piece of code that is designed to look at information on one sheet, and if it does not match what is on another sheet, it will copy the specific rows over. However, even after I do this once, and run the macro again, it will copy the same information over again. I need to figure out why it won't stop the copy after the first time the rows are on the new page.
Sub Datamove()
Dim i As Integer
Dim k As Integer
Dim v As Integer
Dim eRow As Long
Dim sht1 As Worksheet
Dim sht2 As Worksheet
Set sht1 = Worksheets("Uncorrected QC")
Application.ScreenUpdating = False
k = 2
With sht1
For v = 2 To . Cells(Rows.Count, 1).End(xlUp).Row Step 1
Dim shName As String....................................
View 4 Replies
View Related
Sep 25, 2009
I am starting an excel file that extracts file from another worksheet, then after it is extracted, A2 cell has a value in cell B2, I wanted to copy all the cells in column A&B to column C&D in such a way that when the word "check is encountered in column A, it will arrange itself in the last with the other cells that contain same words before the word "check". I wanted to do this in macro or formula if possible.
View 12 Replies
View Related
May 30, 2012
I am trying to copy unique records from one sheet (timliness_etcc) G column to another sheet analysis starting from column A row 29
Sub Test()
Dim Sh1 As Worksheet
Dim Rng As Range
Dim Sh2 As Worksheet
Set Sh1 = Worksheets("Timliness_NAV_details")
Set Rng = Sh1.Range("G1:G" & Sh1.Range("G65536").End(xlUp).Row)
Set Sh2 = Worksheets("Analysis")
Rng.Cells(1, 7).Copy Sh2.Cells(29, 1)
Rng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sh2.Range("A29"), Unique:=True
End Sub
View 1 Replies
View Related
Aug 2, 2006
I have a list in column C that the data appears numerous times. What I want to do is copy the first occurrence of that item along with the cells from columns A, B and E of that row to a new sheet called Unique Records in the same workbook. I tried Advanced Filtering but it is not working the way I thought it would.
View 5 Replies
View Related
May 3, 2007
From column A,(lets say cell 10 onwards) I need to copy all the unique entries into column B (cell 10 onwards). However, I dont know what length column A will be. What would be the best way in VBA/Excel to do so ?
View 4 Replies
View Related
Aug 18, 2009
Look up a match on sheet1 from individual cells from sheet2, and if match copy and paste to sheet3, and i need this to be done for every cell in sheet2. Sort of a CTRL-F type of deal but for about 3000 individual cells on sheet2. The sheet1 contains about 10 columms with about 10000 cells all together. so to do this individually its just not posible.
View 5 Replies
View Related
Jan 20, 2009
Have a long list of patients with visit details recorded - over 3 years worth
Many patients are seen multiple times, there is an age recorded also to ensure the same names can be 'set as distinct for different ages'
Need to replace (or add another column) the name field with a unique identifier so that we can ensure the same person has the same identifier.
View 9 Replies
View Related
Mar 1, 2004
I have a CSV spreadsheet full of data: many rows and many columns. I want to sort based on values in some column. Then, I want to divide my large worksheet into smaller worksheets based on these sorted column values. For instance, if column 4 was 20,000 items long and contained 6 unique values I would want to create 6 smaller spreadsheets. Each spreadsheet would still have a column 4. Now, however, all the column 4 values would be the same for a particular spreadsheet. It would be nice to have a pop-up window query me for which column to use to divide the data with, instead of hardcoding a value in (like 4).
I am trying to crank this CSV file through MATLAB and it is just too big. My PC has 1GB memory and it still craps out. I am guessing that a dozen or so smaller files will be easier for MATLAB to digest. Any help is appreciated!
For the record, I am doing the following to sort a column, then copy it to a scratch worksheet and then determine all the unique values. I have hardcoded in column lengths and would really like to know how to make these variable expressions:
Sub divide_and_conquer()
Dim lngSheet As Long
Dim strName As String
Range("A1:HR778").Sort Key1:=Range("D2"), Order1:=xlAscending, Key2:= _
Range("B2"), Order2:=xlAscending, Key3:=Range("E2"), Order3:=xlAscending _
, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _.............
View 9 Replies
View Related
Feb 6, 2008
I am trying to filter the data in my fortnightly timesheets based on each job code (of which there are multiple)to a new sheet. I have found code on the net which should be doing this but it keeps falling over on the following line:
rng.autofilter field:=fieldnum, criteriea1:="=" & cell.value
The error i am getting is: "Run-time error 1004:". Autofilter method of range class failed. The code has already taken out the unique values from my master sheet and copied the list to a new worksheet. It should then use this list as the criteria to filter the master sheet. I have spent hours looking at other web pages for an answer to this particular error but none are using a variable criteria like i am.
View 3 Replies
View Related
Jun 24, 2014
I need creating a macro which compare the values of "Column B" of attached both "Sample1" and "Sample2" excel files and if any unique value found in Column B of "Sample2" file then the entire row should be get copied in "Sample1" file after row count.
For ex. the rows colored as yellow in "Sample2" file are unique and should be get copied in "Sample1" file.
View 3 Replies
View Related
Jan 8, 2010
If you navigate on the file menu in the excel window to: Data>Filter>Advanced Filter
Then select:
Copy to New location, Unique records only. You can arrive at the macro
View 2 Replies
View Related
Aug 29, 2012
I am using the following code to copy a unique list, but it gives a duplicate in the first 2 rows(col Q). There is no headings in the columns.
Code:
Sub CopyUnique()
Dim lastrow As Long
lastrow = ActiveSheet.Cells(Rows.Count, "P").End(xlUp).row
ActiveSheet.Range("P11:P" & lastrow).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=ActiveSheet.Range("Q11"), Unique:=True
End Sub
View 4 Replies
View Related
Jul 8, 2014
I would like to copy values corresponding to a unique identifier from one sheet to another, using the vlookup function. The problem is that after a certain cell the values are given as N/A even though they are present in the sheet I want to copy them from.
View 3 Replies
View Related
Mar 5, 2008
Is there a code available that can be used to get the user's computer ID number (Not Computer Name)? I'm using a password generator to randomly generate a password and I would like to use this unique password with the user's Computer ID.
View 9 Replies
View Related
Mar 10, 2006
I have a problem running an excel macro on different laptops because the IP needs to be known (my program links to databases that are installed on a "server" laptop). The IP can be sourced by using the "Start, Run, cmd, ipconfig" but my users can have problems with process.
Does anyone know of a vb function that will display the ip of the computer that the code is run on?
View 9 Replies
View Related
Jun 28, 2007
a macro to get the computer ID of the computer where the excel file is opened?
View 9 Replies
View Related
Sep 8, 2007
i am experiencing runtime error '6': overflow on one computer but not on another computer when it is the exact same file running on two different computers.
View 9 Replies
View Related
Apr 5, 2008
Is there a code or formula to get the name of my Computer?
View 9 Replies
View Related
Jan 15, 2003
Is there any way to return the name of the computer in Excel using VB?
View 9 Replies
View Related
Feb 9, 2009
Does anyone have a macro that could assign a 16-digit number, seperated by dashes, to a computer? (i.e. Computer ID: xxxx-xxxx-xxxx-xxxx)
View 9 Replies
View Related
