Acessar dados em planilha na internet
Enviado: Qua Fev 24, 2016 2:47 pm
Olá, Gostei muito de seu blog/fórum e ele já me ajudou em muita coisa.
Eu procurei uma coisa, mas não encontrei.
Sou Acadêmico de Engenharia Civil, e estou fazendo um projeto, que seria uma planilha no excel para quantitativos de materiais. Eu fiz um controle de acesso na planilha que somente usuários pré determinados em outra planilha tenham acesso a essa planilha. Mas essa planilha com os usuários tem que estar no computador. Eu gostaria de saber se é possível colocar na rede (internet) pra não ter que entregar esse arquivo de planilha com os usuários que têm acesso. No caso, eu tenho uma hospedagem e domínio disponível para isso. É possivel somente colocar essa planilha na internet e alterar o caminho no VB para conferência ou tenho que criar um banco de dados SQL para isso?
Inclusive, esse script foi daqui do fórum, se não me engano.
Desde já, agradeço!
Eu procurei uma coisa, mas não encontrei.
Sou Acadêmico de Engenharia Civil, e estou fazendo um projeto, que seria uma planilha no excel para quantitativos de materiais. Eu fiz um controle de acesso na planilha que somente usuários pré determinados em outra planilha tenham acesso a essa planilha. Mas essa planilha com os usuários tem que estar no computador. Eu gostaria de saber se é possível colocar na rede (internet) pra não ter que entregar esse arquivo de planilha com os usuários que têm acesso. No caso, eu tenho uma hospedagem e domínio disponível para isso. É possivel somente colocar essa planilha na internet e alterar o caminho no VB para conferência ou tenho que criar um banco de dados SQL para isso?
Inclusive, esse script foi daqui do fórum, se não me engano.
Código: Selecionar todos
Private Sub Workbook_Open()
Dim xl As New Excel.Application
Dim xlw As Excel.Workbook
Dim u As String
Dim v As String
Range("a1").ClearContents
u = "E:\Quantitativo de Edifícios\Users_Tiago.xls"
v = Environ("UserName")
If CaminhoExiste(u) Then
Set xlw = xl.Workbooks.Open(u)
With xlw.Application.Range("A:A")
Set proc = .Find(what:=v, lookat:=xlWhole)
If proc Is Nothing Then
xlw.Close False
GoTo bloquear
Else
xlw.Close False
Range("a1") = "sim"
Exit Sub
End If
End With
Else
GoTo bloquear
End If
bloquear:
MsgBox "VOCÊ NÃO POSSUI REGISTRO PARA ACESSO A PLANILHA! Entre em contato com tiagoagostinho@outlook.com", vbExclamation, "REGISTRO"
With Application
.ScreenUpdating = False
.DisplayAlerts = False
ThisWorkbook.Close
.ScreenUpdating = True
.DisplayAlerts = True
End With
Exit Sub
End Sub
Function CaminhoExiste(sCaminho As String) As Boolean 'verificar se o caminho existe
On Error Resume Next
If Dir(sCaminho) = vbNullString Then
CaminhoExiste = False
Else
CaminhoExiste = True
End If
End Function
Sub visualizar()
Sheets("a1").Visible = False
End Sub
