iorewscuba.blogg.se

1. #Excel 2010 protect cells without protecting sheet code
2. #Excel 2010 protect cells without protecting sheet password

MsgBox "Cell Access Denied", vbExclamation, "Access Status" '''This one gets pasted in to the userform module ProtectedCell.Select '''Set in the WorkSheet module OriginalCell.Select ''''then select this cell, this cell is set in the worksheet module MsgBox "Incorrect Password", vbOKOnly, "Warning"

#Excel 2010 protect cells without protecting sheet password

If UserForm1.TextBox1 "Password" Then ''''if the password does not match "Password" ''''This gets pasted in to the userform module Set ProtectedCell = Target ''sets variable for use in userform module If Not Intersect(Target, Range("A1")) Is Nothing Then '''sets which cell(s) to work with ''Use the above line to set a range of cells by changing ("A1") to your range say ("B4:D12") Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'''This also gets pasted in to the worksheet module Set OriginalCell = ActiveCell '''sets variable for use in userform module

#Excel 2010 protect cells without protecting sheet code

'''This gets pasted in to the sheet code module Using this would give you the flexibility of being able to protect or unprotect in shared workbook This could be for a single cell or cell range that only requires certain people to edit the Data in them. If you have difficulties in protecting the whole sheet for some reason or would like to protect something in a shared workbook but allow access on entry of a password. This enables the user to protect a single cell or group of cells without protecting the whole sheet using a userform for password entry to allow access to the cell Protect cell or cells on sheet without protecting sheet