Ограничение доступа на редактирование по IP адрессу или по доменному имени компьютера

[zenner]

Добрый день!Может кто знает ? Я хочу разместить на одном компьютере файл excel , открыть на него общий доступ но чтобы строки 1 и 2 мог редактировать только компьютер с одним IP, строки 3 и 4 другой компьютер с другим IP тоесть сделать привязку определеных строк к определенным компьютерам.
СПАСИБО!!!

[андей]

http://am.rusimport.ru/MsAccess/topic.aspx?ID=7

[R Dmitry]

Сообщение от zenner

Добрый день!Может кто знает ? Я хочу разместить на одном компьютере файл excel , открыть на него общий доступ но чтобы строки 1 и 2 мог редактировать только компьютер с одним IP, строки 3 и 4 другой компьютер с другим IP тоесть сделать привязку определеных строк к определенным компьютерам.
СПАСИБО!!!

получить можно так

Option Explicit
 
Sub Test()
    Dim wsh As Object
    Dim RegEx As Object, RegM As Object
    Dim FSO As Object, fil As Object
    Dim ts As Object, txtAll As String, TempFil As String
    Set wsh = CreateObject("WScript.Shell")
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set RegEx = CreateObject("vbscript.regexp")
    TempFil = "C:\myip.txt"

    wsh.Run "%comspec% /c ipconfig > " & TempFil, 0, True
    With RegEx
        .Pattern = "(\d{1,3}\.){3}\d{1,3}"
        .Global = False
    End With
    Set fil = FSO.GetFile(TempFil)

    Set ts = fil.OpenAsTextStream(1)
    txtAll = ts.ReadAll
    Set RegM = RegEx.Execute(txtAll)

    ActiveSheet.Range("A1").Value = RegM(0)
    ActiveSheet.Range("A1").EntireColumn.AutoFit
    ts.Close

    Kill TempFil
     
    Set ts = Nothing
    Set wsh = Nothing
    Set fil = Nothing
    Set FSO = Nothing
    Set RegM = Nothing
    Set RegEx = Nothing
End Sub

а там уже колдуйте