Dicas Excel Macros VBA


Proteger as células com formulas com macro método validação dados

Pergunta 28:
Preciso de uma macro que proteja minhas formulas pela validação de Dados, é possível

Resposta 28:
Esta macro protege as células que contém formulas fórmulas
Faça o seguinte: insira no módulo comum esta macro.

Sub Proteger_Formulas()
Range("A1").Select
On Error Resume Next
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=">1"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle =
"Existe Fórmula - não digite!"
.InputMessage = ""
.ErrorMessage =
"Célula com Fórmula está protegida!!"""
.ShowInput = True
.ShowError = True
End With
End Sub