
Activesheet.Protect e Activesheet.Unprotect
Sub CANC()
ActiveSheet.Unprotect Password:=""
Range("O7") = "0"
Range("k4") = ""
Range("n7") = ""
Range("I11") = ""
Range("I9") = "1"
Range("I7") = "40"
Range("F11") = "20"
Range("F9") = "120"
Range("F7") = "80"
Range("F7").Select '???????
ActiveSheet.Protect Password:="", userinterfaceonly:=True
ActiveWorkbook.Save
End Sub |
