Boa tarde!!
Não testado!!
Sub AleVBA_15873()
ActiveSheet.Protect Password:="SuaSenha", DrawingObjects:=False, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoRestrictions
'ou...........
ActiveSheet.Protect Password, UserInterfaceOnly:=True, AllowFiltering:=True, DrawingObjects:=False, AllowFormattingCells:=True, Contents:=True
End Sub
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 19/05/2015 1:59 pm