Макрос set attribute file

[oTyler]

Как макросом установить другому файлу статус ReadOnly и/или снять?

Перерыл всю справку - команда ReadOnly работает только на уровне безопасности в открытом файле, мне же надо сам файл залочить...

Спасибо всем подключившимся (чуть не добавил - к Матрице )...

[SAS888]

Можно, например, так:

Sub ReadOnly()

    Dim fso As FileSystemObject, f As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile("C:\Temp\test.xls")
    f.Attributes = 1
        
End Sub

Подставьте свой путь и имя файла. Для снятия атрибута "ReadOnly" - f.Attributes = 0.
Не забудьте подключить в VBE Tools -> References библиотеку "Microsoft Scripting Runtime".

[SAS888]

Более корректно (чтобы не затрагивать другие атрибуты) следует поступить так:

Sub ReadOnly()

    Dim fso As FileSystemObject, f As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile("D:\Temp\sas.xls")
    If (f.Attributes And 1) = 0 Then f.Attributes = f.Attributes + 1
        
End Sub

[oTyler]

Великолепное вам спасибо!
Вы спасли как минимум 12 человек от неминуемой смерти за стертый реестр.