I need change in the VBA to create Input Password form with masking
Sub Unprotect()
Dim i As Integer
Dim Pwd As String
Pwd = InputBox("Enter your password to unprotect all worksheets", "Password Input")
'Lock all the cells that are selected color
For i = 1 To ActiveWorkbook.Worksheets.Count
Sheets(i).Activate
Sheets(i).Unprotect Password:=Pwd
Next i
MsgBox "Worksheets are unlocked!!"
End Sub
Sub Unprotect()
Dim i As Integer
Dim Pwd As String
Pwd = InputBox("Enter your password to unprotect all worksheets", "Password Input")
'Lock all the cells that are selected color
For i = 1 To ActiveWorkbook.Worksheets.Count
Sheets(i).Activate
Sheets(i).Unprotect Password:=Pwd
Next i
MsgBox "Worksheets are unlocked!!"
End Sub