Página 1 de 1
Licença de uso Excel
Enviado: 26 Out 2015 às 14:15
por DavisonDiego
Boa tarde Pessoal
gostaria de uma auxilio de você tenho uma planilha que utilizo no trabalho e gostaria de comercializar ela, tem algum modo de colocar uma licença de uso para limitar a utilizar em somente um computador ou tempo de uso para expiração?
Obrigado
Att;
Davison
Re: Licença de uso Excel
Enviado: 26 Out 2015 às 15:46
por alexandrevba
Boa tarde!!
Há algumas formas....
Código: Selecionar todos Private Sub Workbook_Open()
Dim Sht As Worksheet
If Environ("NomeDoComputador") <> "NomeDoComputador" Then Exit Sub
For Each Sht In Sheets
Sht.Visible = True
End If
'Sheets("GuiQueEstavaOculta").Visible = False
End Sub
Leia:
http://www.vbgold.com/vb-projects/disk- ... mber.shtml
Att
Re: Licença de uso Excel
Enviado: 27 Out 2015 às 13:45
por DavisonDiego
Boa tarde Alexandre
agradeço seu código mais não consegui faze-ló rodar está dando um erro
Obrigado
Re: Licença de uso Excel
Enviado: 27 Out 2015 às 13:56
por laennder
Corrija a linha abaixo e veja se roda o código.
Código: Selecionar todosIf Environ("COMPUTERNAME") <> "NomeDoComputador" Then Exit Sub
Re: Licença de uso Excel
Enviado: 27 Out 2015 às 16:15
por DavisonDiego
Boa tarde Laennder
alterei o código mais ainda está dando o erro:
Erro de compilação:
End if sem bloco if
Obrigado
Re: Licença de uso Excel
Enviado: 27 Out 2015 às 16:38
por alexandrevba
Boa tarde!!
Tente assim
Código: Selecionar todosPrivate Sub Workbook_Open()
Dim Sht As Worksheet
If Environ("COMPUTERNAME") <> "NomeDoComputador" Then Exit Sub
For Each Sht In Sheets
Sht.Visible = True
Next Sht
End If
'Sheets("GuiQueEstavaOculta").Visible = False
End Sub
Att