Skip automatically pop up for protected workbooks - vba

Question

I use at the moment the following command to open a set of workbooks one by one:
Workbooks.Open Filename:=fFile, Password:="", UpdateLinks:=xlUpdateLinksNever, ReadOnly:=False
Normally the files are open in write-enabled mode, which is what I want. But for some files, the previous line pops up the following window:
In this case, I need to press Read Only to open it. Even though it is read-only, it is still good to be able to open it.
So to conclude, I try to open files in write-enabled mode, if it is not possible for some files, opening them in read-only is still fine. But as the number of the files is huge, I really want to automatize it, and avoid this pop-up. Could anyone tell me how to do it?
One possible turnaround is to first opening all the files in read-only mode, then convert them to write-enabled mode if possible. Do you think that is doable?

Answer 1

This is possible workaround for you. The idea is to pass any incorrect password to WriteResPassword argument. If file is protected the error will be thrown. If so you will be able to identify that file and open it in read-only mode. Alternatively, password will be ignored for other files and fill will be open for read-write mode.
Some additional comments within code below.
Sub PossibleWorkaround()
Dim Pass As String
'any password
Pass = "blahblah"
'file which is write-protected will throw error during opening it _
with incorrect password
On Error Resume Next
Workbooks.Open "c:\users\alpha\desktop\filename.xlsx", , , , , Pass
If Err.Number = 1004 Then
'if so, try to open it in read-only mode
Workbooks.Open "c:\users\alpha\desktop\filename.xlsx", , True
End If
'return to standard error handling or set as expected
On Error GoTo 0
'the same for file which is not write-protected
'incorrect password will be ignored
On Error Resume Next
Workbooks.Open "c:\users\alpha\desktop\filename A.xlsx", , , , , Pass
If Err.Number = 1004 Then
'therefore this if statement will not be called
Workbooks.Open "c:\users\alpha\desktop\filename.xlsx", , True
End If
On Error GoTo 0
End Sub

Answer 2

I had the same problem. I tired to find the answer on many formums and nothing. Finally I added WriteResPassword:="password here" in the end of the Worksbooks.Open statement and it did not prompt for a password anymore
Workbooks.Open Filename:="\path to the file\File_name.xlsm", Password:="password here", WriteResPassword:="password here"