Boa tarde Senhores,

 

Estou desenvolvendo uma aplicação que gera uma planilha Excel com Excel.Aplication e quero que esta planilha seja protegida, até ai tudo bem, mas quando tendo impedir que o usuário selecione as celulas estou tendo um problema, pois enquanto não fechei a planilha, funciona perfeitamente, mas quando SALVO e tento abrir pelo Excel a planilha apesar de protegida permite que as células sejam selecionadas. Os códigos utilizados são os seguintes:

 

With objExcelImp

    'protege a planilha
    .Sheets(1).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
                                                      Password:=1

    'Trava a planilha para não poder selecionar as células
    .Sheets(1).EnableSelection = xlNoSelection

   

    'Salva a planilha

    .ActiveWorkbook.SaveAs FileName:=strNomeArquivo, _
             FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
             ReadOnlyRecommended:=False, CreateBackup:=False

 

    'Fecha o Excel
     .Quit
end with 

 

Se alguém já passou por isto e puder me ajudar agradeceria, tenho muita urgencia de resolver este problema.

 

Obrigado a todos

 

Walmerson