foutmelding 1004 bij openen bestand READ-only

[Theknurt]

Hallo allemaal,

Ik heb een bestand met onderstaande VBA gemaakt.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Save
ChDir _
"H:\Rtd\"
Windows("VTA_Lijst_Pcl.xls").Activate
Kill "H:\Rtd\VTA_Lijst_Pcl.xls"
ActiveWorkbook.SaveAs Filename:= "H:\Rtd\VTA_Lijst_Pcl.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="did", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
End Sub

Echter dit is een alleen-lezen bestand, waarvan ik alleen het pass-woord heb.

Als je het bestand als alleen lezen opent, komt de foutmelding 1004 tijdens uitvoering.

Hoe kan ik deze melding afvangen, zodat hij als alleen lezen is geopend, dat het bestand niet opgeslagen word....

Txs. Burt

 

[Spiderman]

Hoi Theknurt,

If ActiveWorkbook.ReadOnly = False Then

Als ActiveWorkbook.ReadOnly dus False is, dan mag worden opgeslagen, als deze waarde TRUE is, dan mag niet worden opgeslagen.

 

[Theknurt]

Hoi Theknurt,

If ActiveWorkbook.ReadOnly = False Then

Als ActiveWorkbook.ReadOnly dus False is, dan mag worden opgeslagen, als deze waarde TRUE is, dan mag niet worden opgeslagen.

Hee Arno,

Bedankt voor je reactie en dit is precies wat ik zocht. Kon het maar niet vinden de (speciale) opdrachten en betekenissen over/van VBA opdrachten. Weet jij daar een goed site voor, waar veel VBA opdrachten omschreven staan ??

 

[Spiderman]

Hoi Theknurt,

Nee een goed site daarvoor weet ik niet. Ik gebruik altijd gewoon Google en in dit geval zoek je dan op : excel readonly vba geeft voldoende resultaten

 

[Axel Hagg]

Foutmelding

Het Objectenoverzicht en de Helpfunctie geven ook veel informatie.