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

• #36046 Delila_1 Topikgazda Mela Kehes #36044

  Új Válasz 2017-08-26 07:15:23 #36046

  Ú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

  Topikgazda

  válasz Mela Kehes #36044 üzenetére

  Egy kis makró, amit a ThisWorkbook laphoz rendelsz a VB szerkesztőben, megoldja.

  Private Sub Workbook_Open()
Dim lapnev As String, lap As Integer

Select Case Environ("Username")
Case "Jancsi"
lapnev = "Munka1"
Case "Juliska"
lapnev = "Munka2"
Case "Péter"
lapnev = "Munka3"
Case "Pál"
lapnev = "Munka4"
End Select

For lap = 1 To Sheets.Count
Sheets(lap).Visible = xlSheetVisible
Next

For lap = 1 To Sheets.Count
If Sheets(lap).Name <> lapnev Then Sheets(lap).Visible = xlSheetVeryHidden
Next

Application.ScreenUpdating = True
End Sub

  A füzet megnyitásakor automatikusan elindul. Az egyes nevekhez (Case "Jancsi") a valódi felhasználó nevét írd be, ahogy a gépe el van nevezve. A lapnev="Munka1" helyére annak a lapnak a nevét add meg, amit a felhasználó láthat.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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