پرسش درخواست رفع ارور قطعه کد ( Run-time error 1004 )

[wikshot]

سلام این قطعه کد رو نوشتم با ارور مواجه میشم

()Private Sub UserForm_Activate

Dim sh As Worksheet
Dim wsh As Worksheet
Set sh = ThisWorkbook.Sheets("User Management")
ThisWorkbook.Unprotect 1234
sh.Visible = xlSheetVisible
For Each wsh In ThisWorkbook.Worksheets
If wsh.Name <> "User Management" Then
wsh.Visible = xlSheetVeryHidden
End If
Next wsh
sh.Unprotect 1234
sh.Cells.EntireColumn.Hidden = True
sh.Cells.EntireRow.Hidden = True
sh.Unprotect 1234
ThisWorkbook.Protect 1234
End Sub