Alguém ai já exportou o conteúdo de um DBGrid para o excel e bloqueo o conteudo para ele não ser auterado?
Estou utilizando o seguinte código para exportar as informações para o excel
var linha, coluna : integer;
var planilha : variant;
var valorcampo : string;
begin
planilha:= CreateoleObject('Excel.Application');
planilha.WorkBooks.add(1);
planilha.caption := 'RELATÓRIO SIB';
planilha.visible := true;
DM.QEstoque.ApplyUpdates;
DM.QEstoque.First;
for linha := 0 to DM.QEstoque.RecordCount - 1 do
begin
for coluna := 1 to DM.QEstoque.FieldCount do
begin
valorcampo := DM.QEstoque.Fields[coluna - 1].AsString;
planilha.cells[linha + 2,coluna] := valorCampo;
end;
DM.QEstoque.Next;
end;
for coluna := 1 to DM.QEstoque.FieldCount do
begin
valorcampo := DM.QEstoque.Fields[coluna - 1].DisplayLabel;
planilha.cells[1,coluna] := valorcampo;
end;
planilha.columns.Autofit;
O meu problema é que preciso bloquear todas colunas e linhas para que elas não sejam alteradas.
O máximo que o usuario pode fazer é apagar alguma coluna que não seja interessante para a impressão, mas alterar algum dado não!
Pergunta
Greed
Boa Tarde Galera do ScriptBrasil
Alguém ai já exportou o conteúdo de um DBGrid para o excel e bloqueo o conteudo para ele não ser auterado?
Estou utilizando o seguinte código para exportar as informações para o excel
O meu problema é que preciso bloquear todas colunas e linhas para que elas não sejam alteradas.
O máximo que o usuario pode fazer é apagar alguma coluna que não seja interessante para a impressão, mas alterar algum dado não!
Alguém pode me ajudar?
Grato pela atenção
Editado por GreedLink para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.