Hi, I have the below code but when I share workbook it does't work.. any help pls
Sub UnP()
Dim wks As Worksheet
Dim strPassword
strPassword = InputBox("Enter the password", "Password")
ActiveSheet.Unprotect Password:=strPassword
Range("A4:I1000").Select
Selection.Locked = False...