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

• #12433 Delila_1 veterán paatrick #12432

  Új Válasz 2012-01-03 12:53:47 #12433

  Ú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 paatrick #12432 üzenetére

  Sub ved()
  Dim lap%
  
  For lap% = 1 To Sheets.Count
  Sheets(lap%).Select
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="SzuperTitok"
  ActiveSheet.EnableSelection = xlNoSelection
  Next
  End Sub

  A Password-nél add meg a saját jelszavadat, vagy ha nem akarod jelszavazni, akkor el is hagyhatod. Ebben az esetben a Scenarios:=True utáni vesszőt is töröld ki.
  Az ActiveSheet.EnableSelection = xlNoSelection sor letiltja a zárolt cellák kijelölését, ezt is elhagyhatod.

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