Cara, eu faço um procedimento parecido, só que utilizo um cadastro de usuários e uma tabela com permissoes para cada usuário, se interessar, e disponibiliza um modelo do que deseja.

Selmo,

O Controle via planilha eu montei, segue abaixo. Agora como conectar ao banco em uma maquina que não tenho o microsoft sql instalado... até agora estou quebrando a cabeça. Se puder me ajudar eu agradecia mto! Obrigado.

Sub Auto_Open()

With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With

USER = Environ("USERNAME")
Dim FindString As String
Dim Rng As Range
Sheets("db.user").Visible = True
FindString = USER
If Trim(FindString) <> "" Then

With Sheets("db.user").Range("A:A")
Set Rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
Else
MsgBox "Prezado, você não possui acesso;", vbCritical, "titulo - xxxx"
MsgBox "Enviar email para [email protected];", vbCritical, "titulo - xxxx"
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End With
End If
ActiveWindow.SelectedSheets.Visible = False
Sheets("CAPA").Select

End Sub