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

• #2362 Cpt. Flint tag martonx #2360

  Új Válasz 2014-02-12 22:22:24 #2362

  Ú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

  

  Cpt. Flint

  tag

  válasz martonx #2360 üzenetére

  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.

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