Aktualisierungsabfrage wird nicht unterbunden. Habe in DieseArbeitsmappe nachstehenden Code, den ich nicht richtig hinbekomme. Es soll beim Öffnen der Mappe keine Abfrage erscheinen und keine Aktualisierung vorgenommen werden.
Wie ist es richtig zu schreiben und ist die Position richtig? Wer kann mir helfen?
Option Explicit
Private Sub Workbook_Open()
' Workbooks.Open Filename:="C:\Programm QSB\dat_Prog\QSB.xls", UpdateLinks:=0
' ActiveWorkbook.UpdateLink name:=ActiveWorkbook.UpdateLinks:=0
Application.Run "Pruefen"
Menü_QSB
Application.ScreenUpdating = False
Sheets("Zugriff").Select
ActiveSheet.Unprotect "2005"
With Cells(Sheets("Zugriff").Cells(Rows.Count, 10).End(xlUp).Row + 1, 10)
.Select
.Value = Now
End With
ActiveSheet.Protect "2005"
ActiveWorkbook.Save
Sheets("Startbild").Select
ActiveSheet.Protect "2005"
Application.ScreenUpdating = True
End Sub
Gruß
Lupo