VBA-Project Passwort beim Beenden von Excel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo.
Habe doch was rausgefunden, der Fehler ist nun doch reproduzierbar.
Ich rufe aus einer anderen Mappe die Makros der geschützten Mappe auf. Nur dann kommt die Kennwort-Abfrage beim Beenden.
Gruß
Björn
So sieht der Aufruf aus der externen Datei aus.


Sub delete_lines(blatt As String, Knopf As String, zeile As Integer)
'# Variablendeklaration                                     #
Dim letzte As Integer  'Nummer der letzten Zeile        #
Dim wb     As Object   'Workbook                        #
Dim ws     As Object   'Worksheet                       #
Dim i      As Integer  'Zähler                          #
Dim anz    As Integer  'Anzahl OLEObjects               #
Dim ix     As Integer  'Index des gesuchten OLEObjects  #
'On Error GoTo ende
1 Set wb = Workbooks("Vorlage1")
2 Set ws = wb.Worksheets(blatt)
ws.Activate
3  letzte = Names("bottom" & blatt).RefersToRange.Row - 1 'letzte Zeile finden
'OLEObjects in Blatt zählen
anz = ws.OLEObjects.Count
'Index des gesuchten Buttons
ix = 0
For i = 1 To anz
If ws.OLEObjects(i).Name = Knopf Then
ix = i
Exit For
End If
Next i
'Wenn der Button nicht gefunden wurde soll ein Fehler erzeugt werden.
4  If ix = 0 Then Error 25000
'Bildschirmaktualisierung ausschalten
5  Application.ScreenUpdating = False
'Mindestens 30 Zeilen sollen sichtbar bleiben
If letzte > 30 And letzte > zeile Then
For i = zeile To letzte
ws.Rows(zeile).Select
SendKeys "{RIGHT}"  'hier wird Meldung automatisch bestätigt, ob wirklich gelöscht werden  _
soll
SendKeys "{ENTER}"
6      ws.OLEObjects(ix).Object = True
Next i
End If
ws.Range("A15").Select
ende:
On Error GoTo 0
Application.ScreenUpdating = True
'wb.Worksheets("Zusammenfassung").Select
If Err.Number > 0 Then
MsgBox Erl
End If
End Sub

Hallo zusammen,
erst mal vielen Dank für Eure Hilfe. Habe das Problem mit Hilfe eines Kollegen gelöst.
Das Problem lag nicht in den Excel Mappen, sondern im aufrufenden Programm (OpenEdge).
Dort hatte ich ein ein Handle auf ein Worksheet. Diesem Handle habe ich ein Worksheet zugewiesen, dann das Sheet gefüllt und danach dem gleichen Handle das nächste Blatt zugewiesen. Und genau das war das Problem.
Man muss in OpenEdge zuerst eine Release Object machen, bevor ich dem Handle was anderes zuweise, warum weiß ich nicht und verstehe ich auch nicht. Aber das war auf jeden Fall die Lösung.
Irgendwie scheint trotz der neuen Zuweisung was von der alten bestehen zu bleiben. Zwar habe ich am Ende meiner Prozedur ein Release Object gemacht, aber das galt wohl nur für das aktuelle.
Wie gesagt, verstehen kann ich das nicht.
Vielleicht hilft das ja einem anderen auch.
Nochmals vielen Dank für Eure Bemühungen.
Gruß
Björn

Beliebteste Forumthreads (12 Monate)

VBA-Project Passwort beim Beenden von Excel

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA-Project Passwort beim Beenden von Excel

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread