Notifications
Clear all

Impedir acesso a planilha.

2 Posts
2 Usuários
0 Reactions
962 Visualizações
(@cicerolira)
Posts: 0
New 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: 0
New 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

 
Postado : 03/06/2016 4:44 pm