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

• martonx veterán

  #2364

  #2362 Cpt. Flint

  2014-02-13 06:59:20

  Ú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

  

  martonx

  veterán

  #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, igazad van, worksheet-et akartam írni.

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