Macro

I need to protect this sheet and tried the
ActiveSheet.Unprotect(at begining) and ActiveSheet.Protect
(at end) and it did not work?

I also wanted to eliminate the first prompt by making the
first Default any number other than zero?

Thank you for any assistance you can give.


Dim vResult1 As Variant
Dim vResult2 As Variant
vResult1 = Application.InputBox( _
Prompt:="Enter Row Number to Replace", _
Default:=20, _
Title:="Replacer", _
Type:=1)
If vResult1 = False Then Exit Sub 'user cancelled
vResult2 = Application.InputBox( _
Prompt:="Enter Replacement Row Number", _
Default:=21, _
Title:="Replacer", _
Type:=1)
If vResult2 = False Then Exit Sub 'user cancelled
With Range
("A3:AF3,B7:AC7,B11:AF11,B15:AE15,B19:AF19,B23:AE23,B27:AF2
7,B31:AF31," & _
"B35:AE35,B39:AF39,B43:AE43,B47:AF47")

.Replace _
What:=vResult1, _
Replacement:=vResult2, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False

End With
End Sub

Not sure if this will help, but at the end, instead of just Protect, try:

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Your thread got stolen.

But you have a reply at your other post in .misc.

Frank wrote:
>
> I need to protect this sheet and tried the
> ActiveSheet.Unprotect(at begining) and ActiveSheet.Protect
> (at end) and it did not work?
>
> I also wanted to eliminate the first prompt by making the
> first Default any number other than zero?
>
> Thank you for any assistance you can give.
>
> Dim vResult1 As Variant
> Dim vResult2 As Variant
> vResult1 = Application.InputBox( _
> Prompt:="Enter Row Number to Replace", _
> Default:=20, _
> Title:="Replacer", _
> Type:=1)
> If vResult1 = False Then Exit Sub 'user cancelled
> vResult2 = Application.InputBox( _
> Prompt:="Enter Replacement Row Number", _
> Default:=21, _
> Title:="Replacer", _
> Type:=1)
> If vResult2 = False Then Exit Sub 'user cancelled
> With Range
> ("A3:AF3,B7:AC7,B11:AF11,B15:AE15,B19:AF19,B23:AE23,B27:AF2
> 7,B31:AF31," & _
> "B35:AE35,B39:AF39,B43:AE43,B47:AF47")
>
> .Replace _
> What:=vResult1, _
> Replacement:=vResult2, _
> LookAt:=xlPart, _
> SearchOrder:=xlByRows, _
> MatchCase:=False
>
> End With
> End Sub

--

Dave Peterson