Notifications
Clear all

Exigir preenchimento de célula especifica

2 Posts
1 Usuários
0 Reactions
907 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Tenho um formulário em xls (Excel 2000) a qual encaminho para os usuário para preencherem,
mas a maioria esquece de preencher alguns campo (células), teria como colocar um erro ao salvar caso
a pessoa não preencha todos os campos do formulário? Ou seja exigir preenchimento de célula especifica?

Agradeço a todos que ajudarem.

 
Postado : 25/07/2012 11:15 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Eu uso Offiice2007....
Tente adaptar

Private Sub Worksheet_Change(ByVal Target As Range)
'Bloquear células com certa condição
If Target.Column <> 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
    If Target.Value = "Sua_Condição" Then
        Me.Unprotect
        Cells(Target.Row, 10).Locked = True
        Me.Protect
    End If
End Sub
 
Postado : 28/07/2012 4:05 am