Bill here is a method I use based on
David Hagers (Give credit to him)
In the sheet you want to protect place this code
in the sheets code page (right click sheets tab & select view code)
Public bflag As Boolean
Private Sub Worksheet_Calculate()
Static bflag
If bflag Then Exit Sub
On Error Resume Next
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End Sub
Then in add a module and place this code in;
Sub ChangeProtectMode()
Static bflag
Dim PW As String
'Run this routine again to Protect the sheet 'IFM
If bflag Then
bflag = False
Range("IV1").FormulaR1C1 = "=COUNTA(R[1]C:R[65535]C,C[-255]:C[-1])"
Exit Sub
Else
PW = InputBox("Password......")
If PW <> "test" Then End
'Replace formula
Range("IV1") = 1
bflag = True
End If
End Sub
This code will allow you to edit the sheet if you
need to. Password = "test" change it to suit.
Attach the code to an object or button.
Now it will allow you to do anything that doesn't require calculating, hence the use of the worksheet calculation event handler.
If you require a workbook example to email me.
Ivan