
Dim pw as String
...
pw = Worksheets("Riferimenti").Range("A10").Value
...
ActiveSheet.Unprotect Password:=pw
...
Range("A1").Select
ActiveWorkbook.Save
ActiveSheet.Protect Password:=pw
Application.Quit
Exit Sub |
Dim pw as String
...
pw = Worksheets("Riferimenti").Range("A10").Value
...
ActiveSheet.Unprotect Password:=pw
...
Range("A1").Select
ActiveWorkbook.Save
ActiveSheet.Protect Password:=pw
Application.Quit
Exit Sub |
