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

• Delila_1 veterán

  #32063

  #32061 alfa20

  2016-07-13 10:21:13

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #32061 alfa20

  #32061 alfa20

  olyat lehet?

  akarok készíteni egy közös használatú táblázatot, 63 felhasználó + admin (ő fogja reggelente frissíteni az adatokat). 1-1 felhasználó csak a saját munkalapját érje el és csak abban töltse amit kell.
  Első körben készítettem egy 'Login' munkalapot, ha megnyitják a táblát csak ez van felfedve, a többi rejtett.
  Bejelentkezést követően, elrejtem a 'Login' lapot és felfedem a belépett felhasználó munkalapját (a többi továbbra is rejtve), itt egy kivételével zárolt az összes oszlop.
  viszont amit szeretnék, hogy ne lehessen jobb egérrel fel fedni másol lapjait, vagy a felfedéshez legalább jelszó keljen, illetéktelen ne nézegesse mások lapjait.

  1 alkalommal elrejted az összes lapot úgy, hogy a lapfülön jobb klikk se mutassa azokat.

  Sub Rejtes()
Dim lap As Integer

For lap = 2 To Sheets.Count
Sheets(lap).Visible = xlSheetVeryHidden
Next
End Sub

  Itt az első lap az, amit belépéskor mindenki láthat.

  Belépéskor felfeded a felhasználó lapját (Sheets("Józs1").Visible = xlSheetVisible, a füzet bezárásakor ismét elrejted.

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