Записать данные из файла в ячейку

[IgorGO]

я не хотел этого говорить

это было сказано в 1 сообщении (перечитайте исходные условия) об 1.txt - сказано, что он на рабочем столе, а в 2.xlsm, на лист Счёт, в ячейку В7 нужно просто положить текст...

[DarkJoker]

попробовал... тож самое

[DarkJoker]

название листа в 2.xlsm тоже сделал СЧЁТ

[AleksandrH]

Не помешало б открыть 2.xlsm для записи. Не?

[DarkJoker]

Невероятно просто, теперь открыл 2.xlsm и 1.xlsm запустил макрос и заработало
сменил немного код

Sub Макрос()
  temptxt = Readtemptxtfile(CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\1.txt")
  Workbooks("2.xlsm").Worksheets("СЧЁТ").Range("B7") = temptxt
  Workbooks("2.xlsm").Worksheets("СЧЁТ").Protect Password:="123"
End Sub

Function Readtemptxtfile(ByVal filename As String) As String
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.OpenTextFile(filename, 1, True): Readtemptxtfile = ts.ReadAll: ts.Close
    Set ts = Nothing: Set fso = Nothing
End Function

[IgorGO]

только я чёт не понял насчёт пароля =_= какой тут пасс ставится

а вот об этом я и спрашивал:

зачем нужен одноразовый макрос?
допустим он сработал и что? второй раз на лист Счёт он уже ничего не запишет. лист защищен и запаролен))

попробуйте теперь в 2.xlsm на лист Счёт в любую ячейку что-то вписать
не получилось?
теперь ни руками ни макросом на лист Счёт ничего не вписать,
второй раз ничего уже не сработает..., разве что с другим (одноименным файлом 2.xlsm) а один раз записанный можно выкинуть в корзину, он не пригоден больше к использованию.