READONLY-VBA

Question

HI,

IS IT POSSIBLE TO MAKE A FILE READ ONLY THROUGH VBA CODING?

Answer 1

HI,

IS IT POSSIBLE TO MAKE A FILE READ ONLY THROUGH VBA CODING?

You can use VBA's SetAttr statement to do that. Look it up in the VB editor's help files. Here is an online link that gives a brief description of the statement's syntax as well...

http://vbadud.blogspot.com/2007/05/changing-file-attributes.html

Answer 2

Hi,

try this sample..

(save in existing Path, new name: BOOK1 ReadOnly.xlsm)

SubSaveAsReadOnly()

Dim myPath

myPath = ThisWorkbook.Path & "\BOOK1 ReadOnly.xlsm"

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:=myPath, FileFormat:=xlNormal, ReadOnlyRecommended:=True

Application.DisplayAlerts = True

End Sub

Answer 3

Thanks for sharing!

Your line of code works fine. For general use I would recommend something like this:

ActiveWorkbook.SaveAs Filename:=Path & name1 & "_" & mydate & ".xlsx", FileFormat:=51

myfilename = ActiveWorkbook.FullName

SetAttr myfilename, vbReadOnly

name1, a string variable, is taken from, Range("C1") for example

myfilename is another string variable

Path is a string variable, eg. "C:\users\test"

Dinesh K Takyar

www.exceltrainingvideos.com

Answer 4

Use code like

SetAttr "G:\A\Book1.xlsm", vbReadOnly

This will make Book1.xlsm read-only.