Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cancel 'Password' prompt during VBA
I run VB code to cycle through a group of excel files and chenge their
properties using the below code: For i = 1 To .FoundFiles.Count Set wb = Workbooks.Open(Filename:=.FoundFiles(i)) Sometimes a file opens with the following: Password Enter password for write access, or open read only. Password:_________ Cancel Read Only Is there a way for VB to hit cancel if this dialogue box appears? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cancel 'Password' prompt during VBA
Maybe:
For i = 1 To .FoundFiles.Count set wb = nothing on error resume next Set wb = Workbooks.Open(Filename:=.FoundFiles(i), password:="") on error goto 0 if wb is nothing then 'don't do anything, it wasn't opened! else 'do your real work here end if next i Shimmess wrote: I run VB code to cycle through a group of excel files and chenge their properties using the below code: For i = 1 To .FoundFiles.Count Set wb = Workbooks.Open(Filename:=.FoundFiles(i)) Sometimes a file opens with the following: Password Enter password for write access, or open read only. Password:_________ Cancel Read Only Is there a way for VB to hit cancel if this dialogue box appears? -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cancel 'Password' prompt during VBA
Didn't work. Still prompted me and when I hit cancel I get the following:
Run-Time error '1004': Application-defined or object-defined error Any suggestions? "Dave Peterson" wrote: Maybe: For i = 1 To .FoundFiles.Count set wb = nothing on error resume next Set wb = Workbooks.Open(Filename:=.FoundFiles(i), password:="") on error goto 0 if wb is nothing then 'don't do anything, it wasn't opened! else 'do your real work here end if next i Shimmess wrote: I run VB code to cycle through a group of excel files and chenge their properties using the below code: For i = 1 To .FoundFiles.Count Set wb = Workbooks.Open(Filename:=.FoundFiles(i)) Sometimes a file opens with the following: Password Enter password for write access, or open read only. Password:_________ Cancel Read Only Is there a way for VB to hit cancel if this dialogue box appears? -- Dave Peterson |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cancel 'Password' prompt during VBA
I think you changed the suggested code.
If you did, you'll want to post your new version--or try it again with the suggested code. Shimmess wrote: Didn't work. Still prompted me and when I hit cancel I get the following: Run-Time error '1004': Application-defined or object-defined error Any suggestions? "Dave Peterson" wrote: Maybe: For i = 1 To .FoundFiles.Count set wb = nothing on error resume next Set wb = Workbooks.Open(Filename:=.FoundFiles(i), password:="") on error goto 0 if wb is nothing then 'don't do anything, it wasn't opened! else 'do your real work here end if next i Shimmess wrote: I run VB code to cycle through a group of excel files and chenge their properties using the below code: For i = 1 To .FoundFiles.Count Set wb = Workbooks.Open(Filename:=.FoundFiles(i)) Sometimes a file opens with the following: Password Enter password for write access, or open read only. Password:_________ Cancel Read Only Is there a way for VB to hit cancel if this dialogue box appears? -- Dave Peterson -- Dave Peterson |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cancel 'Password' prompt during VBA
Thanks for your help Dave.
The below works so that when I press 'read only' it closes the file and move on. I want to be able to suppress the dialogue box completely so the code doesn't stop: For i = 1 To .FoundFiles.Count Set wb = Workbooks.Open(Filename:=.FoundFiles(i), ReadOnly:=False, Password:="") On Error GoTo 0 If wb.ReadOnly Then wb.Close RO = RO + 1 Else 'do work here end if next i "Dave Peterson" wrote: I think you changed the suggested code. If you did, you'll want to post your new version--or try it again with the suggested code. Shimmess wrote: Didn't work. Still prompted me and when I hit cancel I get the following: Run-Time error '1004': Application-defined or object-defined error Any suggestions? "Dave Peterson" wrote: Maybe: For i = 1 To .FoundFiles.Count set wb = nothing on error resume next Set wb = Workbooks.Open(Filename:=.FoundFiles(i), password:="") on error goto 0 if wb is nothing then 'don't do anything, it wasn't opened! else 'do your real work here end if next i Shimmess wrote: I run VB code to cycle through a group of excel files and chenge their properties using the below code: For i = 1 To .FoundFiles.Count Set wb = Workbooks.Open(Filename:=.FoundFiles(i)) Sometimes a file opens with the following: Password Enter password for write access, or open read only. Password:_________ Cancel Read Only Is there a way for VB to hit cancel if this dialogue box appears? -- Dave Peterson -- Dave Peterson |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cancel 'Password' prompt during VBA
Maybe you can use this:
For i = 1 To .FoundFiles.Count Set wb = Nothing On Error Resume Next Set wb = Workbooks.Open(Filename:=.FoundFiles(i), _ Password:="", writerespassword:="") On Error GoTo 0 If wb Is Nothing Then 'don't do anything, it wasn't opened! MsgBox "not opened" Else 'do your real work here MsgBox "it's open" End If Next i Don't delete those lines at the top ("set wb = nothing" and "On error resume next"). They're important. Shimmess wrote: Thanks for your help Dave. The below works so that when I press 'read only' it closes the file and move on. I want to be able to suppress the dialogue box completely so the code doesn't stop: For i = 1 To .FoundFiles.Count Set wb = Workbooks.Open(Filename:=.FoundFiles(i), ReadOnly:=False, Password:="") On Error GoTo 0 If wb.ReadOnly Then wb.Close RO = RO + 1 Else 'do work here end if next i "Dave Peterson" wrote: I think you changed the suggested code. If you did, you'll want to post your new version--or try it again with the suggested code. Shimmess wrote: Didn't work. Still prompted me and when I hit cancel I get the following: Run-Time error '1004': Application-defined or object-defined error Any suggestions? "Dave Peterson" wrote: Maybe: For i = 1 To .FoundFiles.Count set wb = nothing on error resume next Set wb = Workbooks.Open(Filename:=.FoundFiles(i), password:="") on error goto 0 if wb is nothing then 'don't do anything, it wasn't opened! else 'do your real work here end if next i Shimmess wrote: I run VB code to cycle through a group of excel files and chenge their properties using the below code: For i = 1 To .FoundFiles.Count Set wb = Workbooks.Open(Filename:=.FoundFiles(i)) Sometimes a file opens with the following: Password Enter password for write access, or open read only. Password:_________ Cancel Read Only Is there a way for VB to hit cancel if this dialogue box appears? -- Dave Peterson -- Dave Peterson -- Dave Peterson |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cancel 'Password' prompt during VBA
ps. I still think that the first suggestion is what you want, but the
writerespassword probably won't matter???? Dave Peterson wrote: Maybe you can use this: For i = 1 To .FoundFiles.Count Set wb = Nothing On Error Resume Next Set wb = Workbooks.Open(Filename:=.FoundFiles(i), _ Password:="", writerespassword:="") On Error GoTo 0 If wb Is Nothing Then 'don't do anything, it wasn't opened! MsgBox "not opened" Else 'do your real work here MsgBox "it's open" End If Next i Don't delete those lines at the top ("set wb = nothing" and "On error resume next"). They're important. Shimmess wrote: Thanks for your help Dave. The below works so that when I press 'read only' it closes the file and move on. I want to be able to suppress the dialogue box completely so the code doesn't stop: For i = 1 To .FoundFiles.Count Set wb = Workbooks.Open(Filename:=.FoundFiles(i), ReadOnly:=False, Password:="") On Error GoTo 0 If wb.ReadOnly Then wb.Close RO = RO + 1 Else 'do work here end if next i "Dave Peterson" wrote: I think you changed the suggested code. If you did, you'll want to post your new version--or try it again with the suggested code. Shimmess wrote: Didn't work. Still prompted me and when I hit cancel I get the following: Run-Time error '1004': Application-defined or object-defined error Any suggestions? "Dave Peterson" wrote: Maybe: For i = 1 To .FoundFiles.Count set wb = nothing on error resume next Set wb = Workbooks.Open(Filename:=.FoundFiles(i), password:="") on error goto 0 if wb is nothing then 'don't do anything, it wasn't opened! else 'do your real work here end if next i Shimmess wrote: I run VB code to cycle through a group of excel files and chenge their properties using the below code: For i = 1 To .FoundFiles.Count Set wb = Workbooks.Open(Filename:=.FoundFiles(i)) Sometimes a file opens with the following: Password Enter password for write access, or open read only. Password:_________ Cancel Read Only Is there a way for VB to hit cancel if this dialogue box appears? -- Dave Peterson -- Dave Peterson -- Dave Peterson -- Dave Peterson |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cancel 'Password' prompt during VBA
That worked great! Thanks Dave!
"Dave Peterson" wrote: ps. I still think that the first suggestion is what you want, but the writerespassword probably won't matter???? Dave Peterson wrote: Maybe you can use this: For i = 1 To .FoundFiles.Count Set wb = Nothing On Error Resume Next Set wb = Workbooks.Open(Filename:=.FoundFiles(i), _ Password:="", writerespassword:="") On Error GoTo 0 If wb Is Nothing Then 'don't do anything, it wasn't opened! MsgBox "not opened" Else 'do your real work here MsgBox "it's open" End If Next i Don't delete those lines at the top ("set wb = nothing" and "On error resume next"). They're important. Shimmess wrote: Thanks for your help Dave. The below works so that when I press 'read only' it closes the file and move on. I want to be able to suppress the dialogue box completely so the code doesn't stop: For i = 1 To .FoundFiles.Count Set wb = Workbooks.Open(Filename:=.FoundFiles(i), ReadOnly:=False, Password:="") On Error GoTo 0 If wb.ReadOnly Then wb.Close RO = RO + 1 Else 'do work here end if next i "Dave Peterson" wrote: I think you changed the suggested code. If you did, you'll want to post your new version--or try it again with the suggested code. Shimmess wrote: Didn't work. Still prompted me and when I hit cancel I get the following: Run-Time error '1004': Application-defined or object-defined error Any suggestions? "Dave Peterson" wrote: Maybe: For i = 1 To .FoundFiles.Count set wb = nothing on error resume next Set wb = Workbooks.Open(Filename:=.FoundFiles(i), password:="") on error goto 0 if wb is nothing then 'don't do anything, it wasn't opened! else 'do your real work here end if next i Shimmess wrote: I run VB code to cycle through a group of excel files and chenge their properties using the below code: For i = 1 To .FoundFiles.Count Set wb = Workbooks.Open(Filename:=.FoundFiles(i)) Sometimes a file opens with the following: Password Enter password for write access, or open read only. Password:_________ Cancel Read Only Is there a way for VB to hit cancel if this dialogue box appears? -- Dave Peterson -- Dave Peterson -- Dave Peterson -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
msgbox yes=password & goto sheet3, no= cancel | Excel Programming | |||
VBScript to prompt Save on Cancel click | Excel Programming | |||
Password redundant through use of cancel | Excel Discussion (Misc queries) | |||
How to CANCEL file SAVE PROMPT when MACRO is running? | Excel Discussion (Misc queries) | |||
Password Prompt | Excel Discussion (Misc queries) |