Md. Abdul Kader

Hello EAC,
Thanks for your question. Most likely, you need to put a not equal sign (<>) inside the If…Then statement of your second code. So, the corrected second code will be as follows-

Sub block()
Dim hz As String
Dim hz1 As String

hz = InputBox("enter your password")
hz1 = InputBox("repeat password")

If hz <> hz1 Then
MsgBox "The repeated password is not identical!", vbExclamation
hz = ""
hz1 = ""
Else
Columns("D:F").Select
Selection.Locked = False
Range("D8:F12").Select
Selection.Locked = True
Range("a1").Select
ActiveSheet.Protect hz
End If
End Sub

However, your used three codes are quite messy. I would like to suggest that you can use the following code to lock a specific cell range in all worksheets of your Excel file.

Sub Lock_CellRange_AllSheets()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        ws.Unprotect Password:="1234" 'Replace the password if you want
        ws.Range("D8:F12").Locked = True 'Replace the cell range
        ws.Protect Password:="1234", UserInterfaceOnly:=True 'Replace the password with the actual password for the workbook if it is protected
    Next ws
End Sub

Again, try this code to unlock the specific cell range in all worksheets.

Sub Unlock_CellRange_AllSheets()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        ws.Unprotect Password:="1234" 'Replace the password if you want
        ws.Range("D8:F12").Locked = False 'Replace the cell range
        ws.Protect Password:="1234", UserInterfaceOnly:=True 'Replace the password with the actual password for the workbook if it is protected
    Next ws
End Sub

I hope these will work! Moreover, you can follow lock and unlock cells using VBA to explore more efficient methods.

Dear Deka,
It’s nice to hear from you with such wonderful appreciation. I myself always try to represent Excel applications in a more user-friendly way. And we, the ExcelDemy team, are working as a one-stop Excel solution provider.
Thanks, and take care of yourself. Goodbye!
Md. Abdul Kader
Editor, ExcelDemy.