Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Laufzeitfehler 50289

Betrifft: Laufzeitfehler 50289 von: Helga
Geschrieben am: 13.08.2004 09:22:54

Hallo Forum,
kann mir jemand erklären was der Laufzeitfehler 50289 bedeutet, mit der Zusatzmeldung : Die Operation kann nicht durchgeführt werden, solange das Projekt geschützt ist.


MfG Helga

  


Betrifft: AW: Laufzeitfehler 50289 von: Ulf
Geschrieben am: 13.08.2004 09:33:11

Hmm, ohne deinen Code zu kennen, ist es wieder das beliebte Ratespiel. Vermutlich
versuchst du auf das VBA- Projekt zuzugreifen und das ist geschützt.

Ulf


  


Betrifft: AW: Laufzeitfehler 50289 von: Helga
Geschrieben am: 13.08.2004 09:56:09

Hallo guten Morgen Ulf, danke für deine Antwort.
Ich habe unten den Code eingefügt,das urige dabei ist, das der Code Eigenartigerweise mehrfach ausgeführt wird und dann urplötzlich diese Fehlermeldung erscheint.

Also ich sag mal z.Bsp. 10 mal klappt's beim 11 mal nicht.

MfG Helga

Sub Blatt1Kopieren()
Dim strPath As String
Dim strName As String
Dim strWert As String
Dim shp As Shape
ActiveSheet.Unprotect
strPath = "C:\Winnt\Profiles\xflb21\Eigene Dateien\Sicherung_xls\"         'Pfad
strName = ActiveSheet.Name          'Tabellenname
strWert = ActiveSheet.Range("A1")   'Dateiname - zusatz
Application.ScreenUpdating = False
ActiveSheet.Copy
With ActiveWorkbook
For Each shp In Sheets(1).Shapes    'Schaltflächen entfernen
shp.Delete
Next
Sheets(1).Cells.Copy                ' Formeln auf Copy entfrnen
Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
With .VBProject.VBComponents(.VBProject.VBComponents(2).CodeModule).CodeModule 'VBA Projecte 

entfernen
    .DeleteLines 1, .CountOfLines
End With
.Sheets(1).Cells.Locked = True  'Zellen sperren
.Sheets(1).Protect "test"       'Blattschutz setzen - Passwort anpassen
.SaveAs strPath & strName & " " & Format(Date, "dd-mm-yy") & " " & _
strWert & ".xls"
MsgBox " Kopie von  " & strName & "  " & strWert & "    wurde angelegt "
MsgBox " Das Blatt 1  wird nun gedruckt  1 Kopie"
.Close
End With
Application.ScreenUpdating = True
ActiveSheet.Protect
Sheets("Blatt1").Select
ActiveSheet.Unprotect
Application.ScreenUpdating = False
ActiveSheet.PageSetup.PrintArea = "$A$1:$AF$40"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=Tr
Range("N3:P3,U3,A7:AF31,Z34,S35:S39,H34:J40") = ""
ActiveSheet.Protect
Application.ScreenUpdating = True
End Sub



  


Betrifft: AW: Laufzeitfehler 50289 von: Ulf
Geschrieben am: 13.08.2004 10:07:25

Wenns 10 mal klappt und dann einmal nicht, ist es natürlich schwierig. Ist das nur bei
dir so, oder gibst du die Datei auch weiter? Ggf. ist die Option "Zugriff auf VBA- Projekt immer vertrauen" anders eingestellt.

Ulf


  


Betrifft: AW: Laufzeitfehler 50289 von: Helga
Geschrieben am: 13.08.2004 10:16:04

Hi Ulf, die Datei läuft nur auf 1 Rechner und die Bedingungen sind immer gleich.
Wenn z.Bsp. die Fehlermeldung ausgegeben wird und die Meldung wird mit "Beenden" quitiert und nach ca. 10- 20 Sek. das Sichern nochmal durch den Schaltbutton ausführt, gehts tadelos.

Vermutung: Kann das was mit dem Netzwerk zu tun haben wo der Rechner dranhängt?

MfG Helga


  


Betrifft: AW: Laufzeitfehler 50289 von: Ulf
Geschrieben am: 13.08.2004 11:22:42

Sorry, keine weitere Idee.

Ulf


  


Betrifft: AW: Danke für deine Mühe Ulf o.T. von: Helga
Geschrieben am: 13.08.2004 12:02:44

'


 

Beiträge aus den Excel-Beispielen zum Thema "Laufzeitfehler 50289"