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

• #41513 Fferi50 Topikgazda spe88 #41511

  Új Válasz 2019-08-05 16:28:48 #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