Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    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

  • #41513 Fferi50 Topikgazda spe88 #41511
    Új Válasz #41513
    Ú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 #41511 üzenetére

    Szia!
    Akkor próbáld meg ezt:
    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("Output") Then
        'Ha a védendő, akkor jelszót kérünk:
         Sh.Visible = xlSheetHidden 'elrejtjük
    If InputBox("Jelszó:") = "blbla" Then
          'Ha jó a jelszó, engedjük az aktívvá tételt,
          'és elmentjük új aktívként
          Sh.Visible = xlSheetVisible ' láthatóvá tesszük
          Application.EnableEvents = False 'letiltjuk az eseménykezelést
          Sh.Activate 'aktíváljuk
          Set ASH = ActiveSheet
          Application.EnableEvents = True 'visszaállítjuk az eseménykezelést
        Else
          'Ha rossz, akkor:
          MsgBox "Ehhez a laphoz Neked semmi közöd!!"
          'Visszaállítjuk az előző munkalapot aktívnak:
          ThisWorkbook.ASH.Activate
          Sheets("Output").Visible = xlSheetVisible 'láthatóvá tesszük, hogy kiválasztható legyen a lapfül
        End If
        End If
    End Sub

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