Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Speicherort im Netzwerk beeinflusst Code

Speicherort im Netzwerk beeinflusst Code
02.06.2018 12:09:19
Ole
Hallo zusammen,
ich habe bin neu hier im Forum und hoffe jemand kann mir bei meinem Problem helfen.
Ich möchte beim Start einer Excel Datei automatisch z.B. "Tabelle3" anzeigen lassen und benutze hierfür:
Private Sub Workbook_Open()
Sheets("Tabelle3").Activate
End Sub
Sobald ich diese Datei im Netzwerk speichere und von dort aufrufe erzeugt der Code eine Fehlermeldung
Laufzeitfehler'1004'
Die Activate-Methode des Worksheet-Objektes konnte nicht ausgeführt werden.
Für eine Lösung des Problems wäre ich sehr dankbar.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speicherort im Netzwerk beeinflusst Code
02.06.2018 12:13:00
Hajo_Zi
schreibe noch
ThisWorkbook.
davor.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: Speicherort im Netzwerk beeinflusst Code
02.06.2018 13:22:06
Ole
Hallo Hajo,
vielen Dank für die schnelle Antwort.
Den Code habe ich wie folgt geändert:
Private Sub Workbook_Open()
ThisWorkbook.Sheets("Tabelle3").Activate
End Sub
Wenn ich die Datei vom Desktop aus starte ist alles ok.
Sobald ich sie in das Netzwerk kopiere und von hier aus starte erhalte ich folgende Fehlermeldung:
"Die Activate-Methode des Worksheet-Objektes konnte nicht ausgeführt werden"
Gruß Ole
Anzeige
AW: Speicherort im Netzwerk beeinflusst Code
02.06.2018 13:48:34
Ole
Ich habe die Lösung für mein Problem gefunden.
Im TrustCenter > Geschützte Ansicht > Option "Geschützte Ansicht für Dateien aus dem Internet" deaktiviert.
Jetzt läuft der Code einwandfrei
In Zukunft frage ich das wohl lieber mal ab..
Private Sub Workbook_Open()
If Application.ProtectedViewWindows.Count > 0 Then
MsgBox "Geschützte Ansicht aktiviert!!" & vbCrLf & _
"Ausführung des Programms nicht möglich"
Application.Quit
End If
Application.ThisWorkbook.Sheets("Tabelle3").Activate
End Sub

Vielen Dank..

286 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige