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

• #41514 urobee tag spe88 #41491

  Új Válasz 2019-08-06 04:10:37 #41514

  Ú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

  

  urobee

  tag

  válasz spe88 #41491 üzenetére

  Szia!

  @Pakliman első kódja kicsit átalakítva szerintem megoldás lehet:

  Ez ugye a thisworkbook-ba kerül:
  Private Sub Workbook_Open()
'A munkafüzet megnyitásakor elmentjük az éppen aktuális munkalapot:
Set ASH = ActiveSheet
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
'Munkalap aktiválásakor mengnézzük, hogy az új munkalap a védendő-e:
If Sh Is Worksheets("rejtett") Then
'Ha a védendő, akkor jelszót kérünk:
If InputBox("Jelszó:") = "jelszo" Then
'Ha jó a jelszó, engedjük az aktívvá tételt,
'és elmentjük új aktívként
Set ASH = ActiveSheet
'elrejti az összes oszlopot és sort
Columns.EntireColumn.Hidden = False
Rows.EntireRow.Hidden = False
Else
'Ha rossz, akkor:
MsgBox "Ehhez a laphoz Neked semmi közöd!!"
'Visszaállítjuk az előző munkalapot aktívnak:
ASH.Activate
End If
End If
End Sub

  Ez pedig az elrejteni kívánt lapra:
  Private Sub Worksheet_Activate()
'megjeleníti az összes oszlopot és sort
Columns.EntireColumn.Hidden = True
Rows.EntireRow.Hidden = True
End Sub

  Ez csak akkor lehet problémás, ha vannak rejtett sorok/oszlopok a munkalapon.

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