-
IT café
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
mh197
senior tag
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 SubAz 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?
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Mibe tegyem a megtakarításaimat?
- Nem indul és mi a baja a gépemnek topik
- Linux kezdőknek
- [SoP] Rövid előzetesn az Alien: Rogue Incursion (PS5/PSVR2, PC, MQ3)
- Suzuki topik
- Háztartási gépek
- Politika
- Exkluzív funkcióval tenné vonzóbbá az ARM-os PC-ket a Microsoft
- Destiny 2 (Xbox One, PS4, PC)
- Vírusirtó topic
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest