[Albino]

boas.
tenho a seguinte duvida:
haverá forma (ceretamnte que sim) de proteger uma linha para edição após ter alterado determinada celula?
isto é por ex: após escrever numa celula “pago” a linha correspondente a essa celula ficar automaticamente protegida para alteração.
já tenho um código para inserir data em determinada celula quando uma outra é alterada que é o seguinte

private sub worksheet_change(byval target as excel.range)
activesheet.unprotect
if target.column = 8 and range(“$h$” & target.row) = “pago” then range(“$i$” & target.row).value = date

activesheet.protect

end sub

o meu objectivo é: quando escrever “pago” na celula da coluna “h”, aparecer a data na celula da mesma linha da coluna “i” e depois essa linha ficar bloqueada.

espero ter sido explicito.
obrigado
albino

[jorgerod]

boas, albino,

tenta adaptar o seguinte código:

private sub worksheet_change(byval target as excel.range)

activesheet.unprotect password:=”xpto”
if ucase(cells(target.row, 16)) = “x” then
cells(target.row, 1).resize(, 16).locked = true ‘bloqueia as cols a-o da linha activa
else
cells(target.row, 1).resize(, 16).locked = false
end if

activesheet.protect password:=”xpto”, drawingobjects:=true, contents:=true, scenarios:=true
end sub

fica bem e diz qq coisa.

[Albino]

boas
jorgerod
epá, apliquei o codigo no entanto devolve-me o erro 1004 e a linha
“cells(target.row, 1).resize(, 16).locked = false”, fica amarela.
o codigo que tenho:
____________________________________________
private sub worksheet_change(byval target as excel.range)

activesheet.unprotect

if target.column = 8 and range(“$h$” & target.row) = “pago” then range(“$i$” & target.row).value = date

if ucase(cells(target.row, 16)) = “pago” then
cells(target.row, 1).resize(, 16).locked = true ‘bloqueia as cols a-o da linha activa
else
cells(target.row, 1).resize(, 16).locked = false

end if

‘activesheet.protect password:=”xpto”,

activesheet.protect , drawingobjects:=true, contents:=true, scenarios:=true

end sub
não sei o que está mal.

abraço

[jorgerod]

albino,

manda-me a folha de exemplo, ok?

[Albino]

boas

ai vai então.
de referir que os dados na folha são colados nessa folha vindo de outra atravez de macro.
na coluna “h” são sempre colados “deve”, ao alterar para “pago” será colada a data na coluna “i” e desejava que quando essa linha fosse alterada de “deve” para “pago” a mesma não pudesse ser alterada novamente (toda a linha).
CartaUtentes.xlsm

[jorgerod]

albino,

por qualquer razão, não me deixa “sacar” o ficheiro. podes coloca-lo zipado?

[Albino]

jorgerod
estava aefectuar alterações.
tenta agora
CartaUtentes.xlsm

[jorgerod]

albino,

experimenta:

option compare text

private sub worksheet_change(byval target as excel.range)

activesheet.unprotect password:=””

if target.column = 8 and range(“$h$” & target.row) = “pago” then

range(“$i$” & target.row).value = date

elseif range(“$i$” & target.row).value “” then

cells(target.row, 1).resize(, 9).locked = true ‘bloqueia as cols a-i da linha activa

else
cells(target.row, 1).resize(, 9).locked = false

end if

activesheet.protect password:=””, drawingobjects:=true, contents:=true, scenarios:=true

end sub

fica bem e diz qq coisa, ok?

[Albino]

boas
jorgerod.
ficou maravilha. 👿
muito obrigado. b)
cumprimentos

[Albino]

boas.
jorgerod.
afinal tenho mais uma pequena alteração para aquela instrução.
pretendo que quando colo os dados na folha, as celulas dessa linha fiquem bloqueadas excepto as das colunas j,k,l. quando efectuar a alteração na coluna j para “pago” entÃo toda a linha deverá ficar protegida excepto a coluna l.
tentei adaptar o código, mas não faz o que pretendo.
altei para:
option compare text

private sub worksheet_change(byval target as excel.range)

activesheet.unprotect password:=”roma13″

‘apartir daqui alterei, mas não surte o efeito desejado
if range(“k$” & target.row).value = “deve” then

cells(target.row, 1).resize(, 9).locked = true and cells(target.row, 10).resize(, 12).locked = false _
‘bloqueia as cols a-i e liberta as cols j-l da linha activa, pensava eu

‘else

‘coloquei esta parte do código em baixo pensando que funcionaria
elseif target.column = 10 and range(“$j$” & target.row) = “pago” then

range(“$k$” & target.row).value = date
end if

activesheet.protect password:=”roma13″, drawingobjects:=true, contents:=true, scenarios:=true

end sub

mais uma vez peço a tua ajuda.
obrigado
cumprimentos

[jorgerod]

boas, albino,

verifica o código que te envio em anexo e altera para de acordo com o que pretendes, em termos de colunas.

atenção: antes de iniciares a execução do código, deves desproteger a folha e clicar no canto superior esquerdo da mesma, para “marcares” toda a folha. depois, clicas com o botão direito do rato e escolhes “formatar células”. vais a protecção e desmarcas a flag “protegida”. a partir daqui, acho que o código já funcionará como pretendes.

experimenta e depois diz qq coisa, ok?

cumprimentos.
CartaUtentes_A.xlsm

[Albino]

boas
jorgerod

a tua sugestão, com as alterações das linhas que eu efectuei funciona, no entanto a celulas da linha recém colada só ficam protegidas após a edição de uma celula.
eu necessitava que ao serem coladas as celulas na nova linha, essa linha ficasse bloqueada para edição excepto as celulas das colunas k,l e m dessa linha.
aquela instrução do “deve”, pensei eu, que ao ser colado o texto na linha a intrução fosse logo executada, mas isso não acontece. É que o “deve” é colado , não inscrito na linha. haverá forma de alterar isso?
se quiseres coloco aqui o ficheiro integral.
obrigado
abraço.
albino

[jorgerod]

albino,

por favor coloca, ok? talvez seja mais fácil compreender 🙂 e tentar resolver…;)

[Albino]

boas
jorgerod.
lá vai então o ficheiro. b)
obrigado
CartaUtentes2.1.xlsm

[jorgerod]

albino,

por favor verifica o seguinte código:

option compare text

private sub worksheet_change(byval target as excel.range)
dim i as long
activesheet.unprotect password:=””

i = activecell.column
cells(104536, i).end(xlup).offset(1, 0).select

if range(“$l$” & target.row) = “deve” then
cells(target.row, 1).resize(, 11).locked = true
cells(target.row, 12).locked = false
cells(target.row, 13).locked = false
cells(target.row, 14).locked = false
‘cells(target.row, 11).locked = false
‘cells(target.row, 12).locked = false
end if

if target.column = 12 and range(“$l$” & target.row) = “pago” then

range(“$m$” & target.row).value = date

elseif range(“$m$” & target.row).value “” then

cells(target.row, 1).resize(, 13).locked = true ‘bloqueia as cols a-m da linha activa

else

end if

activesheet.protect password:=””, drawingobjects:=true, contents:=true, scenarios:=true

end sub

como te referi antes, da 1ª vez que utilizes a folha e antes de iniciares a execução do código, deves desproteger a folha e clicar no canto superior esquerdo da mesma, para “marcares” toda a folha. depois, clicas com o botão direito do rato e escolhes “formatar células”. vais a protecção e desmarcas a flag “protegida”. a partir daqui, acho que o código já funcionará como pretendes.

[jorgerod]

albino,

quanto à questão dos botões de comando, porque não utilizar um toolbar apropriado?

então, aqui vai:

código para colocares em “este livro” (thisworkbook):

option explicit

private sub workbook_activate()
call showtoolbar(true)
end sub

private sub workbook_beforeclose(cancel as boolean)
call deletetoolbar
end sub

private sub workbook_deactivate()
call showtoolbar(false)
end sub

private sub workbook_open()
call createtoolbar
end sub

código para colocares num módulo:

option explicit

public const strtoolbar = “my toolbar”

sub createtoolbar()
dim cbr as commandbar
dim cbb as commandbarbutton

on error resume next

commandbars(strtoolbar).delete

on error goto errhandler

set cbr = commandbars.add(strtoolbar)
with cbr
.position = msobartop
.visible = true
end with

set cbb = cbr.controls.add(msocontrolbutton)
with cbb
.caption = “procurar”
.onaction = “procurar_click”
.style = msobuttoncaption
.visible = true
end with

set cbb = cbr.controls.add(msocontrolbutton)
with cbb
.caption = “desfazer”
.onaction = “desfazer_click”
.style = msobuttoncaption
.visible = true
end with

set cbb = cbr.controls.add(msocontrolbutton)
with cbb
.caption = “red”
.onaction = “red”
.style = msobuttoncaption
.visible = true
end with

exithandler:
set cbb = nothing
set cbr = nothing
exit sub

errhandler:
msgbox err.description, vbexclamation
resume exithandler
end sub

sub deletetoolbar()
on error resume next
commandbars(strtoolbar).delete
end sub

sub showtoolbar(f as boolean)
on error resume next
commandbars(strtoolbar).visible = f
end sub

sub red()
‘
‘ red macro
‘ macro recorded 11/01/2007 by samsung
‘

‘
msgbox “teste”
end sub

experimenta. vais encontrar este novo toolbar no tabulador “suplementos”.

experimenta e diz qq coisa, ok?

[Albino]

olá
jorgerod.
em relação a este primeiro problema ela presiste, pois quando os dados são colados na folha control, as celulas de a a k só ficam protegidas após a edição de uma qualquer celula dessa linha.
todo resto funciona bem.
penso eu de que e, como sou basico nisto, não será que a instrução de “worksheet_change” só vai ser executada quando há alteração na folha? porque essa mesma instrução é executada após por ex: fazer duplo clic numa celula.

ps:tentei algo e deu resultado foi o seguinte:
desactivei a linha
‘cells(target.row, 1).resize(, 11).locked = true
protegi todas as colunas de a a k e desprotegi as col l a n
ao rodar o código funciona como eu queria.

vou experimentar a parte dos botões. depois digo algo

obrigado

[Albino]

boas
jorgerod

em relação há segunda parte do problema, fiz como tu indicas-te e resultou. outra coisa não era de esperar. :laugh:

há um pequeno senão no friso onde foram criados os botões ficam com letra muito pequena e não se notam separações entre eles. É possivel alterar isso?
no entanto está bom assim.
obrigado
albino

[jorgerod]

albino,

sem ter experimentado, tenta:

set cbb = cbr.controls.add(msocontrolbutton)
with cbb
.caption = “procurar”
.font.name = “times new roman”
.font.size = 14
.onaction = “procurar_click”
.style = msobuttoncaption
.visible = true
end with

se der resultado, faz o mesmo para o desfazer.

diz depois qq coisa, ok?

um abraço

[jorgerod]

albino,

apenas por brincadeira, experimenta este código, que coloca o comando a flutuar, de acordo com as tuas movimentações de células, para a direita e para a esquerda:

private sub worksheet_selectionchange(byval target as range)
if target.column < 3 or target.row < 3 then exit sub
with activesheet.shapes("moldura 3")
.top = target.offset(-2).top
.left = target.offset(, -2).left
end with
end sub

[Albino]

boas
jorgerod
quanto à 1ª dica, devolve-me o erro “method or data member not found”.
em relação á 2ª: é engraçado sim senhor, mas seria bom era que as molduras nunca saissem da primeira lunha e que se movimentassem só nessa linha conforme a posição do cursor.
tentei duplicar o código para a outra moldura mas devolveu-me um erro de quanquer coisa de ambiguo,
pensei então adicionar a “moldura 2” tambem ao código mas não consegui acertar com a expressão.
o código

private sub worksheet_selectionchange(byval target as range)

if target.column < 3 or target.row < 2 then exit sub

with activesheet.shapes("moldura 3") and ("moldura 2")

'.top = target.offset(-0).top 'bloquei esta linha desta forma só se deslocam na horizontal
.left = target.offset(, -1).left
end with
end sub

como faço para incluir as duas molduras?
albino

[Autor]

Artigos