Új hozzászólás Aktív témák

• mh197 őstag

  #22631 2014-07-28 11:42:24

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  mh197

  őstag

  Sziasztok!

  Újabb probléma lépett fel sajnos..

  Van az alábbi makróm:

  Private Sub Workbook_Open()
  MsgBox "Üdvözlöm a feladat nyilvántartás osztályos kimutatásában!"
  ActiveSheet.Protect Password:="A", UserInterfaceOnly:=True, AllowFiltering:=True
  End Sub
  Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  ActiveSheet.Protect Password:="A", UserInterfaceOnly:=True, AllowFiltering:=True
  ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
  If SaveAsUI Then
  MsgBox "A 'mentés másként' funkció NEM HASZNÁLHATÓ!!!"
  MsgBox "A táblázat NEM KERÜLT MENTÉSRE! Mentse ISMÉT a 'mentés' gombbal!!!", vbInformation
  Cancel = True
  End If
  End Sub
  Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If MsgBox("Biztosan be akarja zárni az osztályos kimutatást ?", 36, "Confirm") = vbNo Then
  Cancel = True
  End If
  End Sub

  Az a lényeg, hogy van egy excel (osztályos kimutatás), amiben több más excel hivatkozva van. Az alábbi sor azért került be, hogy ha rányomok a mentésre, akkor frissítse be az osztályos kimutatásban a behivatkozott cellák adatait.

  ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources

  Amikor azonban megvan nyitva az osztályos kimutatás, és esetleg valamelyik hivatkozott excel fájl is egy időben, akkor az alábbi hibaüzenetet kapom:

  

  Valószínűsítem, hogy az a gond, hogy az aktív munkafüzetben próbál frissíteni a makró, és ezért jön a hiba, de ez csak sejtés.. Esetleg tud valaki segíteni, mit kellene átírni, hogy ne adjon vissza hibát, ha a hivatkozott excel fájl, és az osztályos kimutatás is meg van nyitva egyszerre?

Új hozzászólás Aktív témák