Notifications
Clear all

Impedir acesso a planilha.

2 Posts
2 Usuários
0 Reactions
973 Visualizações
(@cicerolira)
Posts: 19
Active Member
Topic starter
 

Ola gostaria de saber se tem alguma forma de impedir que usuários acesse minha planilha caso as macros estejam desabilitadas? Ajudem-me por favor.

 
Postado : 03/06/2016 4:16 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Isso é relativo, pois depende do nivel de conhecimento de excel dos usuarios.

Mas de qualquer maneira

Crie uma aba com o nome Aviso (Nomeie identico ao sugerido).

Se quiser usar outro nome troque no codigo o nome da aba.

Cole esses codigos em Esta Pasta de Trabalho.


Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim WSS As Worksheet

Set WSS = Sheets("Aviso")

DisplayAlerts = False

Sheets("Aviso") = xlSheetVisible


For Each WSS In Sheets
If WSS.Name <> "Aviso" Then
WSS.Visible = xlSheetVeryHidden
End If
Next

DisplayAlerts = True

End Sub
Private Sub Workbook_Open()

Dim WSS As Worksheet

Set WSS = Sheets("Aviso")

DisplayAlerts = False

For Each WSS In Sheets
If WSS.Name <> "Aviso" Then
WSS.Visible = xlSheetVisible
End If
Next

Sheets("Aviso") = xlSheetVeryHidden

DisplayAlerts = True

End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 03/06/2016 4:44 pm