Locked Several Worksheets, allow format cells/select unlocked cell

  • Thread starter Thread starter Ana24
  • Start date Start date
A

Ana24

Hi: I have several worksheets that have locked cells and unlocked cells. User
are able to select unlocked cells to enter data. I have a VBA code I got off
of another post, but it only allows users to select unlocked cells on each
worksheet. How can I also allow users to format unlocked cells using VBA so I
don't have to go one by one protecting each sheet in the workbook. Mainly I
would like for them to be able to change the font color. This is what I
currently have:
Sub LockDown()
For Each ws In Worksheets
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
Password:="elara"
Next ws
End Sub

Sub UnlockAll()
For Each ws In Worksheets
ws.Unprotect Password:="elara"
Next ws
End Sub


Thank You!
 
If you're protecting the worksheets in code, you can add another parm that
allows your code to do things that the user can't (not all things, but lots).

Sub LockDown()
For Each ws In Worksheets
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
Password:="elara", UserInterfaceOnly:=True
Next ws
End Sub
 
ps. If you find things that you code can't do when the sheet is protected (even
with that parm set), you can modify your macro to:

Unprotect the sheet
do the work
reprotect the sheet

The user won't know what hit 'em <vbg>.
 
Back
Top