BLOQUEAR BASE DE DA...
 
Notifications
Clear all

BLOQUEAR BASE DE DADOS

2 Posts
2 Usuários
0 Reactions
946 Visualizações
(@badamceva)
Posts: 107
Estimable Member
Topic starter
 

Pessoal

Estou precisando de uma ajuda, criei um formulario com macro, tenho minha base de dados, gostaria de proteger para que ninguem consiga alterar, mas quando eu oculto ou protejo a macro ela nao roda da erro.

Tem alguma forma de fazer ?

Obrigado

 
Postado : 09/10/2013 11:25 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

badamceva,

Boa Noite!

Em um módulo comum, cole o código das duas funções abaixo e, no seu formulário, sempre que você for fazer alguma inserção, alteração e exclusão de dados, você chama antes a função que desprotege. Quando terminar de executar o que queria, você chama a função que protege novamente. Obviamente, você deve proteger sua planilha com senha e colocar no código das funções abaixo, a mesma senha. Deve ainda proteger o projeto VBA com senha.

Function Desprotege_Plan()
    ActiveSheet.Unprotect Password:="1234567891011"
End Function
Function Protege_Plan()
    ActiveSheet.Protect Password:="1234567891011" ', DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlUnlockedCells
End Function
 
Postado : 09/10/2013 8:10 pm