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

• #41492 Pakliman tag spe88 #41491

  Új Válasz 2019-08-02 11:23:02 #41492

  Ú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

  

  Pakliman

  tag

  válasz spe88 #41491 üzenetére

  Egy lehetséges megoldás (csak a totál kezdő Excel felhasználók ellen jó ):

  Egy normál modulban létrehozol egy változót, ez fogja tárolni a mindenkori aktuális munkalapot:
  Public ASH As Worksheet

  A Thisworkbook modulban ez (illetve hasonló) legyen:

  Private Sub Workbook_Open()
'A munkafüzet megnyitásakor elmentjük az éppen aktuális munkalapot:
Set ASH = ActiveSheet
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Munkalap aktiválásakor mengnézzük, hogy az új munkalap a védendő-e:
If Sh Is Worksheets("Munka2") Then
'Ha a védendő, akkor jelszót kérünk:
If InputBox("Jelszó:") = "jelszo" Then
'Ha jó a jelszó, engedjük az aktívvá tételt,
'és elmentjük új aktívként
Set ASH = ActiveSheet
Else
'Ha rossz, akkor:
MsgBox "Ehhez a laphoz Neked semmi közöd!!"
'Visszaállítjuk az előző munkalapot aktívnak:
ASH.Activate
End If
End If
End Sub

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