worksheet protection
It is an example to lock/unlock cells with formulas.
Sub LockCellsWithFormulas(passwd As String, Optional bLock As Boolean = True) Dim c As Object ActiveSheet.Unprotect Password:=passwd For Each c In ActiveSheet.UsedRange.Cells 'only in used range. If exist more than 1 UsedRange then macro locks/unlocks only cells in first used range ' For Each c In ActiveSheet.Cells 'in all worksheet If c.Formula Like "=*" Then c.Select Selection.Locked = bLock Selection.FormulaHidden = bLock End If Next c If passwd < "" Then _ ActiveSheet.Protect Password:=passwd, DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub Uzytkownik "Todd" napisal w wiadomosci ... Is there a way to select all cells without a formula and unlock them? Maybe a macro? I want to protect all the cells with formulas and leave the rest open to changes. Right now all cells with data are locked. I have a lot of worksheets so doing this manually will take a LONG time. TIA Todd |
All times are GMT +1. The time now is 02:02 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com