Este fórum está sendo desativado

[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

[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

[DavisonDiego]

Boa tarde Alexandre

agradeço seu código mais não consegui faze-ló rodar está dando um erro

Obrigado

[laennder]

Corrija a linha abaixo e veja se roda o código.

Código: Selecionar todos

If Environ("COMPUTERNAME") <> "NomeDoComputador" Then Exit Sub

[DavisonDiego]

Boa tarde Laennder

alterei o código mais ainda está dando o erro:

Erro de compilação:

End if sem bloco if


Obrigado

[alexandrevba]

Boa tarde!!

Tente assim

Código: Selecionar todos

Private 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