در خصوص Username & password فرم Login

[generalsamad]

با سلام
123

[wikshot]

با سلام
123

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

()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