Ú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.

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