fix error 1004 when the sheet is protected

[kar2rost]

Hello and have a good time
I want to record a text value in column b with this button

Sub Button37_Click()

 ActiveCell.Value = Range("h1").Value
End Sub

I have locked all cells of the sheet
And it is locked in another column after registering the sheet number by this code

Sub commandbutton_click5()
  Dim sh As Worksheet
  Dim f As Range
 
  Set sh = ThisWorkbook.Sheets("sheet1")
  Set f = sh.Range("A:A").Find(sh.Range("f7"), , xlValues, xlWhole, , , False)
 
  If f Is Nothing Then
    sh.Unprotect
    With sh.Range("A" & sh.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row)
      .Value = sh.Range("f7").Value
      .Offset(0, 1).Select
      .Locked = True
    End With
    sh.Protect
  Else
    MsgBox "this number is available"
    f.Select
  End If
End Sub

I want to first if accidentally on one of the cells of column a
It was clicked and then on button 37, it will give a message that only numbers can be entered and dont allowed and value in the cell dont be clean

Secondly, after the sheet is locked, if a cell on the page is accidentally clicked and button 37 is pressed, it should not give error 1004.
Can I do this?

Is there a way to make the buttons work only in the specified range and do nothing in other ranges?
Thankful

 

[dave3009]

The first part is not entirely clear, but I expect you want to just test the cell is numeric

Sub abcd()
With Range("H1")
    If IsNumeric(.Value) Then
        ActiveCell.Value = .Value
    End If
End With
End Sub

You cannot use find on a protected sheet, so in your second macro move the unprotect earlier in the procedure, so before you set your two variables.

Yes, you can specify a range of cells for the code to work in using intersect

Sub defg()
If Not Intersect(ActiveCell, Range("A2:G20")) Is Nothing Then
    ' code to execute if the activecell is within A2:G20
End If
End Sub