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

• #41497 Fferi50 Topikgazda spe88 #41496

  Új Válasz 2019-08-02 16:08:21 #41497

  Ú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

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz spe88 #41496 üzenetére

  Szia!

  Az ASH változót definiáld publikusnak a Thisworkbook kódlap elején. (Public ASH As WorkSheet)
  Ezután hivatkozhatsz rá úgy, hogy Set Thisworkbook.ASH = Activesheet
  Szerintem érdemes lenne még a Workbook_Sheet_Deactivate eseménybe beletenni a következőt:
  Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name<>"Output" Then Set ThisWorkbook.ASH=ActiveSheet
End Sub
  (ez szintén a ThisWorkbook kódlapján van).
  Így minden munkalap elhagyáskor az ASH változód "emlékezni" fog rá, honnan kerültél az aktív munkalapra.
  A helytelen jelszó megadása esetén pedig ThisWorkbook.ASH.Activate kell az Msgbox után.

  Üdv.

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