Hallo Ex(cel)perts,
Ik heb een draaitabel ( bestand A) die z'n gegevens haalt uit een ander bestand (B). Om de tabel te vernieuwen moet bestand B(alleen lezen) geopend worden.
Als men klaar is dienen beide bestanden gesloten te worden. Excel vraagt of bestand A opgeslagen moet worden en vervolgens of B opgeslagen moet worden. Omdat B een "alleen lezen"bestand is vraagt Excel om een andere naam. We lopen het risico dat bestand B onder de naam van A wordt opgeslagen. Ik heb de volgende VBA tekst onder This Workbook geschreven:
Private Sub Workbook_Open()
For Each wnd In Application.Windows
If wnd.Caption = "B.xls" Then Exit Sub
Next wnd
Workbooks.Open Filename:="B.xls", ReadOnly:=True
ActiveWindow.Visible = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks.Close Filename:="B.xls"
End Sub
In de één na laatste zin zit een fout... kennelijk een foute zinsbouw.......wie helpt?
Ik heb een draaitabel ( bestand A) die z'n gegevens haalt uit een ander bestand (B). Om de tabel te vernieuwen moet bestand B(alleen lezen) geopend worden.
Als men klaar is dienen beide bestanden gesloten te worden. Excel vraagt of bestand A opgeslagen moet worden en vervolgens of B opgeslagen moet worden. Omdat B een "alleen lezen"bestand is vraagt Excel om een andere naam. We lopen het risico dat bestand B onder de naam van A wordt opgeslagen. Ik heb de volgende VBA tekst onder This Workbook geschreven:
Private Sub Workbook_Open()
For Each wnd In Application.Windows
If wnd.Caption = "B.xls" Then Exit Sub
Next wnd
Workbooks.Open Filename:="B.xls", ReadOnly:=True
ActiveWindow.Visible = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks.Close Filename:="B.xls"
End Sub
In de één na laatste zin zit een fout... kennelijk een foute zinsbouw.......wie helpt?
