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

• #49385 Delila_1 veterán psg5 #49382

  Új Válasz 2022-07-29 09:52:39 #49385

  Ú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

  

  Delila_1

  veterán

  válasz psg5 #49382 üzenetére

  A mindig látható munkalaphoz kell rendelned a makrót.
  Nálam ezen a lapon a C2 cellába kell beírni a jelszót (itt EzAJelszó, de írd át kedved szerint a makróban) ahhoz, hogy a Munka2 lap látható legyen. A Munka2 nevét is átírhatod a makróban.

  Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$2" Then
        If Target = "EzAJelszó" Then Sheets("Munka2").Visible = -1 Else Sheets("Munka2").Visible = 2
    End If
End Sub

  Érdemes a ThisWorkbokk laphoz rendelni egy másik makrót, ami a füzet bezárásakor törli a Munka1 lap C2 cellájának a tartalmát.

  Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Munka1").Range("C2") = ""
End Sub

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