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

• Cpt. Flint tag

  #2363

  #2362 Cpt. Flint

  2014-02-12 22:45:22

  Ú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

  

  Cpt. Flint

  tag

  #2362 Cpt. Flint

  #2362 Cpt. Flint

  na de ez a teljes workbookra vonatkozik, neki meg bizonyos sheetekre kell csak, gondolom a workbookot meg kell tudni nyitni "korlátozottan" is.

  Én ezt tenném:

  Private Sub CommandButton1_Click()

  pwd = InputBox("Adja meg a jelszót:", "Munkalapok felfedése")
  If pwd = "akarmi" Then
  For i = 2 To 3
  Worksheets(i).Visible = True
  Next
  Else
  hiba = MsgBox("A megadott jelszó hibás!", vbCritical + vbOKOnly, "Jelszó hiba")
  End If

  End Sub

  A CommandButton1 beágyazva az 1-es munkalapra a "Felfedés" felirattal.
  A WorkbookOpen-ben persze megcsinálom ugyanilyen for-next ciklussal a worksheetek visible=false beállítását. És nyilván le kell jelszavazni a VB részhez való hozzáférést.

  bocs, annyi még, hogy a WorkbookOpen-ben alapok elrejtéséhez a Worksheet(i).Visible = xlVeryHidden sort kell használni ahhoz, hogy a felhasználó ne tudja popup menüből láthatóvá tenni az elrejtett munkalapokat, hanem ez csak a visible property programkódból való állításával legyen lehetséges.
  (vagy eleve erre kell beállítani az adott lapok "visible" tulajdonságát a VB projektben)

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