Saving, locking cells and others

[slay0r]

Hi there,

Using Excel 2003..

I've got a workbook called "creditstoplist" this is like a masterfile that I don't want anyone to be able to touch so what I'd like is a bit of code that will take all of the colouring out of the cells below Row 7 across the whole spreadsheet (no fill) and then to lock all the cells below this row with the password "creditstop"

Is that easy enough or will it be difficult?

Cheers guys!

 

[nuked]

Alt+F11
Insert > Module
Paste the following code

Option Explicit
Sub ClearAndLock()
ActiveSheet.Unprotect "creditstop"
ActiveSheet.Cells.Locked = False
ActiveSheet.Range(Cells(7, 1), Cells(ActiveSheet.Rows.Count, ActiveSheet.Columns.Count)).Interior.Pattern = xlNone
ActiveSheet.Range(Cells(7, 1), Cells(ActiveSheet.Rows.Count, ActiveSheet.Columns.Count)).Locked = True
ActiveSheet.Protect "creditstop"
End Sub

Close the VB Editor
Alt+F8 to bring up the Macro window
Run ClearAndLock

 

[alfranco17]

You could record a macro while doing the following:<p>Select rows 1 - 6, press Ctrl-1, go to the Protection tab and remove the protected checkmark.<p>
Select row 7.<p>
Press Ctrl-end and then Ctrl-Shift-down arrow.<p>
Press Ctrl-1, under the fill tab select "no fill", under the protection tab select "protected".<p>
On the menu, go to Tools - Protection and select either Protect Sheet or Allow users to edit ranges.<p>
Stop recording.<p>
That should be the code you need.<p><p>Nuked beat me to it and he gave you the fish.

 

[slay0r]

Thanks guys that works perfectly!