Clear cells

  • Thread starter Thread starter Alberto Ast
  • Start date Start date
A

Alberto Ast

I have a range of cells selected... using macros how can I unprotect all
those in the range that do not have formulas on it?
 
Hi

Try this:

Sub UnprotectCells()
ActiveSheet.Unprotect password:="JustMe"
For Each cell In Selection
If cell.HasFormula = False Then
cell.Locked = False
End If
Next
ActiveSheet.Protect password:="JustMe"
End Sub

Regards,
Per
 
Try the below....

Me.Unprotect Password:="dist"
ActiveSheet.Cells.Locked = True
Selection.Locked = False
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Locked = True
Selection.FormulaHidden = True
Me.Protect Password:="dist"

If this post helps click Yes
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

VBA set thick borders around non empty cells in range 0
Change Event code 6
Returned position address on protected sheet 7
Protecting worksheet. 1
ListObjects - VBA code that worked in previous versions of Excel doesnot work in Excel 2013 2
Object range failed 1
Code for multiple select of cells 16
Create a Clear button to clear unprotected cells 2

Back
Top