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

• Cpt. Flint tag

  #2362

  #2360 martonx

  2014-02-12 22:22:24

  Ú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

  #2360 martonx

  #2360 martonx

  Szia Excel makróval szerintem le tudod kezelni. Feliratkozol a workbook_open-re, és feldobsz egy inputbox-ot. Ha jó a jelszó, akkor tovább mehet, ha nem, akkor workbook close.

  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