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

• #32063 Delila_1 veterán alfa20 #32061

  Új Válasz 2016-07-13 10:21:13 #32063

  Ú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 alfa20 #32061 üzenetére

  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.

• #32062 Fferi50 Topikgazda alfa20 #32061

  Új Válasz 2016-07-13 10:18:01 #32062

  Ú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 alfa20 #32061 üzenetére

  Szia!

  Ha a munkalap visible tulajdonságát xlVeryHidden-re állítod, akkor semmilyen felhasználói listában, sem jobb egérgombos listában nem látszik.
  Felfedni is csak makróból/VBA-ból lehet. Mivel a projekt közös használat esetén nem nyitható ki a VBA nézetben sem, ezért gyakorlott felhasználó is csak akkor tudja megnézni, ha a közös használatot feloldja - az pedig jelszóval (bár nem túl erősen, de) védhető.

  A közös használatnak - főleg a mentésekkor - lehetnek problémás helyzetei, erre figyelj oda nagyon.

  Üdv.

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