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

• #13373 Delila_1 veterán Mythunderboy #13372

  Új Válasz 2012-04-04 16:58:39 #13373

  Ú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

  

  Delila_1

  veterán

  válasz Mythunderboy #13372 üzenetére

  Azt hittem, mást is csinál a makró a lapvédelmen kívül.

  A VB szerkesztőben bal oldalon a ThisWorkbook-ra duplán kattintasz, mire jobb oldalon kapsz egy üres lapot, oda másold be az alábbi kódot.

  Ez minden lap minden celláját zárolja, és a hangzatos "mmm" jelszóval védetté teszi a lapokat. Adj helyette normálisat.

  Mit értsek azon, hogy "adatokat megadni ne tudjanak"?

  Private Sub Workbook_Open()
  Dim lap%
  
  If Date > "2012.04.01" Then
  For lap% = 1 To 5
  Sheets(lap).Select
  Cells.Locked = True
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
  Scenarios:=True, Password:="mmm"
  Next
  Else
  Exit Sub
  End If
  End Sub

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