BLOQUEAR DIGITAR EM CELULA NO EXCEL
Bom Dia a todos !!!!
Estou aqui de novo com meu problema no excel.
Estou gerando uma tabela no excel pelo vb6, e gostaria de saber :
Tenho a Coluna A, Coluna B, Coluna C, Coluna D
Coluna A: Codigo - 001
Coluna B: Descrição - Bolacha Passatempo
Coluna C: Quantidade - 2,0
Coluna D: Valor - 0,00 - O usuario vai alterar só aqui o valor o restante não
Gostaria de bloquear (não deixar) o usuario alterar somente o valor o resto não.
Tudo isso pelo vb6.
Obrigado a todos que puderem meu auxiliar e tenham um Bom Dia. Deus Abençoe.
Estou aqui de novo com meu problema no excel.
Estou gerando uma tabela no excel pelo vb6, e gostaria de saber :
Tenho a Coluna A, Coluna B, Coluna C, Coluna D
Coluna A: Codigo - 001
Coluna B: Descrição - Bolacha Passatempo
Coluna C: Quantidade - 2,0
Coluna D: Valor - 0,00 - O usuario vai alterar só aqui o valor o restante não
Gostaria de bloquear (não deixar) o usuario alterar somente o valor o resto não.
Tudo isso pelo vb6.
Obrigado a todos que puderem meu auxiliar e tenham um Bom Dia. Deus Abençoe.
Bom creio eu que o via código você consegue setar a opção [Ô]bloqueado[Ô] na celular também, tente pegar nas propriedades da celular a propriedade [Ô]BLOQUEADO[Ô].
Ou faça isso via Planilha mesmo, depois você faz o mais grosso via código, pq aparatemente isso é uma mascara certo ?
Ou faça isso via Planilha mesmo, depois você faz o mais grosso via código, pq aparatemente isso é uma mascara certo ?
Pergunta você sabe bloquear uma célula direto no Excel.
se sim, faz o seguinte vá em macros---> gravar nova macro ---> e comece a fazer o que deseja manualmente, depois que fizer tudo pare a macro, e abra a mesma, lá estará todo código que você vai precisar
se sim, faz o seguinte vá em macros---> gravar nova macro ---> e comece a fazer o que deseja manualmente, depois que fizer tudo pare a macro, e abra a mesma, lá estará todo código que você vai precisar
Só adaptar.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ColunasC As Range
Set ColunasC = Range([Ô]A3:A5[Ô])
If Not Application.Intersect(ColunasC, Range(Target.Address)) Is Nothing Then
ActiveSheet.Unprotect ([Ô]Teste[Ô])
Linha = Target.Row
Range([Ô]c[Ô] & Linha).Locked = True
Range([Ô]d[Ô] & Linha).Locked = True
Range([Ô]e[Ô] & Linha).Locked = True
Range([Ô]f[Ô] & Linha).Locked = True
ActiveSheet.Protect ([Ô]Teste[Ô]), DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ColunasC As Range
Set ColunasC = Range([Ô]A3:A5[Ô])
If Not Application.Intersect(ColunasC, Range(Target.Address)) Is Nothing Then
ActiveSheet.Unprotect ([Ô]Teste[Ô])
Linha = Target.Row
Range([Ô]c[Ô] & Linha).Locked = True
Range([Ô]d[Ô] & Linha).Locked = True
Range([Ô]e[Ô] & Linha).Locked = True
Range([Ô]f[Ô] & Linha).Locked = True
ActiveSheet.Protect ([Ô]Teste[Ô]), DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
Tópico encerrado , respostas não são mais permitidas